Re: Löschen in einem bestimmten Bereich
07.08.2002 11:58:22
Helmut K.
Hallo,so, hier habe ich dann mal die Codeschnipsel aus den beiden Forms kopiert die relevant sind. Ich hoffe mal, das mir jemand helfen kann.
Form 1:
Private Sub CommandButton1_Click() 'Daten eintragen und weiter
StrPalettennr = TextBox1.Text
Dim TargetRow As Range
Set TargetRow = Sheets("Warenerfassung").Range("A15")
FindEndeInsert TargetRow, "Warenerfassung"
DatenEinsetzen TargetRow
TextBox1 = ""
Unload Me
Warennummern.Show
End Sub
Private Sub FindEndeInsert(TargetRow As Range, Arbeitsblatt As String)
Set TargetRow = Sheets(Arbeitsblatt).Columns("A").Find("Ende", LookIn:=xlValues, SearchOrder:=xlByRows, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
TargetRow.EntireRow.Insert
Set TargetRow = TargetRow.Offset(-3, 0)
End Sub
Private Sub DatenEinsetzen(TargetRow As Range)
TargetRow.Range("E1").Value = TextBox1.Value
TargetRow.Range("A1").Value = Date
End Sub
Form 2:
Private Sub CommandButton1_Enter()
Dim TargetRow As Range
Set TargetRow = Sheets("Warenerfassung").Range("A15")
FindEndeInsert TargetRow, "Warenerfassung"
DatenEinsetzen TargetRow
TextBox1 = ""
TextBox2 = ""
FocusTextBox1
End Sub
Private Sub FindEndeInsert(TargetRow As Range, Arbeitsblatt As String)
Set TargetRow = Sheets(Arbeitsblatt).Columns("A").Find("Ende", LookIn:=xlValues, SearchOrder:=xlByRows, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
TargetRow.EntireRow.Insert
Set TargetRow = TargetRow.Offset(-3, 0)
End Sub
Private Sub DatenEinsetzen(TargetRow As Range)
TargetRow.Range("C1").Value = TextBox1.Value
TargetRow.Range("G1").Value = TextBox2.Value
End Sub