Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox | Herbers Excel-Forum


Betrifft: Inputbox von: Frank
Geschrieben am: 16.10.2008 15:23:23

Hallo,

ich habe diesen Code aus dem Forum und würde Ihn gerne erweitern nur habe ich
leider noch sehr wenig Kenntnisse in VBA wäre Super wenn mir jemand weiterhelfen könnte.

Ich möchte erst über eine Inputbox ein Tabellenblatt auswählen und dann den unten genannten Code in diesem anwenden.


Sub Suchen()
   Dim wks As Worksheet
   Dim rng As Range
   Dim strAddress As String, strFind As String
   strFind = InputBox("Bitte Suchbegriff eingeben:")
   If strFind = "" Then Exit Sub
   For Each wks In Worksheets
      Set rng = wks.Cells.Find(strFind, after:=ActiveCell, lookat:=xlWhole, LookIn:=xlFormulas)
      If Not rng Is Nothing Then
           strAddress = rng.Address
         Do
            Application.Goto rng, True
            If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
            Set rng = Cells.FindNext(after:=ActiveCell)
            Range("A1").Select
            If rng.Address = strAddress Then Exit Do
          Loop
       End If
     Next wks
     Range("A1").Select
End Sub



Gruss
Frank

  

Betrifft: AW: Inputbox von: sockel939
Geschrieben am: 16.10.2008 15:26:17

Hallo Frank

Vor den code

Worksheets(InputBox("Bitte Tabellenname eingeben")).Select

Tom alias sockel


  

Betrifft: AW: Inputbox von: Frank
Geschrieben am: 16.10.2008 15:33:50

Hallo Tom,

vielen Dank für die schnelle Hilfe.


Viele Grüße
Frank


  

Betrifft: AW: Inputbox von: sockel939
Geschrieben am: 16.10.2008 15:37:34

No Problemo

Bye


Beiträge aus den Excel-Beispielen zum Thema "Inputbox"