VBA in Subject mehrere cell ausgeben (cell.text. + 0,10)
Hi zusammen
Ich bin ein blutiger Anfänger in VBA, aber Ihr im Forum helft mir zu lernen schritt für schritt
Folgenden Code habe ich übernommen: Mit Excel einen Termin in Outlook erzeugen + löschen alter Einträge
Jetzt möchte ich eigentlich nur noch, dass zum Beispiel strSubject = cell.Text, also Spalte A und susätzlich noch Spalte J (test2) zusammen ins strSubject geschrieben wird. Ich würde dann dies auch gleich mit .Location und str Comment gleich tun, es könnte aber sein dass evtl. auch mehrere Spalten dann ins Comment geschrieben werden. Zum Beispiel
Es ist nicht so, dass ich nicht selber ausversucht hatte, aber ich bin kärglich gescheitert 
Vielen Dank für Eure Antwort.
KusiNeu
Ich bin ein blutiger Anfänger in VBA, aber Ihr im Forum helft mir zu lernen schritt für schritt
Folgenden Code habe ich übernommen: Mit Excel einen Termin in Outlook erzeugen + löschen alter Einträge
Jetzt möchte ich eigentlich nur noch, dass zum Beispiel strSubject = cell.Text, also Spalte A und susätzlich noch Spalte J (test2) zusammen ins strSubject geschrieben wird. Ich würde dann dies auch gleich mit .Location und str Comment gleich tun, es könnte aber sein dass evtl. auch mehrere Spalten dann ins Comment geschrieben werden. Zum Beispiel
strComment = cell.Offset(0,5) + cell (0,9)+cell(0,14).
a b c d e f g h i j
Betreff Beginnt amBeginnt umEndet amEndet umBeschreibung Ort Kategorien Test 1 test2
W1231.075 Festbänke 9.05.18 13:00 8.05.18 17:00 60422 BelegNr. Carlo Domeniconi 8200 Schaffhausen Festbänke
W1272.075 Kühlschrank 9.05.18 13:00 8.05.18 17:00 60422 BelegNr. Carlo Domeniconi 8200 Schaffhausen Kühlschrank
For Each cell In sheet.Range(rngStart, rngEnd)
Set olApp = objCal.Items.Add(1)
With olApp
strSubject = cell.Text
strStartDate = cell.Offset(0, 1).Text
strStartTime = cell.Offset(0, 2).Text
strEndDate = cell.Offset(0, 3).Text
strEndTime = cell.Offset(0, 4).Text
strComment = cell.Offset(0, 5).Text
.Location = cell.Offset(0, 6).Text
.Body = strComment
strCategory = cell.Offset(0, 7).Text
.Subject = strSubjectVielen Dank für Eure Antwort.
KusiNeu
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 373612
Url: https://administrator.de/forum/vba-in-subject-mehrere-cell-ausgeben-cell-text-0-10-373612.html
Ausgedruckt am: 17.06.2025 um 07:06 Uhr
3 Kommentare
Neuester Kommentar
Hallo,
Du suchst eine Funktion um Strings zu verkennten.
Siehe auch hier
https://docs.microsoft.com/de-de/dotnet/visual-basic/programming-guide/l ...
Strings verketten man in VB(A) mit &.
Manuelle Strings beginnen und enden mit einem ".
In Deinem Beispiel
Stefan
Du suchst eine Funktion um Strings zu verkennten.
Siehe auch hier
https://docs.microsoft.com/de-de/dotnet/visual-basic/programming-guide/l ...
Strings verketten man in VB(A) mit &.
Manuelle Strings beginnen und enden mit einem ".
In Deinem Beispiel
strSubject = cell.Text & " - " & cell.Offset(0, 10).Text Stefan
Hallo Kusi
Erstens mal würde es ungemein helfen, wenn du den Beitrag korrekt formatieren würdest, Formatierung
und (ungetestet) würde ich meinen, mit
müsste dir eigentlich die beiden Textinhalte aus Spalte A und Spalte J aneinanderhängen
.Location und Comment müssten so auch funktioniereren
Gruss
Erstens mal würde es ungemein helfen, wenn du den Beitrag korrekt formatieren würdest, Formatierung
und (ungetestet) würde ich meinen, mit
strSubject = cell.Text & ", " & cell.Offset(0, 9).Text .Location und Comment müssten so auch funktioniereren
Gruss
Vielen Dank Euch beiden, genau dass habe ich gesucht. Dass mit der Formatierung lese ich natürlich durch, war mein erster Beitrag
Gruss
Kusi
Gruss
Kusi
