Text aus mehreren Zellen in eine Zelle schreiben
10.02.2018 13:00:14
Sandra
leider reichen meine VBA Kenntnisse nicht ganz aus, daher hoffe ich auf Eure Hilfe.
Ich möchte gerne aus einer Tabelle/aus mehreren Zellen die Daten in eine schreiben. Mit einem früheren Beitrag kam ich schon sehr gut zurecht:
https://www.herber.de/forum/archiv/1276to1280/1279996_Text_aus_mehreren_Zellen_autom_in_eine_einfuegen.html#1279996
Im Details schaut es so aus:
Sub Einzelposten()
Dim zz As Long, sEPo As String
For zz = 2 To 7
If Cells(zz, 1) = 1 And Cells(zz, 2) = 1 Then sEPo = sEPo & "; " & Cells(zz, 3)
Next zz
Cells(zz, 7) = Mid(sEPo, 3)
End Sub
Leider fehlen mir nun die Kenntnisse, dies entsprechend anzupassen. Ich muss nun variable sein im Einlesen und Auslesen der Daten.
In Zeile 3: If Cells(zz, 1) = 1 And Cells(zz, 2) = 1
--> hier muss ich jeweils eine bestimmte Zelle angeben - nicht einen festen Wert.
Also Bsp. wenn Cells(zz,1) entspricht der Zelle A1 aus TabelleB. So auch für den zweiten Wert.
In Zeile 5: Cells(zz, 7) = Mid(sEPo, 3)
--> Hier sollte das Makro nicht zu Ende sein. Hier muss ich in die nächste Zeile und das ganze noch mal von vorn.
Ich hoffe, das irgendwie verständlich geschrieben zu haben :-)..vielleicht hat ja jemand einen Tipp für mich.
VG
Sandra