Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellsuche

Zellsuche
14.07.2005 10:45:30
Fritz
Hallo,
könnte mir jemand bitte mit folgendem Problem helfen!
Ich habe eine Arbeitsmappe mit ca. 35 Tabellenblättern (zunehmend)
in jedem Tabellenblatt steht eine fortlaufende Nummer z.B. "Re.Nr.112/2005"
(die dreistellige Anfangsnummer "112" ist fortlaufend)
nun möchte ich über ein Button die Nummer eingeben können
und dann zu dem Tabellenblatt wechseln.
Viele Grüsse
Fritz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellsuche
14.07.2005 12:41:26
WernerB.
Hallo Fritz,
wie gefällt Dir das?

Private Sub CommandButton1_Click()
Dim SuBe As Range, _
s As String, _
i As Byte
s = InputBox(vbCr & vbCr & vbCr & _
"Lfd. Re.-Nr. eingeben:", "Rechnungs-Nr.", "112")
If s = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & _
"Makro-Abbruch !", vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
s = s & "/2005"
For i = 1 To Sheets.Count
With Sheets(i)
Set SuBe = .Cells.Find(What:=s, LookAt:=xlPart)
If Not SuBe Is Nothing Then
.Select
Exit For
End If
End With
Next i
If Not SuBe Is Nothing Then
Set SuBe = Nothing
Else
MsgBox "Re.-Nr. '" & s & "' wurde nicht gefunden !", 64, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Zellsuche
14.07.2005 14:00:03
Fritz
Hallo Werner,
einfach Klasse.
Vielen Dank für deine Hilfe
Gruss
Fritz

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige