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

Userform Textbox1 Makro

Userform Textbox1 Makro
15.02.2008 12:59:41
achim
hallo excel freunde
wer kann mal schauen?
über eine userform1 textbox1 möchte ich schauen lassen wer alles die lehrgangsnummer eins hatt und nur die Nachname und vornamen dieser personen sollen in die ListBelehr
danke
achim h.

Die Datei https://www.herber.de/bbs/user/49945.xls wurde aus Datenschutzgründen gelöscht


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Textbox1 Makro
15.02.2008 13:29:47
Gilligan

Private Sub CommandButton1_Click()
Dim zeile As Integer
Dim zeile2 As Integer
zeile = 2
zeile2 = 24
Do Until ActiveWorkbook.Sheets("Grunddaten").Cells(zeile, 24) = 0
If ActiveWorkbook.Sheets("Grunddaten").Cells(zeile, 24) = UserForm1.TextBox1.Text Then
ActiveWorkbook.Sheets("ListBelehr").Cells(zeile2, 1) = ActiveWorkbook.Sheets(" _
Grunddaten").Cells(zeile, 5)
ActiveWorkbook.Sheets("ListBelehr").Cells(zeile2, 2) = ActiveWorkbook.Sheets(" _
Grunddaten").Cells(zeile, 6)
zeile2 = zeile2 + 1
End If
zeile = zeile + 1
Loop
End Sub


Anzeige
AW: Userform Textbox1 Makro
15.02.2008 13:40:00
achim
hallo gillian
danke für die schnelle rückmeldung..
ich bekomme mit deinem code die meldung end if ohne if block.
was muss ich machen?

AW: Userform Textbox1 Makro
15.02.2008 13:45:00
Gilligan
Bei mir gehts, kontrolliere mal die Formatierung des Codes.
Zeilenumbruch usw.

danke an die helfer super klappt
15.02.2008 13:48:00
achim
danke
achim h

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige