Daten unten anhängen - nur bestimmte
19.01.2010 10:55:50
lutz
Hallo Excel-Profis,
ich habe ein Programm bei dem ich Datensätze "buche". Ich erfasse in einem Blatt und übertrage sie dann in ein anderes.
Ich nehme aber nicht alle Datensätze weil nicht immer alle 20 Buchungspositionen bebucht werden - bei denen steht dann "Leersatensatz".
Also übetrage ich erst alles:
Sub ÜbertragenB()
Application.ScreenUpdating = False
Sheets("Eingabe").Select
Range("H3").Select
Range("W4:BM23").Select
Selection.Copy
Sheets("Liste").Select
Range("A65500").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:AQ65536").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Run Macro:="DeleteLeerdatensatz"
Sheets("Eingabe").Select
Range("H3").Select
Application.ScreenUpdating = True
End Sub
und habe dann eben das Makro "DeleteLeerdatensatz"Sub DeleteLeerdatensatz()
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match("Leerdatensatz", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Welches in meinem Blatt "Liste" alle Leerdatensatz-Sätze löscht.Das ganze geht zwar, ist aber etwas langsam und sicher nicht besonders clever programmiert. Mir ist aber nichts anders eingefallen.
Kennt jemand einen schnelleren Weg?
Vielen Dank Gruß Lutz