VBA Code

[johammer]

Hallo und guten Morgen,

hab mal eine Frage:
ich habe mir aus dem Internet zwei Codes zum Suchen in einer Tabelle kopiert.
Zuerst in einer Test Tab eingefügt funktioniert auch genauso wie ich mir das gedacht habe.
Jetzt in die Tabelle eingefügt, worin der Code suchen soll, komischerweise öffnet sich aber auch weiterhin die
Testtabelle. Habe schonmal nach Verbindungen geschaut und diese gelöscht aber trotzdem öffnet sich immer noch die Testtab.
Versteh ich nicht. Ich füge mal die zwei Codes um die es geht hier mit ein.
Vielleicht kann ja mal jemand diese anschauen, ob es überhaupt an den Codes liegt.

Danke und Gruss Jo

Sub Suche_Zelle()
Dim Begr As String
Dim rng As Range
Begr = InputBox("Suchbegrif:", "Suche nach...")
Set rng = Columns.Find(Begr)
If Not rng Is Nothing Then
    rng.Activate
    Else
    MsgBox "nix gefunden"
End If
End Sub

Sub Suche_Zeile()
Dim Begr As String
Dim rng As Range
Begr = InputBox("Suchbegrif:", "Suche nach...")
Set rng = Columns.Find(Begr)
If Not rng Is Nothing Then
    rng.EntireRow.Select
    Else
    MsgBox "nix gefunden"
End If
End Sub

[UweD]

Hallo


erst mal was zur Benennung:

- 1) Excel verwendet Dateien (Mappen)
- 2) darin sind Tabellenblätter (Reiter)
- 3) darauf können unter anderem Tabellen angeordnet sein.


Was meinst du, wenn du von TestTab und Tabellen schreibst?
Wo hast du den Code eingefügt?

Beispieldatei?


LG UweD

[johammer]

Hallo UweD,

hänge die Test MAPPE mal mit an.
Den Code habe ich in der Mappe die in Arbeit ist, in ein Modul eingefügt.

Gruss Jo

[UweD]

Hi

funktioniert so wie es soll.

Wo ist das Problem?


LG UweD

[johammer]

Moin UweD,

Ja das Makro macht ja was es machen soll.
Nur warum öffnet sich immer wieder diese Testdatei die ich Gestern schon mit im Anhang hatte.
Ich hab nun von der Mappe die ich im eigentlichen nutze mal eine Kopie erstellt und abgespeckt.
Hänge sie mal hier mit an. Hab's grade nochmal probiert und ist wie beschrieben. 
Wenn nichts anderes hilft, lösche ich die Testdatei einfach

Gruß Jo

P.s.: Hallo Uwe, hat sich erledigt, alles gut. Ich markiere den Post als erledigt.
        und Danke für deine Antworten.