VBA Lösung
maze
kann mir bitte jemand mit diesem Makro helfen.
Er soll lediglich vom Blatt "Eingabe" die beschriebenen Zeilen aus 7 Spalten (z.B.Zellen A1 bis G3) auslesen und in der "Datenbank" unten anhängen.
Option Explicit
Sub SätzeAufAnderesTabellenblattÜbertragen()
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Dim i As Integer
Dim iAnz As Integer
Set Blatt1 = Worksheets("Eingabe")
Set Blatt2 = Worksheets("Datenbank")
Application.ScreenUpdating = False
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, 3)).Copy Destination:=Blatt2.Range("A21")
iAnz = iAnz + 1
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
End Sub
Danke im voraus
Matthias
Anzeige