Hallo,
ich möchte in meinem Code eine ganze Spalte nach Einträgen prüfen. Wenn in der ersten Spalte irgendwo etwas steht soll eine neue Spalte generiert werden und falls die Spalte leer ist soll nichts geschehen. Dabei habe ich 2 Tabellenblätter die überprüft werden sollen. Also falls eine der Tabellen einen Eintrag hat soll in beiden Sheets eine neue Spalte am Anfang generiert werden. Die einzige Möglichkeit die ich hinbekommen habe bis jetzt ist folgender Code:
If ActiveSheet.WorksheetFunction.CountA(Range("A:A")) <> 0 Then
Tab1.Range("A:A").EntireColumn.Insert
Tab2.Range("A:A").EntireColumn.Insert
End If
Das Problem bei dem Code ist, dass nur die Excel Tabelle überprüft wird die gerade bei mir offen ist. Das heisst die "nicht aktive" Tabelle wird garnicht überprüft.
Folgende Codes habe ich auch versucht, allerdings bekam ich jedes mal eine Fehlermeldung:
If Tab1.Range("A:A") <> 0 Then ...
If Worksheets.("Tab1").Columns(1) <> 0 Then...
Jemand eine Idee wie es funktionieren könnte? Wo liegt mein Fehler.
Vielen Dank
Mert
|