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

Suchmakro

Betrifft: Suchmakro von: Helga
Geschrieben am: 03.09.2004 23:12:24

Hallo Experten,
für mrine Tabelle1 brache ich ein Makro was die Spalte A51:A140 nach einer Nummer durchsucht.
Die Eingabe sollte über eine MsgBox erfolgen, und mit der Meldung gefunden oder nicht abgeschlossen werden. Es stehen nur Artikelnummer in der oben angegebenen Spalte.

MfG Helga

  


Betrifft: AW: Suchmakro von: torsten k
Geschrieben am: 03.09.2004 23:32:01

hi, er sucht nach dem eintrag in spalte a aus der inputbox und vergleich in dem bereich. es gibt eine meldung, wenn er die artikelnummer findet.

gruß

torsten

Sub suchen()

Dim ende As Integer
Dim wert As Integer

wert = InputBox("Bitte Artikenummer eingeben")


For ende = 5 To 150

    If ThisWorkbook.Worksheets("Tabelle1").Cells(ende, 1) = wert Then
    MsgBox ("Artikelnummer gefunden")
    
    End If

Next ende

    
End Sub



  


Betrifft: AW: Suchmakro von: ypsilon
Geschrieben am: 03.09.2004 23:32:11

hi Helga,
"Die Eingabe sollte über eine MsgBox erfolgen" <--dürfte schwierig werden ;-) kanns denn auch ne inputbox sein ?

Sub Suchen()
Dim Zelle As Range
Dim sBegriff As Integer
sBegriff = InputBox("Bitte die zu suchende Zahl eingeben", "Suchfenster", 1)
Set Zelle = Worksheets(1).Range("A51:A140").Find(sBegriff, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
MsgBox sBegriff & " in Zelle: " & Zelle.Address & " gefunden"
End If
End Sub


cu Micha


  


Betrifft: AW: Danke euch beiden o.T. von: Helga
Geschrieben am: 03.09.2004 23:35:52

:-))


  


Betrifft: AW: An Micha von: Helga
Geschrieben am: 04.09.2004 07:40:16

Hi Micha , leider bleibt dein Code an der Stelle immer hängen "sBegriff = InputBox("Bitte die zu suchende Zahl eingeben", "Suchfenster", 1)" und die Meld. Laufz. Fehler 6 erscheint. Würdes Du das nochmal prüfen ?

Gruss Helga


  


Betrifft: AW: An Micha von: PeterW
Geschrieben am: 04.09.2004 08:00:41

Hallo Helga,

ändere die Zeile "Dim sBegriff as Integer" in "Dim sBegriff as Long".

Gruß
Peter


  


Betrifft: AW: An Micha von: Helga
Geschrieben am: 04.09.2004 08:19:52

Hi Peter, Danke für die Antwort ich habe es nach deinen Vorschlag geändert nun bleibt der Code an der markierten Stelle stehen.



Sub Suchen()
Dim Zelle As Range
Dim sBegriff As Integer
sBegriff = InputBox("Bitte die zu suchende Zahl eingeben", "Suchfenster", 1)
Set Zelle = Worksheets(1).Range("A51:A140").Find(sBegriff, lookat:=xlWhole)<----- hier
If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
MsgBox sBegriff & " in Zelle: " & Zelle.Address & " gefunden"
End If
End Sub


Gruss Helga


  


Betrifft: AW: Frage ist Beantwortet o.T. von: Helga
Geschrieben am: 04.09.2004 10:52:57

'


  


Betrifft: AW: Frage ist Beantwortet o.T. von: nighty
Geschrieben am: 04.09.2004 13:48:57

hi alle :)

wenn ich dann aushelfen darf :)

gruss nighty

getestet :))

Sub Suchen()
Dim Zelle As Range
Dim sBegriff As Long
sBegriff = Val(InputBox("Bitte die zu suchende Zahl eingeben"))
Set Zelle = Worksheets(1).Range("A51:A140").Find(sBegriff)
If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
MsgBox sBegriff & " in Zelle: " & Zelle.Address & " gefunden"
End If
End Sub



  


Betrifft: AW: Frage ist Beantwortet o.T. von: y
Geschrieben am: 04.09.2004 17:41:14

hi nighty,
was hältst du davon ?

Sub Suchen()
Dim Zelle As Range
Dim sBegriff As String
sBegriff = Application.InputBox(Prompt:="Bitte die zu suchende Zahl eingeben", Type:=1) 'type=1 - must be a number
If sBegriff = False Then MsgBox "Keine gültige Eingabe": Exit Sub
Set Zelle = Worksheets(1).Range("A51:A140").Find(sBegriff, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Suchbegriff nicht gefunden!"
Else
MsgBox sBegriff & " in Zelle: " & Zelle.Address(RowAbsolute:=False, ColumnAbsolute:=False) & " gefunden"
End If
End Sub


cu Micha