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

Makro - Zelle suchen+umliegenden Bereich markieren

Makro - Zelle suchen+umliegenden Bereich markieren
08.11.2005 11:23:49
Wissensdurst
Guten Morgen/Mittag zusammen,
ich bräuchte ein Makro, welches mir eine Zelle, in die ich ein Datum eingebe, ausliest und dieses Datum in einer anderen Zeile (in der mehrere Daten stehen) wiederfindet.
Anschließend soll ein bestimmter Bereich rund um die gefundene Zelle (z.B.: 2 nach oben, 20 nach unten, 4 nach rechts) markiert werden.
Vorab schonmal vielen Dank.
Grüße
Hans

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

Betreff
Datum
Anwender
Anzeige
AW: Makro - Zelle suchen+umliegenden Bereich markieren
08.11.2005 11:44:09
Worti
Hallo Hans,
folgender Code liest das Datum aus A1 aus, sucht es in Zeile 23 und markiert dann die umliegenden Zellen wie gewünscht:


Sub Datumsuchen()
    Dim As Range
    Dim As Integer
    
    I = 23
    
    Set c = ActiveSheet.Rows(I).Find(what:=Range("A1").Value)
    If Not (c Is NothingThen
       Range(c.Offset(-2, 0), c.Offset(20, 4)).Select
    End If
    
End Sub


Gruß Worti
Anzeige
AW: Makro - Zelle suchen+umliegenden Bereich markieren
08.11.2005 12:15:35
Wissensdurst
Super, das war genau das, was ich gesucht habe - funktioniert perfekt.
Vielen lieben Dank
Hans

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige