Herbers Excel-Forum - das Archiv

Eintrag in mehreren Datenblättern suchen

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
Excel-Beispiele zum Thema " Eintrag in mehreren Datenblättern suchen"
Doppelte Einträge finden und löschen Submenüeinträge
Seitenanzahl eintragen Letztes Speicherdatum eintragen
Fußzeilen beim Öffnen eintragen Wert in erste leere Zelle eintragen
Häkchen eintragen KGRÖSSTE über VBA eintragen
Wochentage Mo - Fr in Tabelle eintragen Arbeitsmappe unter dem Text eines Zelleintrags speichern