Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.11.2023 08:36:48
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA- aus anderer Mappe kopieren)mit Kriterium)

VBA- aus anderer Mappe kopieren)mit Kriterium)
23.09.2019 10:40:25
Fred

Hall Excelianer,
ich habe mir da so einen Code zusammen gebastelt, der so nicht klappt.
Ich möchte aus "Mappe2", Sheet "data" alle Zeilen (beginnend bei Zeile 2) kopieren, welche in der zweiten Spalte den Eintrag "BB" haben und in meine ausführende Mappe, Sheet "Import1" einfügen (Werte und Formate).
Klappt aber nicht wie gewollt.
Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open("C:\Users\Besitzer\Desktop\Master\Download\Mappe2.xls")
Set wks1 = Sheets("data")
Set wks2 = wbZiel.Sheets("Import1")
myRow = 2   'Startzeile in Import1
lastCol = 10 'Letzte Spalte mit Daten
lastRow = IIf(wks1.Range("A65536")  "", 65536, _
wks1.Range("A65536").End(xlUp).row)
For lRow = 1 To lastRow
If wks1.Cells(lRow, 2) = "BB" Then
'Daten kopieren
Range(wks1.Cells(lRow, 2), wks1.Cells(lRow, lastCol)). _
Copy wks2.Cells(myRow, 2)
End If
Next
Application.CutCopyMode = False
wbQuelle.Close
Es werden lediglich die Daten aus der letzten Zeile kopiert und in mein Sheet "Import1" eingefügt.
Was muss ich hier ändern?
Gruß
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: VBA- aus anderer Mappe kopieren)mit Kriterium)
23.09.2019 11:19:30
Torsten
Hallo Fred,
klar, weil du die Zeile, die du kopierst immer ueberschreibst. Du musst deine Variable myRow nach dem Kopieren hochzaehlen, damit er beim naechsten Kopieren in die naechste Zeile schreibt im Zielsheet.

Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open("C:\Users\Besitzer\Desktop\Master\Download\Mappe2.xls")
Set wks1 = wbQuelle.Sheets("data")
Set wks2 = wbZiel.Sheets("Import1")
myRow = 2   'Startzeile in Import1
lastCol = 10 'Letzte Spalte mit Daten
lastRow = wks1.Cells(Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lastRow
If wks1.Cells(lRow, 2) = "BB" Then
'Daten kopieren
Range(wks1.Cells(lRow, 2), wks1.Cells(lRow, lastCol)).Copy wks2.Cells(myRow, 2)
myRow = myRow + 1
End If
Next
Application.CutCopyMode = False
wbQuelle.Close

Gruss Torsten
Anzeige
AW: VBA- aus anderer Mappe kopieren)mit Kriterium)
23.09.2019 11:31:36
Fred
Hallo Torsten,
"myRow = myRow + 1" klein aber fein.
Danke für deine Hilfe,- nun funzt es.
Gruß
Fred
gerne...
23.09.2019 11:51:41
Torsten

304 Forumthreads zu ähnlichen Themen


Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...

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...

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige