|
Mit Zellnamen funktioniert, das habe ich ausprobiert ... Range("Firma") ist möglich.
"Wolfgang ist wohl ein alter Name. MIt "Wolfgang Amadeus Mozart" und "Johann Wolfgang Goethe" wurde er wieder zu "meiner Zeit" scheinbar Populät ;) Vorallem in Süddeutschland und Österreich.
Habe dies Frage auch im Herber.de Forum gepostet. Hier gibt es eine Antwort/Lösung, die sehr ausgekkügelt ist, interessant erscheint, ich aber nicht verstehe und mich daher nicht verwenden traue. Ich suche noch immer an eine übersichtliche und wartbare Lösung für mich.
Für jene, die an der Lösung eines gewissen Herrn Werner interessiert sind - und da man nicht direkt zur Antwort verlinken kann hier die Antwort/Lösung:
Option Explicit
Public Sub Übertragen()
Dim loLetzte As Long, i As Long, z As Long
Dim varArray() As Variant
Application.ScreenUpdating = False
With Worksheets("Eingabe")
loLetzte = .Cells(.Rows.Count, "B").End(xlUp).Row
ReDim varArray(loLetzte)
For i = 2 To loLetzte
If .Cells(i, "B") <> "" Then
varArray(z) = .Cells(i, "C")
z = z + 1
End If
Next i
.Range(.Cells(2, "C"), .Cells(loLetzte, "C")).ClearContents
End With
With Worksheets("Daten")
.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row) _
.Resize(, loLetzte) = varArray
End With
End Sub
Liebe Grüße,
Wolfgang
|