Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Paste im Fenster "Suchen"

Paste im Fenster "Suchen"
05.10.2004 08:55:13
Matthias
Hallo Cracks,
auf Tabellenblatt 1 wähle ich eine Zelle aus. Anschließend möchte ich ein Makro ausführen, welches die aktive Zelle kopiert, das Tabellenblatt wechselt und in diesem Tabellenblatt nach der kopierten Zelle sucht.
Kann mir einer einen nützlichen Tipp geben?
Danke!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Paste im Fenster "Suchen"
Ulf
Was soll passieren, wenn der Begriff gefunden wurde?
Ulf
AW: Paste im Fenster "Suchen"
05.10.2004 12:40:10
Matthias
er soll einfach nur zu der zelle springen, da darunter die einzelnen Zeilen sind, die ich bearbeiten möchte.
Das Tabellenblatt ist etwas größer; ich möchte mit die Suche bzw. scrollen sparen
Matthias
AW: Paste im Fenster "Suchen"
K.Rola
Hallo,
dazu ist kein copy nötig. Doppelklick auf die Zelle mit dem Suchbegriff.
Den Blattnamen musst du im Code natürlich anpassen.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, SB As Variant
If Target.Count > 1 Or Target = "" Then Exit Sub
SB = Target
On Error GoTo ENDE
Set c = Sheets("Tabelle1").Cells.Find(what:=SB, lookat:=xlWhole)
If Not c Is Nothing Then
Application.Goto Sheets("Tabelle1").Range(c.Address), True
End If
ENDE:
Cancel = True
End Sub

Gruß K.Rola
Anzeige
AW: Paste im Fenster "Suchen"
05.10.2004 14:28:18
Matthias
Ich glaube Du hast Ahnung!
Danke, funktioniert hervorragend!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige