Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textbox

Textbox
02.06.2003 15:09:14
Ulf
Hallo Excel Friends,

ich möchte in eine Textbox ein Datum eingeben dies soll dann in Spalte A geschrieben werden aber nur wenn in der zelle B daneben 1 steht.


danke Ulf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Textbox
02.06.2003 15:22:35
Mike E.

Hallo Ulf,

so müsste es gehen:

Private Sub TextBox1_Change()
If Cells(1, 2) <> 1 Then Cells(1, 1) = "" Else Cells(1, 1) = TextBox1.Value
End Sub

Gruß
Mike

Re: Textbox
02.06.2003 15:33:15
Ulf

Jau Mike funzt wohl.

aber nur in der Zelle A wie kriege ich es hin das es es bei mehreren zellen B untereinander auch funktioniert

danke schon mal für die hilfe bis jetz

ulf

Re: Textbox
02.06.2003 15:48:55
Mike E.

Hallo Ulf,

da würde ich eine WhileWend-Schleife d#rumherum bauen:

Private Sub TextBox1_Change()

Dim Zeile as Integer

Zeile = 1
While Sheets(1).Cells(Zeile,1) <>""

Zeile = Zeile + 1

Wend
If Cells(Zeile, 2) <> 1 Then Cells(Zeile, 1) = "" Else Cells(Zeile, 1) = TextBox1.Value
End Sub


Gruß
Mike

Anzeige
Re: Textbox
02.06.2003 15:54:49
Ulf

Jau Danke

bis demnächst

ulf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige