Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile mit bestimmten Keyword ausschneiden und in a
 17.07.2009 01:01:57 proark
NotSolved
17.07.2009 11:19:20 Holger
NotSolved

Ansicht des Beitrags:
Von:
proark		 Datum:
17.07.2009 01:01:57		 Views:
1678		 Rating:
     
Antwort:
  Ja
Thema:
Zeile mit bestimmten Keyword ausschneiden und in a
Guten Morgen die VBA Profis,

ich habe folgendes Problem:

Ich will in dem Tabellenblatt 1 alle Zeilen, in denen das Wort "Completed" vorkommt auschneiden und in ein anderes Tabellenblatt kopieren. (Tabellenblatt 2). ---> Comletet steht in der excel immer in der spalte "J"

Hab da schon ein wenig was hinbekommen, dass problem ist aber, dass er beim ersten mal ausführen nicht direkt alle mit completed übernimmt. Desweiteren überschreibt er die alten in Tabellenblatt 2 einfach, wenn in Tabellenblatt 1 neue hinzukommen und ich das makro noch einmal ausführe. Hier sollte das script, in die erste leere Zeile springen von Tabellenblatt2 und die Zeile hier rein kopieren. Das funktioniert noch nicht...

Wäre nett, wenn mir hier jemand helfen könnte.

Sub CopyValues()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 10).End(xlUp).Row
lRowT = 1
dValue = "completed"
For lRow = 2 To lRowL ' Schleife ab Zeile 2 starten
If Not IsEmpty(Cells(lRow, 10)) Then ' Wenn in der aktuellen Zeile, die Spalte J etwas drin steht mache folgendes:
If Cells(lRow, 10).Value = dValue Then ' Wenn in der atuellen Zeile, in der Spalte J "completed" vorkommt, mache folgendes:
lRowT = lRowT + 1 '
lastrow = Worksheets("Solved Issues").Range("d65536").End(xlUp).Row
Worksheets("Solved Issues").Rows(lastrow).Value = Rows(lRow).Value ' Werte in das andere Tabellenblat schreiben
Rows(lRow).EntireRow.Delete
End If
End If
Next lRow
End Sub

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 Zeile mit bestimmten Keyword ausschneiden und in a
 17.07.2009 01:01:57 proark
NotSolved
17.07.2009 11:19:20 Holger
NotSolved