Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1052to1056
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
Inhaltsverzeichnis

xlDown Begrenzung

xlDown Begrenzung
26.02.2009 16:45:31
tursiops
Hallo!
Ich brauch nochmal etwas Hilfe. Der unten vermerkte Code muss noch etwas verändert werden. Es dürfen nur bis max. Zeile 42 Werte eingeben werden. Das heißt, der Code müsste so begrenzt werden, dass wenn alle Zeilen bis 42 gefüllt sind das Anlegen neuer Datensätze verhindert wird und eine Fehlermeldung erscheint.
Wäre nett wenn mir nochmal jemand helfen könnte.

Private Sub CommandButton1_Click()
Sheets("B").Select
'Neuen Datensatz anlegen
Dim letzte_Zeile As Long
With Worksheets("B")
'Die letzte beschrieben Zeile in Spalte A ermitteln
letzte_Zeile = .Range("A3").End(xlDown).Row + 1
.Cells(letzte_Zeile, 78) = TextBox1.Text 'Nachname
.Cells(letzte_Zeile, 79) = TextBox2.Text 'Vorname
End With
Unload UserForm1
End Sub


Gruß tursiops

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xlDown Begrenzung
26.02.2009 16:48:57
Renee
Hi tursiops (...wie heissen den Deine Mutter oder Dein Vater ?)... ;-)
Nach...letzte_Zeile = .Range("A3").End(xlDown).Row + 1

if letzte_Zeile = 43 then
Msgbox "VOLL! und tschüss", vbOkOnly
Exit Sub
End if 


GreetZ Renée

oder besser...
26.02.2009 16:53:10
Renee
Hi tursiops,
Da ich nicht weiss, was dein Userform1 verbricht:

if letzte_Zeile > 42 then
Msgbox "VOLL! und tschüss", vbOkOnly
Exit Sub
End if 


GreetZ Renée

Klappt super! Danke
26.02.2009 17:06:10
tursiops
Super gelöst. Vielen Dank!!!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige