Ganze Zeile kopieren, wenn eine Zelle le

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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, ";") Select Case LCase(Trim(Arr(5))) Case "standard", "andere text1", "andere text2" 'achtung nur kleinbuchstaben (LCase)! 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 Select Loop TS.Close End Sub

Beliebteste Forumthreads (12 Monate)

Ganze Zeile kopieren, wenn eine Zelle le

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ganze Zeile kopieren, wenn eine Zelle le

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

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread