Also zum Code einstellen, mal die Beschänkunge für die Seite aufheben, bzw. teilweise erlauben. Spätestens dann ist über dem Eingabefeld diese Leiste
Dort das rote {...} Code anklicken und deinen Code in das Fenster schreiben.
Mal eine Frage zu deinem COde. Warum suchst du "*" ? Damit suchst du doch prakitsch alles. Sollte da nicht s stehen. Welchen Wert willst du größtezeile zufügen? Die letzte beschrieben Zeile? Bzw. warum steht die Zeile im Code:
Groestezeile = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row)
Du nutzt sie nicht und überschreibst sie zwei Zeilen später.
Die Zuweisunge der Werte für s, j, w, e musst du drehen. So weißt du den Textboxen was zu. Ich glaube, wenn du
setzt, sollte es gehen. Die anderen Werte aber auch tauschen. Unten nochmal dein Code für die anderen zum Lesen. :-D Viele Grüße
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | Option Explicit
Private Sub CommandButton1_Click()
Dim i As Long
Dim s As Long
Dim j As Long
Dim Groestezeile As Long
Dim w As Integer
Dim e As Integer
TextBox5.Value = s
TextBox4.Value = j
TextBox2.Value = w
TextBox1.Value = e
MsgBox s
With ActiveSheet
Groestezeile = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1). End (xlUp).Row)
Debug.Print Groestezeile
Groestezeile = .Columns(1).Find( "*" , .Cells(1, 1), xlValues, xlWhole, , xlPrevious).Row
Debug.Print Groestezeile
End With
For i = 3 To Groestezeile
If ActiveSheet.Cells(i, 1) = s Then
ActiveSheet.Rows(i - 1 & ":" & i - 1).Insert Shift:=xlUp
End If
Next i
End Sub
|
|