Mike,
da bleiben dir wohl nur mehrere IF - Then Abfragen.
Mit Target.Row läßt sich die Zeile auslesen und mit Target.Column die Spalte.
Peter
Mike,
da bleiben dir wohl nur mehrere IF - Then Abfragen.
Mit Target.Row läßt sich die Zeile auslesen und mit Target.Column die Spalte.
Peter
Hallo Mike
Gruß Hajo
Hallo Peter,
leider bin ich darin versiert genug, um sowas selbst zu basteln.
Vielleicht könntest du mir dabei behilflich sein.
Gruß
Mike
Hallo Mike
der code ist ein wenig lang Doppelklick kann ja nur auf einer Zelle sein darum
Gruß Hajo
Hallo Mike,
schau doch mal, was Hajo Dir geantwortet hat. :)
Peter
Hallo Hajo,
habe im Archiv gesucht und ein passendes Makro von Hans gefunden. Habe es für meinen Bedarf abgeändert und in "Diese Arbeitsmappe" eingefügt. Es funktioniert.
Das Makro lautet:
Private Sub Workbook_Open()
With Worksheets(1).Range("M2")
.Value = .Value + 1
End With
End Sub
Gruß Mike
Hallo Hajo,
habe im Archiv gesucht und ein passendes Makro von Hans gefunden. Habe es für meinen Bedarf abgeändert und in "Diese Arbeitsmappe" eingefügt. Es funktioniert.
Das Makro lautet:
Private Sub Workbook_Open()
With Worksheets(1).Range("M2")
.Value = .Value + 1
End With
End Sub
Gruß Mike
Hallo Mike
wo wird hier das X eingefügt???
und wo ist hier der von Dir gewünschte Bereich ???
Gruß Hajo
Hallo Hajo,
das mit dem X einfügen ist soweit erledigt. Habe dein erstes Makro verwendet.
Hierbei geht es um den 2.Teil meiner Frage bezüglich der fortlaufenden Rechnungsnummer, das ich mit diesem Makro so gelöst habe.
Gruß Mike
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 5 Then Exit Sub
Target.Offset(0, 0).Value = "X"
End Sub
Danke im Voraus.
Gruß
Mike