Excel2003: Automatische Datenübernahme aus verschiedenen Zellen

05/02/2008 - 15:31 von Erich Jung | Report spam
Hallo Excel-Forum,

ich habe da mal wieder ein kleines Problem.

Über eine Inputbox gebe ich Werte in verschiedene Zellen ein. Die
Inputbox wird über eine Schleife mehrmals (10x) zur Eingabe der Werte
in einem Makro aufgerufen. Die Werte die vorher schon in den Zellen
standen werden als Vorbelegung (defaultwert) in der Inputbox angezeigt
und können dann bei Bedarf geàndert werden.

Das funktioniert auch soweit. Der 10. Wert soll aber aus zwei anderen
Zellen, die vorher über die Inputbox geàndert wurden, zusammengesetzt
werden. Das funktioniert aber nicht. Erst wenn ich die Schleife ein
zweites Mal laufen lasse wird der Wert richtig übernommen.

Was kann die Ursache sein? Kann es sein dass innerhalb der Schleife
die Werte noch nicht übernommen werden können?

Ich hoffe ich habe mich einigermaßen verstàndlich ausgedrück und es
hat femand von Euch einen Rat.

Danke und viele Grüsse
Erich
 

Lesen sie die antworten

#1 Wolfgang Habernoll
05/02/2008 - 16:08 | Warnen spam
Hallo Erich

"Erich Jung" schrieb im Newsbeitrag
news:
Hallo Excel-Forum,

ich habe da mal wieder ein kleines Problem.

Über eine Inputbox gebe ich Werte in verschiedene Zellen ein. Die
Inputbox wird über eine Schleife mehrmals (10x) zur Eingabe der Werte
in einem Makro aufgerufen. Die Werte die vorher schon in den Zellen
standen werden als Vorbelegung (defaultwert) in der Inputbox angezeigt
und können dann bei Bedarf geàndert werden.

Das funktioniert auch soweit. Der 10. Wert soll aber aus zwei anderen
Zellen, die vorher über die Inputbox geàndert wurden, zusammengesetzt



prüfst du das auch ?

werden. Das funktioniert aber nicht. Erst wenn ich die Schleife ein
zweites Mal laufen lasse wird der Wert richtig übernommen.

Was kann die Ursache sein? Kann es sein dass innerhalb der Schleife
die Werte noch nicht übernommen werden können?



doch das sollten sie

Ich hoffe ich habe mich einigermaßen verstàndlich ausgedrück und es
hat femand von Euch einen Rat.



versuche es mal mit diesem kleinem Beispiel für A1-A10

Sub InputTest()
Dim iI As Integer
Dim sP As String
For iI = 1 To 10
If iI < 10 Then sP = Cells(iI, 1) Else sP = Cells(1, 1) & Cells(5, 1)
Cells(iI, 1) = InputBox("Test", , sP)
Next
End Sub

bei mir klappt das
mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen