Thema Datum  Von Nutzer Rating
Antwort
Rot EXCEL VBA Prob, in nächste freie Zeile schreiben
 17.07.2007 16:21:34 christoph
Solved

Ansicht des Beitrags:
Von:
christoph		 Datum:
17.07.2007 16:21:34		 Views:
2550		 Rating:
     
Antwort:
 Nein
Thema:
EXCEL VBA Prob, in nächste freie Zeile schreiben
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot EXCEL VBA Prob, in nächste freie Zeile schreiben
 17.07.2007 16:21:34 christoph
Solved