Microsoft Excel

Herbers Excel/VBA-Archiv

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

Dringende Frage Datum finden



Excel-Version: 10.0 (Office XP)

Betrifft: Dringende Frage Datum finden
von: Fredericke
Geschrieben am: 09.06.2002 - 11:06:32

Hallo VBA Freaks,
habe eine dringende Frage!! Ich habe einen Auftrag 14.06.02.
Jetzt will ich in einem anderen Tabellenblatt die Zelle Juni 2002 finden. Wie kann ich das mit VBA machen??
Danke für Eure Hilfe Fredericke

  

Re: Dringende Frage Datum finden
von: Monika Weber
Geschrieben am: 09.06.2002 - 12:39:19

Hallo Fredericke

Ich weiss nicht, ob ich dich richtig verstanden habe?
Du hast in einem Tabellenblatt den Text Juni 2002 stehen und möchtest per VBA nach diesem Eintrag suchen?

Du könntest diesen Vorgang per Makro-Rekorder aufzeichnen und anpassen. Das könnte so aussehen:


Sub Suchen()
Worksheets("Tabelle2").Cells.Find(What:="Juni 2002", _
                    After:=ActiveCell, _
                    LookIn:=xlFormulas, _
                    LookAt:=xlPart, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False).Activate
End Sub

(Getestet mit XL2000).

Es liebs Grüessli aus der Schweiz
Monika

Re: Dringende Frage Datum finden
von: UDF
Geschrieben am: 09.06.2002 - 12:45:44

Hallo Fredericke,

also, ich weiss ja nicht, wieviele Zellen Dein besagtes Blatt hat.
Als Ansatz könnte Dir das vielleicht helfen.

Option Explicit
Sub FindeDatum()
   Dim rng As Range  
   For Each rng In Sheets("Tabelle1").UsedRange    
      If rng.Value = "Juni 2002" Then  
         MsgBox rng.Address 'Was auch immer sonst gemacht werden soll.
      End If  
   Next rng
End Sub  

Gruss
Markus


 

Beiträge aus den Excel-Beispielen zum Thema "Dringende Frage Datum finden"