Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

Verzweifelt! Suchen über VBA

Verzweifelt! Suchen über VBA
28.12.2013 22:03:14
Andreas
Hallo liebe Gemeinde,
ich habe folgendes Problem und hoffe, ihr könnt mir helfen. Ich benötige folgendes Makro:
In Tabelle1 soll in der ersten Spalte (A:A) nach dem Inhalt der aktiven Zelle in Tabelle2 gesucht werden und der Rahmen soll nach dem Fund in Tabelle1 in der gleichen Fund-Zeile (z.B. Zeile 17) aber 5 Spalten weiter rechts die Zelle markieren (also F17).
Ich bin am verzeifeln. Für eure Hilfe bin ich euch schon mal sehr dankbar.
mfG A. Schulle

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

Betreff
Datum
Anwender
Anzeige
AW: Verzweifelt! Suchen über VBA
28.12.2013 22:37:44
Peter
Hallo Andreas,
das könnte z. B. so funktionieren:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WkSh    As Worksheet
Dim vZeile  As Variant
If Trim$(Target.Value)  "" Then
Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
vZeile = Application.Match(Target.Value, WkSh.Columns(1), 0)
Else
MsgBox "Ohne Eingabe kann nichts gefunden werden.", _
48, "   Hinweis für " & Application.UserName
Exit Sub
End If
If Not IsError(vZeile) Then
With WkSh
.Activate
.Range("F" & vZeile).Select
End With
Else
MsgBox "Der Begriff  """ & Target.Value & """  wurde nicht gefunden.", _
48, "   Hinweis für " & Application.UserName
End If
End Sub

Das Makro gehört in das KLassenmodul von Tabelle2
Rechtsklick auf den Tabellenblattreiter
Linksklick auf Code anzeigen
das Makro in das sich öffnende große Fenster kopieren
Mit dem Schließen-Kreuz oben rechts beenden
und ausprobieren
Gruß Peter

Anzeige
AW: Verzweifelt! Suchen über VBA
29.12.2013 21:08:32
A.
Hallo Peter. Ganz, ganz vielen Dank. Das funktioniert prima. Ich bin dir echt zu Dank verpflichtet. :-)
Viele Grüße
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige