vba schleifen problem

vba schleifen problem (7 Beiträge, 216 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Liebe Experten, habe wieder mal ein kleines problem. Ich habe ein Tabellenblatt "Daten" mit x zeilen und 14 Spalten. Daraus will ich die relevanten Zeilen (Wenn in spalte 2: "XYZ" steht) in ein neues Tabellenblatt "Clean" kopieren. Mein erster Ansatz sieht wie folgt aus:

Sub makro()
Dim objWks As Worksheet
Set objWks = ThisWorkbook.Worksheets("Daten")
zeilennr = Application.WorksheetFunction.CountA(objWks.Columns(2))
For i = 2 To zeilennr
For j = 1 To 14 'Anzahl der Spalten
If Worksheets("Daten").Cells(i, 5) = "XYZ" Then
Worksheets("clean").Cells(i, j).Value = Worksheets("Daten").Cells(i, j).Value
End If
Next j
Next i
End Sub

Bin mit dem Ergebnis recht zufrieden bis auf, dass in der Tabelle "clean" die Zeilen nicht untereinander stehen sondern mit abständen wie sie halt im "daten" blatt vorkommen, beim versuch eine 3te schleife einzubauen bin ich aber leider gescheitert, vielleicht kann mir jmd. helfen!

Danke lg christoph

Re: vba schleifen problem (Penguin am 17.07.2007, 18:37:16)

Re(2): vba schleifen problem (wang am 18.07.2007, 08:45:45)

Re(3): vba schleifen problem (Penguin am 22.07.2007, 13:23:06)

Re(4): vba schleifen problem (wang am 24.07.2007, 19:44:52)

Re: vba schleifen problem (Ardjan am 19.07.2007, 11:27:17)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung