Hi,

Die Problembeschreibung ist, zumindest für mich, nicht ausreichend.
Hast Du denn schon Code für den Button zur Übertragung? Wenn ja, dann wirst Du ja sicher irgendwie die ZeilenNummer für das Einfügen ermitteln. So Du dies tust, könntest Du mit einer einfachen If-Bedingung vor dem Einfügen sicherstellen, dass die ZeilenNummer nich grösser als 122 sein darf. z.B. wie folgt:

.
.
.
With ThisWorkbook.Worksheets("Tabelle1")
    If lngZeile > 122 Then MsgBox "Eingabebereich ist voll": Exit Sub
    .Range("A" & lngZeile).Value = UserForm1.TextBox1.Value
    .Range("B" & lngZeile).Value = UserForm1.TextBox2.Value
    .
    .
End With
.
.
.

So Du schon eigenen Code für Deinen Button hast, wäre es nicht soo schlecht, diesen hier auch zu posten.

bye
malSchauen

Hi,

mein Code den ich hatte, hat immer eine leere Zelle gesucht,
bei Eingabe über das Userform wurden dann die Einträge in der Tabelle unterhalb meiner Berechnungen angelegt.

Jetzt fange ich von vorne an,

Private Sub CommandButton1_Click()

Worksheets("Jan").Range("B14") = Me.TextBox1 ' Eingabedatum
Worksheets("Jan").Range("A14") = Me.TextBox11 'Kalenderwoche

End Sub

Hi,

Ich nehme an, Du hast die LeerZeile vom Ende der Tabelle her ermittelt. Wenn Du Schreibst, dass ab Zeile 124 die Berechnungen beginnen, dann würde ich von dort aus nach oben schauen, um die ZielZeile zu ermitteln. Das würde bei mir dann ungefähr aussehen, wie folgt:

Private Sub CommandButton1_Click()

Dim lngZielZeile As Long
        
With ThisWorkbook.Worksheets("Jan")
        lngZielZeile = .Range("A" & 124).End(xlUp).Offset(1, 0).Row 'von erster Berechnung nach oben suchen (Leerzeile)
        If lngZielZeile < 14 Then lngZielZeile = 14                 'Wenn Ergebnis kleiner 14 dann setze Ziel auf 14
        If lngZielZeile > 122 Then MsgBox "Eingabebereich ist voll": Exit Sub   'Wenn >122, Meldung und raus
        .Range("A" & lngZielZeile).Value = Me.TextBox11.Value           'KW in Spalte A
        .Range("B" & lngZielZeile).Value = Me.TextBox1.Value            'Datum in Spalte B
End With

End Sub

bye
malSchauen

Hi,

nach einem schnellen Test, sieht das Super aus mit deimem Code,

Vielen Dank

Sollte ich noch Fragen haben, darf ich mich dann wieder an dich wenden.

Gruß

HWR