Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA InputBox

VBA InputBox
18.06.2009 14:21:23
Einzel
Hallo,
habe folgenden CODE

Sub Bemerkung()
Dim Eingabe As String
Dim erg%
Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:")
Range("B6").Value = Text
End Sub


Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
Wer weis um Rat?
MfG
Stephan

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA InputBox
18.06.2009 14:35:48
Gilligan

Sub Bemerkung()
Dim Eingabe As String
Dim erg%
Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:")
If Range("B6").Value = "" then Range("B6").Value = Text
else Range("B7").Value = Text
endif
End Sub


oder als Schleife (erste leere Zeile)


Sub Bemerkung()
Dim Eingabe As String
Dim Zeile as integer
Zeile=6
Dim erg%
Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:")
do until cells(zeile,2) =""
zeile=zeile+1
end loop
cells(zeile,2)=Text
End Sub


Code ist nicht getestet, aber in diesem Sinne geht es.

Anzeige
AW: VBA InputBox
18.06.2009 14:43:11
Einzel
Cool genau das suchte ich.
Spitzen Leute hier. Danke
MfG
Stephan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige