Eintrag in mehreren Datenblättern suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Eintrag in mehreren Datenblättern suchen
von: Lukas
Geschrieben am: 19.09.2003 15:02:52

Hallo Jungs und Mädels,
habe folgendes Problem:
Ich habe ein Datenblatt wo alle Projekte aufgelistet sind.
Darauf wird von anderen Datenblättern drauf zugegriffen.
Wenn man ein Projekt löschen will, soll er erst in den
anderen Datenblätter (z.B. 1, 2, 3 ) suchen ob dieses Projekt in Spalte
B vorhanden ist, wenn nicht dann msgbox...:
stelle mir das so vor


Private Sub Löschbutton_Click()
Wert aus markierter Zeile aus Spalte A in Datenblatt 1 2 und 3 in
der Spalte B suchen, wenn gefunden dann nicht löschen, ansonsten
löschen.
End Sub


Danke Lukas
Bild


Betrifft: AW: Eintrag in mehreren Datenblättern suchen
von: Beni
Geschrieben am: 19.09.2003 21:50:06

Hallo Lukas,
habe es getestet.
Gruss Beni


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



Bild


Betrifft: welche variablen wie deklarieren?
von: Lukas
Geschrieben am: 22.09.2003 07:39:50

Hallo,
danke für den Code erstmal,
welche Variablen muss ich denn jetzt wie deklarieren??

Gruß Lukas


Bild


Betrifft: Danke hat sich erledigt o.T.
von: Lukas
Geschrieben am: 22.09.2003 09:45:42




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Eintrag in mehreren Datenblättern suchen"