Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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

Codeanpassung

Codeanpassung
11.12.2008 13:22:06
Ernst
Hallo Vba Experten !
möchte diesen Code gerne ändern so das in den Spalten 2,6,10 die Zellen Adressen erst ab 2,B5..6b5..10b5 angesprochen werden .
wäre für Lösungsvorschläge dankbar.
Lg.Ernst

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10 Then
Target.Value = Format(Date, "dd.mm.yyyy")
ElseIf Target.Column = 3 Or Target.Column = 7 Or Target.Column = 11 Then
UserForm1.Show
End If
End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Codeanpassung
11.12.2008 13:38:00
Rudi
Hallo,
wie soll man das verstehen?

erst ab 2,B5..6b5..10b5 


Gruß
Rudi

AW: Codeanpassung
11.12.2008 14:45:00
Uwe
Hi Ernst,
falls Du möchtest, dass die Zeilen 1 bis 4 NICHT angesprochen werden, dann z.B.so:

If Target.Row > 4 And (Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10) Then


Kleine Frage:
Bist Du sicher dass Du das willst:


Target.Value = Format(Date, "dd.mm.yyyy")


und nicht das:


Target.NumberFormat = "dd.mm.yyyy"


Gruß
Uwe
(:o)

Anzeige
Danke !
11.12.2008 21:59:42
weingartner
Hallo.
Recht herzlichen Dank funktioniert einwandfrei.
Lg.Ernst

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige