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
s= TextBox5.Value
setzt, sollte es gehen. Die anderen Werte aber auch tauschen. Unten nochmal dein Code für die anderen zum Lesen. :-D Viele Grüße
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
|