Schleifen für Spaltendurchlauf
17.03.2015 22:27:56
Tobias
ich lese hier schon länger immer mal wieder fleissig nach, muss jetzt aber mal selber eine Frage stellen. :)
Mein Makro sieht derzeit so aus:
Sub Eingabe()
UserName = Windows.Application.UserName
Eingabe = InputBox("Hallo " & UserName & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Frage1", "Title1", ActiveSheet.Range("B4"))
If StrPtr(Eingabe) = 0 Then
End
Else
Range("B4").Value = Eingabe
End If
Eingabe = InputBox("Hallo " & UserName & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Frage2", "Title2", ActiveSheet.Range("B5"))
If StrPtr(Eingabe) = 0 Then
End
Else
Range("B5").Value = Eingabe
End If
End Sub
Ich behelfe mir meist so, da ich trotz tausendfachem lesen keine Schleife vernünftig ans laufen bekomme.
Leider ist es aber jetzt so, das wenn er bei b30 angekommen ist, in Spalte C wechseln soll. Maximum an Spalten die durchlaufen werden sollen sind 30 (und da wirds mir dann auch zuviel Kopierarbeit :(.
Ich befinde mich derzeit beruflich in Costa Rica, werde also vielleicht zu etwas merkwürdigen Zeiten antworten.
Vielen Dank im Voraus!