suche
18.12.2008 19:08:30
Matty
Wie kann ich folgenden VBA abändern, dass er nicht nur für die aktive Zelle die Werte kopiert sondern für die gesamt Spalte. Wenn z.B. die Grundwerte in der Spalte B stehen.
siehe auch Tabelle...
https://www.herber.de/bbs/user/57723.xls
D.h. aktuelle kopiert der VBA Code nur die Werte für die aktive Zelle. Ich habe in der Spalte B aber vielleicht 1000 Werte... d.h. ich müsste erste feststellen, wieviele Zeilen es sind und dann Zeile für Zeile durchgehen!?
Option Explicit
Sub Spalte_E()
Dim C As Variant, X As Byte
For Each C In Worksheets("Tabelle2").Range("E:E")
If C.Value "" Then
If UCase(C.Value) = UCase(ActiveCell.Value) Then
For X = 1 To 5
ActiveCell.Offset(0, X) = C.Offset(0, X)
Next
End If
End If
Next
End Sub
Gruß und Danke für eure mühen
Matty