Kopieren per VBA

Bild

Betrifft: Kopieren per VBA
von: Björn Zschieschang
Geschrieben am: 28.10.2015 13:40:50

Hallo Leute,
ich stehe aktuell vor einem kleinen Problem. Ich möchte einen bestimmten Bereich aus Tabellenblatt 1 ins Tabellenblatt 2 kopieren. Soweit so einfach, jedoch möchte ich es nur unter bestimmten vorraussetzung kopiert haben:
- Daten zum kopieren A bis G
- Nur kopieren wenn Z1 = 0
- Vor dem kopieren alles in Tabellenblatt 2 löschen
- Nach dem kopieren Z1 auf 1 setzen
Hintergrund der Geschichte:
Ich habe eine Bestandskundentabelle wo automatisch die Daten für eine Kündigung in Tabelle 2 kopiert werden soll ( per Button ). Alle Kunden die ein Schreiben bekommen sollen haben als Wert 0 in der Z Spalte.
Ich hoffe das sowas umsetzbar ist mit VBA?
LG Björn

Bild

Betrifft: AW: Kopieren per VBA
von: matthias
Geschrieben am: 28.10.2015 14:06:29
Hallo Björn,
probier es mal mit folgender Schleife:

Sub Kuendigung()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim rZelle As Range
Dim lLastRow As Long
Set wksQ = Sheets("Tabelle1")   'QuellTB
Set wksZ = Sheets("Tabelle2")   'ZielTB
With wksZ
    If .AutoFilterMode Then .Cells.AutoFilter 'Filter entfernen
    .Cells.Delete 'Blatt leeren
    lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile
End With
Do
    Set rZelle = wksQ.Range("Z:Z").Find(0, , xlValues, xlWhole) 'Finde Null
    If rZelle Is Nothing Then Exit Do
    lLastRow = lLastRow + 1
    wksQ.Range(Cells(rZelle.Row, 1), Cells(rZelle.Row, 6)).Copy _
            Destination:=wksZ.Cells(lLastRow, 1) 'kopiere A:G
    rZelle = 1 'Z auf 1 setzen
Loop
    
End Sub
lg Matthias

Bild

Betrifft: AW: Kopieren per VBA
von: Björn Zschieschang
Geschrieben am: 28.10.2015 14:41:17
Genial! Funktioniert ohne Probleme!
Ich danke dir :-)

Bild

Betrifft: AW: Kopieren per VBA
von: Björn Zschieschang
Geschrieben am: 28.10.2015 14:44:32
Wie würde das ganze mit der aktuell aktiv markierten Zeile aussehen?

Bild

Betrifft: AW: Kopieren per VBA
von: matthias
Geschrieben am: 28.10.2015 15:37:04
Wie genau darf ich das verstehen? Soll er nur in den markieren Zeilen suchen?

Bild

Betrifft: AW: Kopieren per VBA
von: Björn Zschieschang
Geschrieben am: 29.10.2015 11:16:05
Nein,
Er soll nur die Zeile kopieren ( A bis G ) die aktuell aktiv ist ohne ein Wert irgendwo zu setzen.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren per VBA"