Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige