Variablen deklarieren
22.09.2003 08:42:29
Lukas
ich habe hier folgenden Code bekommen, doch leider funktioniert
er so nicht, welche Variablen muss ich hier wie deklarieren???
Wäre echt nett wenn mir jemand weiterhelfen könnte.
DANKE!!!
Private Sub Löschbutton_Click()
'erstellt am 19.09.03 von Bernhard Mächler
Dim Wert() As String
Wert = Split(ActiveCell.Address, "$")
r = Wert(2)
PN = Range("A" & r).Value
For i = 1 To 3
With Worksheets(i).Columns(2)
Set C = .Find(PN, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then T = i
End With
Next
If T > 0 Then
MsgBox "Achtung!" & Chr(13) & "gefunden in Tabelle " & T & Chr(13) & "nicht löschen."
Else
Selection.EntireRow.Delete
End If
End Sub