2 Probleme in VBA

Forumthread: 2 Probleme in VBA

2 Probleme in VBA

05.01.2005 14:56:32

ClaudiaB

Hallo,
ich habe 2 Probleme:
Habe ein DVD-Archiv in Excel erstellt.
Titel stehen in Spalte A und Schauspieler in Spalte B
Nun mein Programm:


Sub suchen()
a = InputBox("Titel eingeben")
Cells.Find(What:=a).Activate
End Sub

Jetzt möchte ich dass der gesuchte Titel der DVD und
die Schauspieler in einer MsgBox gezeigt werden.
2.Problem:
Bsp.:
American Pie 1
American Pie 2
American Pie 3
Jetzt möchte ich dass in einer MsgBox alle 3 Titel angezeigt
werden oder dass ich irgendwie meinen gesuchten Titel Titel
auswählen kann.
Wenn mir jemand helfen könnte, wäre ich sehr dankbar!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zu Problem 1

05.01.2005 15:50:34

Peter
AW: zu Problem 1

05.01.2005 17:13:31

Peter
AW: zu Problem 2

Peter

AW: zu Problem 1

05.01.2005 15:50:34

Peter

Hallo Claudia,
mal so als Ansatz:

Sub suchen_DVD()

Dim Titel        As String
Dim found        As Range
Dim fiadr        As String
Dim SpalteB      As String
   Titel = InputBox("bitte einen Film-Titel eingeben")
   Set found = Cells.Find(What:=Titel, LookIn:=xlValues, LookAt _
       :=xlPart, MatchCase:=False)
   If Not found Is Nothing Then
       fiadr = found.Address
       Do
          SpalteB = found.Address
          SpalteB = Left(SpalteB, 1) & "B" & Mid(SpalteB, 3, Len(SpalteB) - 2)
          MsgBox "Titel: " & vbTab & vbTab & found & vbLf & " Schauspieler: " & vbTab & _
             Range(SpalteB).Value
          Set found = Cells.FindNext(found)
       Loop While Not found Is Nothing And found.Address <> fiadr
   End If
End Sub

Gruß Peter

AW: zu Problem 1

05.01.2005 17:13:31

Peter

Hallo Claudia,
so ist es etwas erweitert.

'
'   die Filmtitel stehen in Spalte A, die Schauspieler in Spalte B
'
'   auch wenn ein Schauspieler in Spalte B gefunden wird, wird die
'   Anzeige in der richtigen Reihenfolge ausgegeben.
'
Sub suchen_DVD()

Dim Titel        As String
Dim found        As Range
Dim fiadr        As String
Dim SpalteB      As String
   Titel = InputBox("bitte einen Film-Titel eingeben")
   Set found = Cells.Find(What:=Titel, LookIn:=xlValues, LookAt _
       :=xlPart, MatchCase:=False)
   If Not found Is Nothing Then
       fiadr = found.Address
       Do
          SpalteB = found.Address
          If Mid(SpalteB, 2, 1) = "A" Then        ' Begriff in Spalte A gefunden ?
             SpalteB = Replace(SpalteB, "A", "B") ' Spalte B ermitteln
             MsgBox "Titel: " & vbTab & vbTab & found & vbLf & " Schauspieler: " & vbTab & _
                Range(SpalteB).Value
           Else                                   ' Begriff in Spalte B gefunden !
             SpalteB = Replace(SpalteB, "B", "A") ' Spalte A ermitteln
             MsgBox "Titel: " & vbTab & vbTab & Range(SpalteB).Value & vbLf _
                 & " Schauspieler: " & vbTab & found
          End If
          Set found = Cells.FindNext(found)
       Loop While Not found Is Nothing And found.Address <> fiadr
    Else
       MsgBox "zum Suchbegriff  " & Titel & "  wurde nichts gefunden.", _
          64, "der Suchbegriff  " & Titel & "  ist nicht vorhanden."
   End If
End Sub

Gruß Peter

AW: zu Problem 2

Peter

Hallo Claudia,
sicher nicht optimal, aber als Ansatz könntest du etwas daraus machen, auch ohne Excel/VBA Kenntnisse.
Gruß, Peter
https://www.herber.de/bbs/user/15669.xls

Beliebteste Forumthreads (12 Monate)

Forumthread: 2 Probleme in VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread