Supportnet / Forum / Tabellenkalkulation
hilfe zur makro-erweiterung
Frage
hallo,
ich bin´s wieder mit einer frage bei der mir hoffentlich geholfen werden kann.
im tabellenblatt 2 habe ich folgenden makro:
[code] Sub makro03()
anfang:
Dim zaehler1, zaehler3, zeile1
Dim suche1, suche2, wert01, firstAddress, wert03
zeile1 = 500
ReDim wert02(zeile1)
Rows("6:" & zeile1).EntireRow.Hidden = False
wert01 = InputBox("Bitte Darsteller eingeben")
If wert01 = "" Then End
Set suche1 = Worksheets("DVD´s").Range("e6:e" & zeile1).Find(wert01, LookIn:=xlValues)
If Not suche1 Is Nothing Then
wert02(suche1.Row) = 1
firstAddress = suche1.Address
Do
Set suche1 = Worksheets("DVD´s").Range("e6:e" & zeile1).FindNext(suche1)
If Not suche1 Is Nothing And suche1.Address <> firstAddress Then wert02(suche1.Row) = 1
Loop While Not suche1 Is Nothing And suche1.Address <> firstAddress
End If
For zaehler1 = 6 To zeile1
If wert02(zaehler1) = 0 Then
Rows(zaehler1 & ":" & zaehler1).EntireRow.Hidden = True
End If
wert03 = wert03 + wert02(zaehler1)
Next zaehler1
If wert03 = 0 Then
zaehler3 = MsgBox("Nix gefunden !!!" & Chr$(13) & "nochmal Suchen ?", vbYesNo + vbQuestion)
Rows("6:" & zeile1).EntireRow.Hidden = False
End If
If zaehler3 = vbYes Then GoTo anfang
End Sub[/code]
ist es möglich, dass er auch mit tabellenblatt 3 kombiniert werden kann, wobei da die darsteller unter "H" stehen, so, dass die darsteller, besser gesagt die filme derer aus tabellenblatt 2 & 3 untereinander in tabellenblatt 2 stehen ?