Hallo
Ich möchte im aktiven Tabellenblatt im Bereich C3:C22 den Inhalt jeder einzelnen Zelle nacheinander auslesen. Leerzellen sollen ignoriert werden. Alle Zellen (außer die Leerzellen) in diesem Bereich haben als rechte Zeichenfolge immer 2 Zeichen (z.B. A1, A2 usw.). Eine einzelne Zelle auslesen mit "Right("eingelesener Name", 2) hat funktioniert.
Nun sollen aber alle Zellen des ob Bereichs mit der Zeichenfolge A1 an die in jeweils erste freie Zelle in Spalte G verschoben werden. So z.B. "Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)"
Datei https://www.herber.de/bbs/user/62379.xls
Ich hoffe Ihr könnt mir da weiterhelfen.
Da es mein erstes Posting hier ist, hoffe ich alles richtig gemacht zu haben.
MfG Jörg Kaiser