Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Lösung

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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Lösung
14.02.2006 21: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
Anzeige
klappt nicht
15.02.2006 19: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 08: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige