Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich im Makro festlegen

Forumthread: Bereich im Makro festlegen

Bereich im Makro festlegen
Glen
Guten Morgen liebe Leute
Ich habe von hier ein Makro, welches per Doppelklick in den Zellen das aktuelle Datum einfügt. Das Makro ist so geschrieben, dass es auf alle Zellen in den Tabellen wirkt.
Kann mir hier jemand bitte sagen, ob es so umgeschrieben werden kann, dass nur die Zellen in der Tabelle1 (B4 bis B100) in den Genuss dieser Funktion kommen? 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel   _
_
As Boolean)
ActiveCell = Date
End Sub

vielen tausend Dank im voraus für eure Inputs und Grüsse, Glen
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Bereich im Makro festlegen
31.03.2010 10:05:01
Rudi
Hallo,
in den Code von Tab1 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:B100")) Is Nothing Then
Target = Date
End If
End Sub

Gruß
Rudi
AW: Bereich im Makro festlegen
31.03.2010 10:14:58
Glen
Rudi, vielen Dank für die superschnelle Antwort mit der Lösung!
Grüsse, Glen
Anzeige
AW: Bereich im Makro festlegen
31.03.2010 10:07:05
xr8k2
Hallo Glen,
wenns weiterhin im Objektmodul deiner Arbeitsmappe stehen soll:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
If Sh.Name = "Tabelle1" And Not Intersect(Target, Range("B4:B100")) Is Nothing Then
Target = Date
End If
End Sub
Alternativ kannst du´s auch direkt ins Objektmodul deines Blattes Schreiben, dann entfällt die Tabellenprüfung: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:B100")) Is Nothing Then
Target = Date
End If
End Sub

Gruß,
xr8k2
Anzeige
AW: Bereich im Makro festlegen
31.03.2010 10:19:48
Glen
Danke auch dir xr8k2...................ihr seit alle excelent :-)
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige