Makro erweitern
20.01.2004 12:14:18
maze
brauche bitte mal Euere Hilfe.
Wo muß das folgende Makro umgebaut werden?
Aufgabe des Makro war, bestimmte Zeilen aus Sheet "TB2" in sheet "Angebot" ab der Zeile b21 einzufügen. Durch das Einfügen rutschen die Zeileninhalte nach Zeile b21 natürlich um die eingefügten Zeilen nach unten. Das war beabsichtigt.
Besser wäre in Spalte A eine Markierung zu machen, z.B. ein "X" und das Makro fügt ab der Zeile die Datensätze ein, anstatt nur ab b21. Es soll sozusagen den Einfügepunkt in Spalte A suchen und dann eine Spalte daneben die die Daten einfügen.
Kriege es selber nicht hin...
Gruß
Matthias
Sub SätzeAufAnderesTabellenblattÜbertragen2()
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Dim i As Integer
Dim iAnz As Integer
Dim a As String
Set Blatt1 = Worksheets("TB2")
Set Blatt2 = Worksheets("Angebot")
Application.ScreenUpdating = False
Sheets("TB2").Activate
iAnz = 0
For i = 1 To Blatt1.UsedRange.Count
If Blatt1.Cells(i, 1) <> "" Then
Blatt2.Rows(21).Insert shift:=xlDown
Range(Cells(i, 1), Cells(i, 5)).Copy Destination:=Blatt2.Range("b21")
iAnz = iAnz + 1
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
End Sub