Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Hallo alle miteinander, hätt da mal eine Frage... folgendes beispiel A B C D 1 x test test test 2 test2 test2 test2 3 test3 test3 test3 4 x test4 test4 test4 nun möchte ich, dass mir in einer anderen Tabelle, z.b. Tabelle 2, wenn das Beispiel oben in Tabelle1 steht, die Zeilen, welche mit einem x gekennzeichnet werden ausgegeben werden. hoffe ihr knönt mir da helfen gruß morpheus

Hi Morpheus,

versuch mal das hier. Hoffe das ist das was du dir vorgestellt hast. Wenn nicht melde dich nochmal.

Gruß Thomas



Sub test()

Dim row As Integer 'Reihen Wert der Original Werte
Dim insertRow As Integer 'Reihen Wert der Ziel Tabelle

Sheets("Tabelle1").Select 'Tabellenblatt mit den Originaldaten wird geöffenet
For row = 1 To 100 '100 ist die Anzahl der Zeilen die durchsucht wird. Ewentuell anpassen
If Cells(row, 1).Value = "x" Then
Rows(row).Select
Selection.Copy
Sheets("Tabelle2").Select 'Ziel Tabellenblatt wird geöffnet
For insertRow = 1 To 100
If Cells(insertRow, 1).Value = "" Then
Cells(insertRow, 1).Select
ActiveSheet.Paste
Exit For
End If
Next insertRow
End If
Sheets("Tabelle1").Select
Next row

End Sub

hallo thomas

wollte dir nur schnell ein feedback geben.
vielen herzlichen dank für deine hilfe.
hast mir echt geholfen und ist genau dass, was ich suche.

gruß
morpheus

Hey Morpheus,

freut mich, dass es funktioniert. Entlich konnte ich auch mal helfen, nachdem ich schon sooo oft Hilfe bekommen habe.

Gruß Thomas

• Makro - Zeilen einfügen mit Spaltenbegrenzung
• jede 5 Zeile aus .txt Datei in Excel kopieren
• Zellen auslesen
• Excel hat 65.536 Zeilen
• Zeilen einfügen