So und nun zum Problem, ich versuche auszulesen ob das Kommentar von diversen Zellen "leer" ist ich hab anfangs "leer" in alle Zellen 5x5 reingeschrieben.
Nun soll es daraum gehen, dass wenn man etwas "lagern will, erst geschaut wird welcher Platz "leer" ist und wenn einer leer ist soll in das Kommentar der Artikelname geschrieben werden später dann auch noch mehr aber das ist ja uninteressant ich frage mich nur wie ich den comment befehl so in die schleife einbinden kann das es läuft hat jemand eine idee?
private Sub Wareneinlagern_Click()
Dim zeile As Integer
Dim spalte As Integer
spalte = 2
zeile = 2
Do
Do While Not Worksheets(3).Cells(zeile, spalte).Comment.Text <> "leer"
Do While Not Worksheets(3).Cells(zeile, spalte).Comment.Text <> "leer"
spalte = spalte + 1
Loop
zeile = zeile + 1
Loop
Worksheets(3).Cells(zeile, spalte).Comment.Text Text:=Artikel
Loop While Menge > 100
End Sub
Nun soll es daraum gehen, dass wenn man etwas "lagern will, erst geschaut wird welcher Platz "leer" ist und wenn einer leer ist soll in das Kommentar der Artikelname geschrieben werden später dann auch noch mehr aber das ist ja uninteressant ich frage mich nur wie ich den comment befehl so in die schleife einbinden kann das es läuft hat jemand eine idee?
private Sub Wareneinlagern_Click()
Dim zeile As Integer
Dim spalte As Integer
spalte = 2
zeile = 2
Do
Do While Not Worksheets(3).Cells(zeile, spalte).Comment.Text <> "leer"
Do While Not Worksheets(3).Cells(zeile, spalte).Comment.Text <> "leer"
spalte = spalte + 1
Loop
zeile = zeile + 1
Loop
Worksheets(3).Cells(zeile, spalte).Comment.Text Text:=Artikel
Loop While Menge > 100
End Sub
