Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mussfelder

Mussfelder
02.12.2005 14:52:47
Bulli
Hallo zusammen,
habe in der Recherche folgenden Code gefunden, der mittels einer Userform ermöglicht, eine Eingabe für bestimmte Felder zu erzwingen.
Der Code wird hier nach unten fortlaufend ausgeführt (Row +1)
Wie müsste ich den Code ändern, wenn die Eingabefelder gleichbleibend sind und zwar nicht von A1 beginnend sondern immer in die Felder F19 bis K19 eingetragen werden soll?
Wäre einigermassen dringend... :-(
Vielen Dank,
Bulli

Private Sub CommandButton1_Click()
Dim aRow, i, j As Integer
For i = 1 To 6
If Me.Controls("Textbox" & i).Value = "" Then
MsgBox "Bitte erst alle Felder ausfüllen !"
Exit Sub
End If
Next i
aRow = [A65536].End(xlUp).Row + 1
For j = 1 To 6
Cells(aRow, j) = Me.Controls("Textbox" & j).Value
Next
Unload Me
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Mussfelder
02.12.2005 14:59:56
Matthias
Hallo Bulli,
z.B. so:

Private Sub CommandButton1_Click()
Dim i, j As Integer
Dim z As Range
For i = 1 To 6
If Trim(Me.Controls("Textbox" & i).Value) = "" Then 'auch keine Leerzeichen zulassen
MsgBox "Bitte erst alle Felder ausfüllen !"
Exit Sub
End If
Next i
Set z = Range("F19")
For j = 1 To 6
z.Value = Me.Controls("Textbox" & j).Value
Set z = z.Offset(0, 1)
Next
Unload Me
End Sub

Gruß Matthias
AW: Mussfelder
02.12.2005 16:20:45
Bulli
Hallo Matthias,
klappt ausgezeichnet!
Vielen Dank,
Gruß
Bulli
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige