Nummernkreis mit Auswahlfeld hochzählen
05.05.2020 08:13:28
Angelika
1.) die vierstellig Nummer hochgezählt werden
funktioniert mit Makro :
Sub Nummernkreis()
Dim frtlNr As Long
Tabelle2.Range("H2") = Tabelle2.Range("H2") + 1
End Sub
2.) eine Auswahl getroffen werden aus der Liste
Anforderungsabteilung
PR
SCM
SA
PM
PR
QS
RD
TE
3.) das heutige Datum angehängt werden
bekomme ich hin mit folgendem Code (dank Peter )
muss ich noch an mein Makro Nummernkreis anhängen und umbauen !
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Target.Value = "X" Or Target.Value = "x" Then Target.Offset(0, -2).Value = Date
End If
End Sub
Nun zu meinem Problem : Wie kann ich Punkt 2.) einbinden
Also der Nummernkreis wird hochgezählt, das Datum wird auch eingefügt,
aber wie kann ich eine Auswahl von Punkt 2.) einbauen
Ist das überhaupt möglich ?
(Die Makros Modul1 bis 3 nicht berücksichtigen, wurden von einem tschechischen Kollegen erstellt )
Für Eure Hilfe wäre ich sehr dankbar
https:\/\/www.herber.de/bbs/user/137267.xlsm
Angelika
