Hallo zusammen,
ich komme nicht mehr weiter. Ich filtere in einer Tabelle nach Zeilen und möchte deren Inhalt (nicht Copy der Zeile) rausschreiben und in eine andere Tabelle an einer bestimmten Position einfügen.
Folgenden Code verwende ich aktuell:
Do While eingefügteZeilen3 < anzahlZeilen1
Worksheets("ÄMs Datenextract").Activate 'Spalte B Kopieren Inhalt Text
zeileninhalt_text = ActiveSheet.Cells(eingefügteZeilen2, 2).Value
Worksheets("ÄMs").Activate
ActiveSheet.Range("B" & gesuchteZeile3) = zeileninhalt_text
Worksheets("ÄMs Datenextract").Activate 'Spalte C Kopieren Inhalt Text
zeileninhalt_text = ActiveSheet.Cells(eingefügteZeilen2, 3).Value
If zeileninhalt_text <> "" Then
zeileninhalt_datum = CDate(zeileninhalt_text)
Worksheets("ÄMs").Activate
ActiveSheet.Range("C" & gesuchteZeile3) = zeileninhalt_datum
Else
Worksheets("ÄMs").Activate
ActiveSheet.Range("C" & gesuchteZeile3) = zeileninhalt_text
End If
Worksheets("ÄMs Datenextract").Activate 'Spalte D Kopieren Inhalt Text
zeileninhalt_text = ActiveSheet.Cells(eingefügteZeilen2, 4).Value
Worksheets("ÄMs").Activate
ActiveSheet.Range("D" & gesuchteZeile3) = zeileninhalt_text
eingefügteZeilen2 = eingefügteZeilen2 + 1
gesuchteZeile3 = gesuchteZeile3 + 1
eingefügteZeilen3 = eingefügteZeilen3 + 1
Loop
So der Code gekürzt (geht bis Spalte O so weiter). Ich muss mir jeweils den Inhalt raussuchen, da die ursprüngliche Tabelle alles als Text ausgibt und ich teilweise Datum oder Zahlen habe.
Mein Problem (rot markiert) ist, dass ich nicht mit einer Schleife arbeite und daher nicht nur die sichtbare Zeile rüberschreibe, sondern auch die gefilterten. Die max. Anzahl der Zeilen funktioniert einwandfrei.
Kann mir hier jmd. mit der Schleife dazu helfen, ich komme einfach nicht weiter?
ich kann auch gerne eine Schleife pro Spalte (Und nicht pro Zeile) machen, ist vom Verständnis her für mich einfach, trotzdem klappt es nicht.
Freundliche Grüße