1.3k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo! Ich bins mal wieder

Ich habe ein Problem und komme einfach nicht auf die richtige Lösung:

Ich habe ein Tabellenblatt in dem in den Zellen C1, E1, G1, I1, J1....,
also immer in jeder zweiten Spalte, etwas steht.

Ich brauche für mein Script die Nummer der ersten leeren Spalte.
Beispiel:
Die Zellen C1, E1 und G1 sind nicht leer. Die Variable soll also nicht 3, 5 oder 7 enthalten, sondern 9 für Spalte I.

Das habe ich bisher hinbekommen:


i = 3
While Not Cells(1, i) = ""
i = i + 2
Worksheets("Archiv").Range("A1").Value = i
Wend


Leider ignoriert Excel völlig, dass die Zellen nicht leer sind und lässt immer die 3 in i. Die gesamte Schleife wird eigentlich ignoriert, denn der Wert von i wird auch nicht in Zelle A1 geschrieben.

Könnt ihr mir weiterhelfen???

Danke schonmal im Voraus,
mcscool88

3 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo,

dazu brauchst Du keine Schleife.
Eine mögliche Lösung wäre diese

Option Explicit

Sub spalte()
MsgBox ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column + 1
End Sub


Gruß
Rainer
0 Punkte
Beantwortet von
Hallo Rainer!

Vielen Dank für deine Hilfe.

Das läuft ja super. Du kannst dir garnicht vorstellen wie lange ich daran jetzt gesessen habe. Erzähle ich besser garkeinem :D

Danke!

Frohe Weihnachten und einen guten Rutsch ins neue Jahr
0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo mcscool88,

danke für die Rückmeldung und ebenfalls Frohe Weihnachten und einen guten Rutsch für Dich.

Rainer
...