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

Makro ausführen nach Zell-Eingabe

Makro ausführen nach Zell-Eingabe
04.07.2003 09:18:24
Winfried Mommers
Hallo Freaks,
gibt es die Möglichkeit, daß nach Eingabe eines Datums in einer Zelle automatisch ein
Makro gestartet wird (ohne einen zusätzl. Button drücken zu müssen).
Ich will dann nämlich in einer Datumsliste nach diesem eingegebenen Datum suchen und
diese Zeile farbig machen.
Vielen Dank im Voraus
Gruß Winfried

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

Betreff
Datum
Anwender
Anzeige
VB-Lösung und Bedingte Formatierung
04.07.2003 09:28:43
sergiesam
Hi,
am leichtesten gehts ohne VB! Verwende die Bedingte Formatierung. Beispiel siehst du hier:

Die Datei https://www.herber.de/bbs/user/111.xls wurde aus Datenschutzgründen gelöscht

wenn du aber mal was anderes brauchst, als Formatierung benötigst du VB. In der Mappe habe ich dir die VB-Lösung auch aufgezeigt. Du findest die Programmierung im Modul "Tabelle1".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$1" Then
'Suche Datum in der Liste
Range("D4").CurrentRegion.Interior.ColorIndex = xlNone   'Farbe zurücksetzen
Set c = Range("D4").CurrentRegion.Find(Target.Value)
If Not c Is Nothing Then
c.Interior.Color = vbRed
End If
End If
End Sub

Viel Spaß,
Sam

Anzeige
AW: Makro ausführen nach Zell-Eingabe
04.07.2003 09:27:54
OttoH
Hallo Winfried,
mit folgendem Code sollte es klappen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dein_Makro
End If
End Sub

Gruß OttoH

AW: Makro ausführen nach Zell-Eingabe
04.07.2003 09:25:04
ANdreas
Hallo Winfried,
bedingte Formatierung hilft hier leicht weiter.
Wenn in A1 dieses Datum steht, dann die Datumliste markieren, Menü Format, bedingte Formatierung... und dort folgendes einstellen:
Zellwert ist gleich =$A$1, dann das gewünschte Format auswählen, OK.
Hoffe das hilft weiter,
Andreas

AW: Makro ausführen nach Zell-Eingabe
04.07.2003 09:24:59
Manfred
Hallo Winni,
Hier meine Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = Range("b2").Address Then
MsgBox "test"
End If
End Sub

Viel Spass
Manfred

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige