VBA Lösung

Forumthread: VBA Lösung
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: VBA Lösung

VBA Lösung

maze

Hallo Forumsmitglieder,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA Lösung

Harald
klappt nicht

maze
AW: klappt nicht

Harald

AW: VBA Lösung

14.02.2006 22:15:54

Harald

Hi Matthias,
geht vielleicht auch so, oder ?


Sub test()
Dim Lrow As Long, LrowB As Long
Lrow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
LrowB = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
If LrowB = 2 Then LrowB = 1
Sheets(1).Range("A1:G" & Lrow).Copy _
Sheets(2).Range("A" & LrowB)
End Sub

Gruß
Harald

klappt nicht

15.02.2006 20:36:01

maze

Hallo Harald
klappt leider nicht.
Er soll immer bis zur letzten Zeile zählen. Meinetwegen sind 10 Datensätze vorhanden,
dann sollen die neuen Datensätze den 11 Datensatz bilden.
gruß
matthias

AW: klappt nicht

16.02.2006 09:16:51

Harald

Hi nochmal,
so ganz blick ich das nicht.
Das Makro zählt in Blatt1 die Zeile der letzte gefüllte Zelle in Spalte A,
kopiert dann den bereich A1 bis G letzte Zeile in die erste freie Zelle der Spalte A in Blatt 2
Das war doch gefordert, oder ?
Gruss Harald

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!