Werte in ERSTE freie SPALTE übertragen
Dietmar
hatte gestern von Sepp den nachfolgenden Code für den Übertrag von Werten aus der Spalte C2:C200
erhalten.
Da ich es irgendwie nicht hinbekommen die Frage wieder als 'offen' zu deklarieren, dieser neue Beitrag.
Nun meine Frage:
Wie muss der Code geändert werden, damit die Einträge aus C2:C200 als Werte in die ERSTE freie Spalte übertragen werden. Ich habe nämlich festgestellt, dass freie Spalten nicht genutzt werden, solange irgendeine Spalte ab D2:D200 belegt ist.
Hinsichtlich des Codes ist das ja auch klar; nur bräuchte ich nun auch die andere Vatiante.
Vielen Dank für Eure Hilfe
Beste Grüße
Dietmar aus Aachen
Sub Kopieren()
Dim lngLetzteSpalte As Long
lngLetzteSpalte = Cells(2, Columns.Count).End(xlToLeft).Column
With Range("C2:C200")
Cells(2, lngLetzteSpalte + 1).Resize(.Rows.Count, 1) = .Value
End With
End Sub
Anzeige