Markieren einer ganzen Tabelle mit VBA
28.04.2005 16:23:24
Thomas
ich habe mir (mit viel Mühe und Arbeit) nachstehendes Makro gebastelt. Im ersten Teil solldieses Makro eine Tabelle in den VOLLEN Spalten A bis H markieren.
Nun ist mir aber aufgefallen, das manchmal am Ende der Tabelle NUR in der Spalte A etwas steht und ab Spalte B leer ist. Vor den Zeilen in der Spalte A sind drei Leerzeilen, dann nur die Zelle in Spalte A wieder gefüllt und dann iweder drei Leerzeilen bevor die restlich gefüllte Tabelle anfängt. Siehe auch Beispieldatei.
Sub Dreißig()
'alle "vollen" Zellen in A bis H markieren
Dim Spalte$
Dim lC As String
Spalte = "H" 'Spalte angeben
lC = Cells(Cells.Rows.Count, Spalte).End(xlUp).Address(False, False)
Range("A2:" & lC).Select
Selection.Copy
Ein Beispiel findet Ihr unter https://www.herber.de/bbs/user/21837.xls
Wie muss mein Makro geändert werden, das auch wenn nur in der Zelle 1 in Spalte A etwas steht und in den restlichen Zellen Leere herrscht, das alle Zellen/Zeilen markiert sind (bis zur letzten Zeile in der in Sopalte A etwas steht) um den Rest des Makros abzuarbeiten.
Wer kann mir bitte helfen?
Danke im Voraus.
Gruß
Thomas
Anzeige