Hey Ich versuche gerade ein Skript zu schreiben dass den Inhalt mehrere Excel Tabellen zusammenkopiert das funktioniert nun auch soweit so gut.
Jetzt aber mein Problem die Tabellen haben zwar alle die gleichen Überschriften etc. nur beginnen sie in unterschiedlichen Zeilen (zwischen 3 und 9).
Meine Überlegung war daher die Zelle mit der Überschrift ("Bewertung") zu suchen und dann die Zelle darunter auf Inhalt zu prüfen um zu bestimmen ob meine Kopieren-Schleife laufen soll oder nicht.
Das mit der Zelle finden und Zelle auf Inhalt prüfen klappt soweit nur die Verknüpfung den Inhalt der Zeile unter der gefundenen zu prüfen klappt nicht so ganz.
Hier der Code den ich soweit bishher habe:
Zelle finden:
With ActiveSheet.Range("A3:A9")
Set a = .Find(What:="Bewertung")
End With
Debug.Print a.Row
Inhalt prüfen:
if range("A8").value ="" then
end if
Danke schonmal für die Hilfe :)
|