Thema Datum  Von Nutzer Rating
Antwort
Rot Ganze Spalte auslesen und neue generieren
 17.10.2022 15:28:55 Mert
NotSolved
17.10.2022 22:53:31 ralf_b
Solved

Ansicht des Beitrags:
Von:
Mert		 Datum:
17.10.2022 15:28:55		 Views:
458		 Rating:
     
Antwort:
  Ja
Thema:
Ganze Spalte auslesen und neue generieren

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

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Ganze Spalte auslesen und neue generieren
 17.10.2022 15:28:55 Mert
NotSolved
17.10.2022 22:53:31 ralf_b
Solved