Ganze Zeile kopieren, wenn eine Zelle le

klwae · 2022-02-03T21:01:46+00:00

Hallo, vielleicht könnt Ihr/Sie mir helfen. Ich möchte aus einer Datei (Zieldatei) heraus eine zweite Datei [Quelldatei (*.csv)] öffnen und überprüfen. In dieser (csv-Datei) soll zuerst in der Spalte F nach dem Inhalt Standard durchsucht werden. Ist der Wert vorhanden, sollen die dazugehörigen Zellen in den Spalten A, B, M, O und T auf "leere Zellinhalt" (kein Inhalt) hin überprüft werden. Ist nur eine der Zellen leer, soll die gesamte Zeile in die erste Datei kopiert. Vielen Dank im Voraus und Gruß Klaus

Hallo,
ich hab mich mich mal versucht ...
Das Ergebnis ist nur eine Zeile und die ist noch ausgeblendet.
Wo hab ich hier ein Fehler?


Sub CommandButton2_Click()
'läuft nicht richtig
Dim ws As Worksheet, wsZ As Worksheet, efz%, i%, leer As Boolean
Dim c As Range
Dim b As Range
Set ws = Workbooks("urliste-Kopie.csv").Worksheets("urliste-Kopie")    'ThisWorkbook.Worksheets("urliste")
Set wsZ = Workbooks("SpaltenÜberprüfen v0.1.xlsb").Worksheets("Tabelle2")
For i = 2 To 1469
If ws.Cells(i, 6).Value = "Standard" Then   'suche "Standard" in spalte F
If ws.Cells(i, 11).Value = "" Or _
ws.Cells(i, 14).Value = "" Or _
ws.Cells(i, 15).Value = "" Or _
ws.Cells(i, 39).Value = "" Or _
ws.Cells(i, 41).Value = "" Or _
ws.Cells(i, 43).Value = "" Or _
ws.Cells(i, 45).Value = "" Or _
ws.Cells(i, 48).Value = "" Or _
ws.Cells(i, 49).Value = "" Or _
ws.Cells(i, 50).Value = "" Or _
ws.Cells(i, 52).Value = "" Or _
ws.Cells(i, 54).Value = "" Or _
ws.Cells(i, 56).Value = "" Or _
ws.Cells(i, 57).Value = "" Then
'kopieren und in Zieldatei eintragen
'        If leer = False Then
efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Rows(i).Copy wsZ.Cells(efz, 1)
'        End If
Application.CutCopyMode = False
End If
End If
Next i
End Sub

Hallo Klaus,
A,B,M,O und T sind die Spalte 1,2,13,15 und 20. Warum prüftst Du die Spalte 11, 14, 15, ... ?
Probier folgendes. Datei wird als Textdatei gelesen, dann bei Treffer ins Excel eingefügt.
Du brauchst einen Verweis (Extras, Verweis...) auf "Microsoft Scripting Runtime", um FileSystemObject und Textstream zu verwenden.
csv-Pfad anpassen.


Sub CSV_lesen()
Dim FSO As New FileSystemObject
Dim TS As TextStream
Dim wsZ As Worksheet
Dim Arr, S
Set wsZ = Workbooks("SpaltenÜberprüfen v0.1.xlsb").Worksheets("Tabelle2")
Set TS = FSO.OpenTextFile("C:\temp\urliste-Kopie.csv", ForReading)
Do While Not TS.AtEndOfStream
Arr = Split(TS.ReadLine, ";")
If LCase(Trim(Arr(5))) = "standard" Then
For Each S In Array(0, 1, 12, 14, 19) 'A,B,M,O, T aber Array fängt mit 0 an
If Arr(S) = "" Then
wsZ.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(Arr) + 1) = Arr
Exit For 'nicht mehrfach kopieren
End If
Next
End If
Loop
TS.Close
End Sub

Sollte dein csv (mit Notepad öffnen, um zu prüfen) doppelte Hochkommatas verwenden, um die Text zu delimitieren, dann eventuell so prüfen


If Arr(S) = """""" Then

VG
Yal

Ganze Zeile kopieren, wenn eine Zelle le

Forumthread: Ganze Zeile kopieren, wenn eine Zelle le

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ganze Zeile kopieren, wenn eine Zelle le

Forumthread: Ganze Zeile kopieren, wenn eine Zelle le

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread