Office: (Office 2003) Mit VBA Button- Excelspalte springen

Schiffhexler · 23. Juni 2015

Moin zusammen,

ich habe eine Excel - Datei mit einer Spalte mit Geräte Nummern. Von der Excel Seite rufe ich über Hyperlink Wordseiten auf.
Hier im Forum habe ich für den Button VBA Sachen rausgezogen. Das klappt bis jetzt.
Aber ich kenne mich damit nicht aus. Der Button färbt mit kurz das Feld ein, die Zeit kann ich ja anpassen.
Nur wenn das über den Bildschirm geht, läuft die Spalte nicht nach unten. Das Feld soll ja nicht eingefärbt bleiben.
VBA Kenntnissse sind bei mir auf Null, da habe ich nur was gebastelt.
Es wäre Nett, wenn sich von den Experten das anschauen würde.

Gruß Schiffhexler

 Nachtrag

Private Sub CommandButton1_Click()
Dim Zelle As Range, Bereich As Range
Dim Such As String
Dim Ergebnis As String
Set Bereich = Sheets("Tabelle1").Range("C4:L100")
Such = InputBox("Suchwert:")
For Each Zelle In Bereich
If Zelle = Such Then
Ergebnis = Ergebnis & ", " & Cells(4, Zelle.Column)
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
If Ergebnis = "" Then
MsgBox "Nix gefunden"
Else
Application.Wait (Now + TimeValue("0:00:02"))
End If
Bereich.Interior.ColorIndex = 0
End Sub

Beverly · 24. Juni 2015

Hi,

kommt der Suchbegriff mehrfach vor oder nur einmal im Zellbereich C4:L100?

Bis später,
Karin

Schiffhexler · 24. Juni 2015

Moin Karin

Danke für die Reaktion

Der Suchbegriff kommt nur einmal vor

Gruß Schiffhexler

Beverly · 24. Juni 2015

Hi,

dann sollte dieser Code ausreichend sein:

Code:

Private Sub CommandButton1_Click()
    Dim Zelle As Range, Bereich As Range
    Dim Such As String
    Set Bereich = Sheets("Tabelle1").Range("C4:L100")
    Such = InputBox("Suchwert:")
    If Such <> "" Then
        Set Zelle = Bereich.Find(Such, lookat:=xlWhole)
        If Not Zelle Is Nothing Then
            Application.Goto reference:=Cells(Zelle.Row, 1), Scroll:=True
            Zelle.Interior.ColorIndex = 3
            Application.Wait (Now + TimeValue("0:00:02"))
            Zelle.Interior.ColorIndex = 0
        Else
            MsgBox "Nix gefunden"
        End If
    End If
    Set Bereich = Nothing
    Set Zelle = Nothing
End Sub

Bis später,
Karin

Schiffhexler · 24. Juni 2015

Moin Karin

Danke, da kann ich nur sagen *das ist einfach Spitze!
Es klappt wunderbar.

Früher habe ich mich mit Basic Poke und Peek rumgeschlagen (1982),
aber bei VBA einsteigen, die Zeit ist für einen Rentner ist vorbei.

Gruß Schiffhexler

Beverly · 24. Juni 2015

Hi,

es ist nie zu spät, etwas neues zu lernen - auch nicht als Rentner :D

Ich habe übrigens auch Anfang der 80er angefangen - mit BASIC und dBASE ;)
VBA ist übrigens nicht ganz so weit weg davon, wie es den Anschein hat - auch wenn man erst einmal von vielen neuen Befehlen erschlagen wird - die Prinzipien bleiben dieselben... :p

Bis später,
Karin

Schiffhexler · 24. Juni 2015

Moin Karin

Du machst mit Mut.

Mal schauen, ob ich mir in dieser Richtung da was vorknöpfe. Im Netz schreibe ich viele Reparaturtyps.

Wenn ich an das alte 9 Nadelhammerwerk (1700 DM) denke, ohne Treiber, dafür selbst einen geschrieben,

das war ein Aufwand. Man sagt doch immer → rann am Feind

Gruß Schiffhexler

Schiffhexler · 26. Juni 2015

Hallo, ich begrüße euch schon wieder,

wenn ich das in meine Datei reinsetze, dann erscheint folgendes: Laufzeitfehler "9":

Index außerhalb des gültigen Bereichs
Debuggen angezeigt wird; Set Bereich = Sheets("Tabelle1").Range("K3:K150") → ist gelb

Die Datei besteht aus 20 Excel- Seiten, wo ich das reingesetzt habe, ist die Seite 9, die habe ich mit Index benannt.
Versucht habe ich bei Sheets("Tabelle9") auch ("TabelleIndex") einzugeben, aber ich bekomme immer die rote Karte.
 Dabei klappte das bei der separaten Datei einwandfrei.

Gruß Schiffhexler

Beverly · 26. Juni 2015

Man kann ein Tabellenblatt folgendermaßen ansprechen:

- über den Namen: Worksheets("Tabelle1").Range("K3:K150") <== Name der auf dem Tabellenreiter steht
- über den Index: Worksheets(2).Range("K3:K150") <== Position in der Reihenfolge der Tabellen
- über den Codenamen: Tabelle1.Range("K3:K150") <== Codename, der unabhängig von der Reihenfolge und vom Namen auf dem Tabellenreiter ist

Bis später,
Karin

Schiffhexler · 26. Juni 2015

Moin Karin,

Jetzthabe ich das eingefügt: Worksheets(9).Range("K3:K150") <== Pos. in der Reihenf.
Das war der Casus knacktus, es marschiert in der Arbeitsmappe.
Danke und 100 Punkt

Gruß Schiffhexler

Beverly · 27. Juni 2015

Hi,

noch ein Hinweis am Rande: den Index sollte man nur dann benutzen, wenn man sicher ist, dass die Reihenfolge der Tabellenblätter nicht verändert wird - andernfalls gibt es Probleme, wie du dir sicher vorstellen kannst.

Bis später,
Karin

Schiffhexler · 27. Juni 2015

Moin Karin,

Danke für die Mitteilung, dass ist mit klar.

Bis zur nächsten Katastrophe

Gruß Schiffhexler

Office: (Office 2003) Mit VBA Button- Excelspalte springen

Mit VBA Button- Excelspalte springen

Anhänge:

VBA-Suchen.xls (28 KB)

Mit VBA Button- Excelspalte springen

Mit VBA Button- Excelspalte springen

Mit VBA Button- Excelspalte springen

Mit VBA Button- Excelspalte springen - Similar Threads - VBA Button Excelspalte

Excel VBA mit Toggle Button Zeile einfärben

STRG+F via Button mit VBA

Toggle Button mit Passwort schützen

Abbrechen Button bei Inputbox

Excel VBA Problem create button

Über Command Button dynamisch Dokumente öffnen

Excel VBA Suche mit Hilfe Command Buttons anzeigen