Spalte kopieren: ganz banal - oder nicht?
08.04.2019 15:02:21
Georg
habt Ihr einen Tipp - das muss doch sicher auch einfacher gehen, oder? Und ich meine jetzt mal nicht das >select Worum geht's denn überhaupt:
ich suche und finde per VBA eine bestimmt Spalte (z.B. durch Suche nach Text des Spaltenkopfes "vDatenFeldName" in der ersten Zeile). Jetzt soll diese gesamte Spalte der Tabelle kopiert werden, auch wenn es zwischendrin oder am Ende Leerzeilen in der Spalte gibt. Dazu hab ich mir eine Makro gebastelt, hampele aber über DREI Variablen, bis ich den blöden Buchstaben der Spalte hab...! Knurr.. >:-(
Voraussetzung hier: Spalte "F" ist vollständig befüllt.
Mit anderen Worten: wie kann ich den SpaltenBUCHSTABEN einer gefundenen Zelle am einfachsten in eine Variable auslesen um ihn dann in die Kopieranweisung zu schreiben? Oder mach ich es eh falsch und es gibt eine viel bessere Lösung?
Sub SpaltenKopieren()
Dim vCOLUMN, Dim vROW, Dim vZELLName As String, Dim vSPALTENName
vROW = Range("F1").End(xlDown).Row
vDatenFeldName = "Kunde"
Range("A1:Z1").Find(what:=vDatenFeldName, LookAt:=xlWhole).Select
vCOLUMN = Selection.Column
vZELLName = Cells(1, vCOLUMN).Address(True, False)
vSPALTENName = Left(vZELLName, InStr(1, vZELLName, "$") - 1)
Range(vSPALTENName & "2:" & vSPALTENName & vROW).Copy
End Sub
Ich hoffe mein Geschreibsel ist verständlich. Danke für Eure Hilfe!
Gruß Georg