Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Feiertags-Termine von Excel ins Outlook

Mitglied: heuschrecke

heuschrecke (Level 1) - Jetzt verbinden

09.02.2010 um 12:46 Uhr, 7921 Aufrufe, 5 Kommentare

Hallo zusammen
Ich hoffe jemand kann mir helfen, es gibt zwar schon diverse ähnliche Einträge aber da ich ein VBA-Neuling bin werde ich durch die Meisten nicht wirklich schlau...
Mein Problem ist, ich muss alle Feiertage von 2010 automatisch vom Excel in den Outlook Kalender eintragen lassen, damit wir diese dann den Mitarbeitern verschicken können. Nun habe ich ein Script gefunden und dieses angepasst. Durch die Anpassungen funktioniert's eigentlich nicht schlecht bis auf ein paar winzige Details. Ich wäre um ein bisschen Hilfe sehr froh

Wir arbeiten mit Outlook 2007, da hat es bei den Terminen ne Option "Anzeigen als", diese müsste ich auf "Abwesend" setzen, ich habe es so gelöst:

Dim var_ShowAs As Integer

und dann unten:

'----- Anzeigen als -----
var_ShowAs = ActiveCell.Value

Ja ich weiss es ist kein Integer, da es ein Dropdown Feld mit Auswahl ist. Aber hab vieles probiert, nichts hat geklappt. Hätte jemand ne Idee?

Und gibt's auch die Möglichkeit, so was wie ne Abfrage zu machen wo prüft ob der Termin bereits vorhanden ist und wenn ja, diesen überschreibt?

Vielen Dank schon mal ;)
Grüsse

heuschrecke


PS: Hier noch mein ganzes Script:

Private Sub but_Export_Click()

'----------------------------------------------------------------------
'----------------------- Variablendeklarationen -----------------------
'----------------------------------------------------------------------

Dim OutApp As Object, apptOutApp As Object
Dim var_StartDatum As Date
Dim var_StartZeit As Date
Dim var_EndDatum As Date
Dim var_EndZeit As Date
Dim var_Subject As String
Dim var_ShowAs As Integer
'Dim var_Reminder As Boolean
'Dim var_ReminderTime As Integer
Dim var_GanzerTag As Boolean
'Dim var_Dauer As Integer
Dim var_Nachricht As String
'Dim var_Location As String
Dim var_Body As String


Range("A2:L14").Select
var_Body = ActiveCell.Value

'-----------------------------------------------------------------------
'------------------------- Füllen der Variablen ------------------------
'-----------------------------------------------------------------------

Range("A2").Select 'Starte von Zelle A2

Do Until ActiveCell.Value = "" 'Bis Zelle leer
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp

'----- Terminbetreff -----
var_Subject = ActiveCell.Value

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Startdatum -----
var_StartDatum = Format(ActiveCell.Value, "dd/mm/yyyy")

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Startzeit -----
var_StartZeit = Format(ActiveCell.Value, "hh:mm")

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Enddatum -----
var_EndDatum = Format(ActiveCell.Value, "dd/mm/yyyy")

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Endzeit -----
var_EndZeit = Format(ActiveCell.Value, "hh:mm")

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Ganztägiges Ereignis -----
If ActiveCell.Value = 1 Then
var_GanzerTag = True
ElseIf ActiveCell.Value = 0 Then
var_GanzerTag = False
End If

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate

'----- Anzeigen als -----
var_ShowAs = ActiveCell.Value

'----- Wechsel der Zelle -----
ActiveCell.Offset(rowoffset:=0, columnoffset:=1).Activate


'----------------------------------------------------------------------
'------------------------- Export nach Outlook ------------------------
'----------------------------------------------------------------------

.Categories = "Kat"

'----- Termindatum und Startzeit (in min) -----
.Start = var_StartDatum & " " & var_StartZeit

'----- Zusätzlicher Text -----
.Body = var_Body

'----- Ort -----
.Location = var_Location

'----- Betreff -----
.Subject = var_Subject

'----- Ganztägiges Ereignis oder Ereignis mit bestimmter Dauer -----
If var_GanzerTag = False Then
.Duration = var_Dauer
ElseIf (var_Dauer > 1440) Or (var_GanzerTag = True) Then
.AllDayEvent = True
End If

'----- Termin speichern -----
.Save

End With

MsgBox "Termine an Outlook übertragen!"

'----- Nächste Zelle auswählen -----
'ActiveCell.Offset(rowoffset:=1, columnoffset:=-7).Activate

'----- Variablen leeren -----
Set apptOutApp = Nothing
Set OutApp = Nothing

Loop

Range("M19").Select
MsgBox ActiveCell.Value

MsgBox "Excel wird nun beendet"
'Range("M12").Select
'Workbooks(ActiveCell.Value).Close SaveChanges:=False

End Sub
Mitglied: Franzmann
09.02.2010 um 13:26 Uhr
Tach heuschrecke..
Hab zwar keine Ahnung von VBA aber vielleicht bringt dich dieser Ansatz weiter:



vg
Bitte warten ..
Mitglied: heuschrecke
09.02.2010 um 15:43 Uhr
ist ja genial diese hol datei vielen vielen dank! das problem ist nur dass man sehr wahrscheinlich keine halben Tage reinpacken kann. Aber da muss ich mich noch schlau machen.

Danke schön =)
Bitte warten ..
Mitglied: Pjordorf
09.02.2010 um 22:22 Uhr
Hallo heuschrecke,

>das problem ist nur dass man sehr wahrscheinlich keine halben Tage reinpacken
kann.
Ist ein Feiertag nicht immer ein (1) Tag?

Peter
Bitte warten ..
Mitglied: heuschrecke
10.02.2010 um 07:22 Uhr
Hallo Pjordorf
normalerweise schon aber in manchen Kantonen haben unsere Mitarbeiter nur einen halben Tag frei (z:B. den Donnerstag vor Karfreitag etc.)
Bitte warten ..
Mitglied: Franzmann
10.02.2010 um 13:37 Uhr
Zitat von heuschrecke:
ist ja genial diese hol datei vielen vielen dank! das problem ist nur dass man sehr wahrscheinlich keine halben Tage reinpacken
kann. Aber da muss ich mich noch schlau machen.
Denke eher nicht, genau weiß ichs auch nicht.

Danke schön =)
Sehr gern ;)
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Mit Excel Privaten Termin an Outlook übergeben

gelöst Frage von bustueMicrosoft Office6 Kommentare

Hallo Insider, ich versuche in folgenden Skript die Class (PRIVATE bzw. PUBLIC) mit zu übergeben. Leider komme ich nicht ...

Outlook & Mail

Outlook Termin verschwindet automatisch

Frage von oceOutlook & Mail3 Kommentare

Hallo zusammen, ich habe Owner Berechtigung auf einen Kalender von einem Kollegen. Wenn ich in dem Namen von demjenigen ...

Microsoft Office

Mit Excel einen Termin in Outlook erzeugen + löschen alter Einträge

gelöst Frage von misau70Microsoft Office6 Kommentare

Hallo, ich bin neu hier und habe in einem Thread von 2015 ("Mit Excel einen Termin in Outlook erzeugen") ...

Microsoft Office

VBA: Excel Datum als Outlook Termin mit Knopfdruck (Datum wird falsch eingetragen)

Frage von 133519Microsoft Office13 Kommentare

Hallo Leute, ich habe eine Frage zu dem Themengebiet VBA Code. Ich habe mir ein Code ergoogelt der ein ...

Neue Wissensbeiträge
Hyper-V
Setup VM W2016 startet nicht in Hyper-V 2016
Erfahrungsbericht von keine-ahnung vor 37 MinutenHyper-V1 Kommentar

Moin, sitze gerade über meinem neuen Server und versuche, die VM auf den Host zu prügeln. Jetzt wollte ich ...

Zusammenarbeit

Verfügbar - Samsung PCoIP Zero Client NB-NH (40 Stück)

Tipp von loop.12 vor 2 StundenZusammenarbeit1 Kommentar

Wenn jemand braucht, ich habe 40 Stück: - Samsung PCoIP Zero Client NB-NH - PCoIP Client - - Preis ...

Server-Hardware

HPE Proliant ML350P Gen8 Probleme mit Zugriff auf Raid-Volumes

Erfahrungsbericht von goscho vor 6 StundenServer-Hardware1 Kommentar

Hallo Leute, das Problemgerät: HPE ML350P G8 Windows Server 2012R2 HyperV-Host 8 x 300 GB 10K SAS HDD (1 ...

Humor (lol)

"Linux und 5 Gründe Warum man kein Windows verwenden sollte sondern Ubuntu Linux"

Tipp von Snowbird vor 2 TagenHumor (lol)8 Kommentare

Gerade gefunden. Ja, ist etwas älter, aber irgendwie lustig?

Heiß diskutierte Inhalte
Microsoft
Windows 10 - Kombination von lokalen Benutzerkonten und Benutzern aus einer Domäne
Frage von PappnaseVxVVMicrosoft21 Kommentare

Hi, würde gerne folgendes realisieren, von dem ich gern wüsste, ob es geht. Ich habe einen Raum mit 3 ...

Netzwerkgrundlagen
Windows Server über Außen-IP nicht ansprechbar
Frage von uups81Netzwerkgrundlagen18 Kommentare

Hallo! Es gibt mehrere Windows Server (2016, 2019), die über einen zweiten Netzwerkadapter in einem lokalen Netzwerk miteinander verbunden ...

Windows 10
Windows 10 druckt nicht mehrere Kopien?
Frage von StefanKittelWindows 1016 Kommentare

Hallo, ich hatte gerade einen Anruf eines Kunden. Sein neuer PC (Win 10 1903) druckt nicht mehr mehrere Seiten ...

Grafikkarten & Monitore
Grafikkarten Angebot auf Amazon
gelöst Frage von NudellordGrafikkarten & Monitore16 Kommentare

Hallo Community, ich suche eine neue Grafikkarte und bin auf die Nvidea Gforce GTX 1080 ti gestoßen. Und dabei ...