Microsoft Excel

Herbers Excel/VBA-Archiv

Code ab 5 Zeile

Betrifft: Code ab 5 Zeile von: Alex
Geschrieben am: 31.08.2004 10:05:49

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
  


Betrifft: AW: Code ab 5 Zeile von: Ramses
Geschrieben am: 31.08.2004 10:11:12

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


  


Betrifft: Dank an alle klappt super. o.T von: Alex
Geschrieben am: 31.08.2004 11:07:10

Ich Danke euch allen klappt super so. Genau so wollte ich es haben.

Gruß Alex


  


Betrifft: AW: Code ab 5 Zeile von: Dieter Maj
Geschrieben am: 31.08.2004 10:12:59

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



  


Betrifft: and target.row >4 o.T. von: Harald E
Geschrieben am: 31.08.2004 10:16:36