Hey WernerB.? Eine Frage noch?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AndreStorno() Dim SuBe As Range, c As Range Dim s As String Dim laR As Long Application.ScreenUpdating = False s = Sheets("Kontrolle").Range("I1").Value With Sheets("Gast") laR = .Cells(Rows.Count, 1).End(xlUp).Row Set SuBe = .Range("A1:A" & laR). _ Find(s, lookat:=xlWhole) If Not SuBe Is Nothing Then For Each c In .Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256)) If c.Value = Sheets("Kontrolle").Range("F1").Value Then c.Value = "" Exit For End If Next c Else MsgBox "Name nicht gefunden !" Exit Sub End If End With Set SuBe = Nothing Application.ScreenUpdating = True End Sub

Tut mir sehr leid, dir heute so auf die Nerven zu gehen, aber leider hab ich da doch noch eine Sache!

Ich brauche den letzten Code noch etwas modifiziert. Und zwar für die Löschung der ganzen Zeile von A bis IV (ist glaub ich die letzte Spalte!).

Wär echt nett, wenn du mir hier noch mal helfen könntest. Dann bin ich auch weg!
Versprochen!

Gruß Andre


Sub Storno()
Dim SuBe As Range, c As Range
Dim s As String
Dim laR As Long
Application.ScreenUpdating = False
s = Sheets("Kontrolle").Range("I4").Value
With Sheets("Gast")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range("A1:A" & laR). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
For Each c In .Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256))
If c.Value = Sheets("Kontrolle").Range("F4").Value Then
c.Value = ""
Sheets("Gast").Cells(SuBe.Row, 2).Value = Sheets("Gast").Cells(SuBe.Row, 2).Value - 1
Exit For
End If
Next c
Else
MsgBox "Name nicht gefunden !"
Exit Sub
End If
End With
Set SuBe = Nothing
Application.ScreenUpdating = True
End Sub

Sub Storno2() Dim SuBe As Range, c As Range Dim s As String Dim laR As Long Application.ScreenUpdating = False s = Sheets("Kontrolle").Range("I4").Value With Sheets("Gast") laR = .Cells(Rows.Count, 1).End(xlUp).Row Set SuBe = .Range("A1:A" & laR). _ Find(s, lookat:=xlWhole) If Not SuBe Is Nothing Then 'mit dieser Programm-Zeile werden nur die Inhalte der gefundenen Zeile gelöscht: .Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256)).ClearContents 'mit dieser Programm-Zeile wird die gefundene Zeile komplett entfernt: .Rows(SuBe.Row).Delete Shift:=xlUp Else MsgBox "Name nicht gefunden !" Exit Sub End If End With Set SuBe = Nothing Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread