Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren per VBA

Kopieren per VBA
28.10.2015 13:40:50
Björn
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren per VBA
28.10.2015 14:06:29
matthias
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

Anzeige
AW: Kopieren per VBA
28.10.2015 14:41:17
Björn
Genial! Funktioniert ohne Probleme!
Ich danke dir :-)

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

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

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

299 Forumthreads zu ähnlichen Themen

Mittelwert aus Gruppierten Daten berechnen
Holger

Hallo
Eines schon mal Vorweg. Bin ein Excel Neuling und bitte daher um Verständnis, dass ich mit dieser wahrscheilich sehr einfachen Excel Problematik nicht weiterkomme.
Es geht um folgenden Tabellentyp:
http://www.bilder-space.de/show.php?file=F5RPKSe80cyrouj.jpg
Wie man sieht...
11.08.2008 13:29:00
Thread-ID: 1000835
6 Beiträge
Anzeige
Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Anzeige
Berechn.PivotField - Orientation per VBA = Fehler
Andreas

Hallo Herber Fans,
ich bin heute erstmalig mit einem Problem konfrontiert worden, welches keiner rationalen Logik zu folgen scheint. Auch im Forum habe ich dazu bisher nichts gefunden und wollte fragen, ob damit schon Erfahrung besteht, oder ich vielleicht auch einfach einen Denkfehler habe...
02.10.2008 15:17:00
Thread-ID: 1013901
3 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
PivotChart erstellen per VBA
Windalf

Hallo,
kann mir jemand sagen, wie man ne Pivotchart üblicher Weise per VBA erstellt.
Der Markorekorder hilft mir nicht weiter. Der malt dann nen leeres Chart....
Wenn man nen Pivotchart erstellt ist das nen "normales Chart" dem man die Range von dem was man malen will übergibt oder...
04.11.2008 11:05:00
Thread-ID: 1021518
2 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
1
8
5
2
2
12
1
2
6
4
1
5
2
7
4
8
2
1
2
6
3
3
2