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

Code ab 5 Zeile

Code ab 5 Zeile
31.08.2004 10:05:49
Alex
Guten MOrgen Excellisten,
habe folgenden Code in meiner Arbeitsmappe eingefügt die mir ermöglicht per doppelklick das aktuelle Datum in die Aktive zelle einzufügen oder ein bestimmtes Wort.
Kann man die Formel so ändern, dass es nicht für die ganze Spalte funktioniert sondern erst ab der "5 Zeile" .
Hier der Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 Then
ActiveCell.Value = Date
End If
If Target.Column = 23 Then
ActiveCell.Value = Date
End If
If Target.Column > 26 And Target.Column < 41 Then
ActiveCell.Value = "nein"
End If
End
End Sub

dies soll bei allen Bedingungen so sein , dass sie erste ab der 5 Zeile funktionieren.
Vielen Dank für Eure hilfe im vorraus.
Gruß alex

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

Betreff
Datum
Anwender
Anzeige
AW: Code ab 5 Zeile
Ramses
Hallo
probiers mal so

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 5 then exit sub
If Target.Column = 8 Then
ActiveCell.Value = Date
End If
If Target.Column = 23 Then
ActiveCell.Value = Date
End If
If Target.Column > 26 And Target.Column < 41 Then
ActiveCell.Value = "nein"
End If
End
End Sub

Gruss Rainer
Dank an alle klappt super. o.T
Alex
Ich Danke euch allen klappt super so. Genau so wollte ich es haben.
Gruß Alex
AW: Code ab 5 Zeile
Dieter
Hallo Alex

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 6 Then Exit Sub
If Target.Column = 8 Then
ActiveCell.Value = Date
End If
If Target.Column = 23 Then
ActiveCell.Value = Date
End If
If Target.Column > 26 And Target.Column < 41 Then
ActiveCell.Value = "nein"
End If
End
End Sub

Anzeige
and target.row >4 o.T.
31.08.2004 10:16:36
Harald

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige