Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige