Hallo zusammen, nach einigem Probieren und Code ändern stelle ich fest, dass ich anscheinend auf einem Holzweg (zu dämlich) bin. Ich habe folgendes Problem und hoffe, dass einer eine tolle Idee hat :)
Ich habe eine Spalte (E), in der über eine Formel, je nach erfüllter Bedingung, eine "1" oder "" ausgegeben wird. In der Spalte "G" mache ich Eingaben. Darunter folgen Felder mit weiteren Eingabemöglichkeiten, aber nicht alle sollen gefüllt werden. Das hängt wiederum von anderen Faktoren ab. Jetzt versuche ich Folgendes:
Ab der Zelle, auf der ich gerade bin (also in Spalte G bspw Zelle 30) soll Excel in Spalte E ab Zelle (aber ohne diese bei der Suche einzuschließen) schauen, wo die nächste "1" ist und dann in Spalte G wieder in diese Zeile springen. Sprich, die nächste 1 steht bspw. in E34, dann soll in das Feld G34 gesprungen werden.
Dafür habe ich mir folgenden (nicht funktionierenden) Code überlegt:
Dim k As Long
Dim j As Long
k = ActiveCell.Row - 1 'weil der Code nach "Enter" ausgeführt wird, -1. Das passt auch (Meldung von MsgBox)
MsgBox k
j = Cells(k, 5).End(xlDown).Row
MsgBox j 'hier wird dann die Zeile 32 ausgegeben, obwohl dort keine 1 in Spalte G steht. Ich erwarte 34.
If Cells(j, 5) = "1" Then Cells(j, 7).Select 'das macht xls dann auch nicht.
VIELEN DANK!
Christian