VBA SelectionChance
20.04.2018 14:54:29
Patrick
ich scheitere leider an sage und schreibe an einem Zeilenumbruch in VBA.
Zur Datei:
Ich habe 2 Spalten, in denen bei Klick in eine Zelle eine Inputbox auftauchen soll. So weit so gut. Nun möchte ich aber, dass wenn bereits etwas in der Zelle enthalten ist, der Inhalt + Zeilenumbruch + Inhalt der Inputbox in der Zelle erfasst wird. Ist jedoch die Zelle, in die man klickt, frei, so soll ohne vorherigen Zeilenumbruch der Inhalt der Inputbox in diese Zelle geschrieben
Mein Code bisher:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("L7:L1000")) Is Nothing Then
If Not Target.Count > 1 Then
ActiveSheet.Unprotect
Target = Target + vbNewLine _
+ InputBox("Bitte gib den Zwischenstand der Bearbeitung ein", "Inhalt", "Text")
ActiveSheet.Protect
' Ab hier ist Versuch zur korrekten Anzeige des Zeilenumbruches gestartet:
ElseIf Not Intersect(Target, Range("J7:J1000")) Is Nothing Then
If Not Target.Count > 1 Then
ActiveSheet.Unprotect
If Target "" Then Target = Target + vbNewLine _
+ InputBox("Bitte gib das Datum / Uhrzeit des letzten Versuches ein", "Inhalt", "Datum / _
Uhrzeit")
ActiveSheet.Protect
ElseIf Not Intersect(Target, Range("J7:J1000")) Is Nothing Then
If Not Target.Count > 1 Then
ActiveSheet.Unprotect
If Target = "" Then Target = InputBox("Bitte gib das Datum / Uhrzeit des letzten Versuches ein", _
_
"Inhalt", "Datum / Uhrzeit")
ActiveSheet.Protect
End If
End If
End If
End If
End Sub
Leider wird nun die Inputbox im Range("J7:J1000") gar nicht mehr angezeigt. Was habe ich falsch gemacht? Leider finde ich es nicht, zudem wird wahrscheinlich noch immer der Zeilenumbruch ein Problem machen.
Vielen Dank für Eure Hilfe!
Gruß,
Patrick
Anzeige