Re: VBA: Spalte ausfüllen
15.04.2003 11:59:16
Jürgen
Hallo Monika,danke für das Beispiel es funktioniert ... bloß bei ca. 20000 Datensätzen ist es sehr langsam. Das VBA (klappt mit dem Beispiel) was ich zustande bekommen habe ist nicht elegant aber um ein vielfaches schneller insbesondere wenns große sprünge zwischen den zu füllenden zellen gibt. Gibt es da vielleicht noch eine elegantere Lösung?
Jürgen
Sub Spalte_ausfüllen()
Application.ScreenUpdating = False
Range("b1").Activate
a = WorksheetFunction.CountA(Range("a1:a65536"))
Range("b" & a + 1) = "EndeSpalte"
For x = 1 To a
Selection.Copy
Selection.End(xlDown).Select
WertSpalte = ActiveCell.Offset(rowOffset:=-1, columnOffset:=0)
If WertSpalte = "" Then
ActiveCell.Offset(rowOffset:=-1, columnOffset:=0).Activate
Else
GoTo 1
End If
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Selection.End(xlDown).Select
b = ActiveCell
If b = "EndeSpalte" Then GoTo 2
1
Next x
2 Range("b" & a + 1).ClearContents
Application.ScreenUpdating = True
End Sub