VBA Befehl gesucht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jörg,
das müsste mit einer Ereignisprozedur funktionieren, auch wenn mir noch nicht völlig klar ist, was du mit dem Satz "Hier habe ich eine Liste hinterlegt mit einem festgelegten Datumsformat." genau meinst.
Wechsle mal mit ALT-F11 ín die Entwicklungsumgebung, doppelklicke auf den Namen der gewünschte Tabelle und füge per Copy/Paste in das sich öffnende "Fenster" folgenden Code ein:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
MsgBox "Reparatur eingetragen"
Target.Offset(0, 1).Select
End If
End Sub

Wenn in irgendeiner Zelle der Spalte G irgendetwas eingetragen wird (kann man noch näher eingrenzen), dann wird das ausgeführt, was du beschrieben hast.
Gruß
Martin

Private Sub Worksheet_Change(ByVal Target As Range) Const lngMindestLaenge As Long = 5 'So viele Zeichen muss der Reparatureintrag mindestens haben Dim v As Variant If Not Intersect(Target, Range("G2:G22")) Is Nothing Then v = Application.InputBox("Reparatur eintragen", "Tu es bitte") If v = False Or Len(v)

Hallo Boris,
die Inputbox ist auch eine geniale Idee. Im Grundprinzip würde ich auch diese Umsetzung nehmen. Hier sind aber mehrere Probleme aufgetreten:
1. Wenn ich das Datum wieder löschen wollte ist die Box aufgepoppt. Auch wenn ich Abbrechen geklickt habe, konnte ich nicht das Datum entfernen.
2. Habe ich weniger als 5 Zeichen in die Box eingetippt, wurden diese zwar nicht in der Zelle übernommen ... konnte aber auch weitermachen ohne einen Eintrag in der Zelle vorzunehmen.
Was auch gleichzeitig das dritte Problem ist, da ich möchte das die Zelle zwingend befüllt wird.
Ehrlich gesagt wollte ich nicht unverschämt werden und sagen: "Hey Boris der Code ist spitze aber mach doch mal noch dies und das."
Gruß
Jörg

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 Then MsgBox "Reparatur eingetragen" Target.Offset(0, 1).Select strCell = Target.Offset(0, 1).Address(0, 0) End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(strCell) Then If Range(strCell) = "" Then Range(strCell).Select Exit Sub Else strCell = "" End If End If End Sub

Public strCell As String Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 And Target "" Then Target.Offset(0, 1).Select strCell = Target.Offset(0, 1).Address(0, 0) MsgBox "Reparatur eintragen" End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Len(strCell) Then If Range(strCell) = "" Then Range(strCell).Select Exit Sub Else strCell = "" End If End If End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Befehl gesucht

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread