Autom. Zelltext, der bei anklicken verschwindet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) = "A1" And Target.Value = "Google Custom Search" Then Application.EnableEvents = False Target.Value = "" Application.EnableEvents = True Else If [A1].Value = "" Then [A1].Value = "Google Custom Search" End If End Sub

Hallo Bertram,
vielen Dank schonmal für Deine Hilfe! Der Code funktioniert einwandfrei, solange ich ihn in einer leeren Datei ausführe! Seltsamerweise funktioniert er nicht, wenn ich ihn in meine Datei hinein kopiere... Ich habe keine Ahnung, warum das so ist. Ich habe bereits ein Worksheet_SelectionChange Makro, in das ich Deine Anweisungen hinein kopiert habe. Zudem habe ich versucht die Zelladresse zu ändern, da dies die Zellen E21 und I21 betrifft und in der Zelle E21 Kontonummer und in I21 Bankleitzahl stehen soll. Aber es funktioniert leider nicht. Das einzige, was herauskommt ist, wenn ich auf entfernen drücke, dass eine Debug Meldung kommt, welche den Fehler "Typen unverträglich" meldet.
Hier mal das komplette Makro:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E21" And Target.Value = "Kontonummer" Then
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Else
If [E21].Value = "" Then [E21].Value = "Kontonummer"
End If
If Target.Address(0, 0) = "I21" And Target.Value = "Bankleitzahl" Then
Application.EnableEvents = False
Target.Value = ""
Application.EnableEvents = True
Else
If [I21].Value = "" Then [I21].Value = "Bankleitzahl"
End If
Application.ScreenUpdating = False
If Range("J8") = "" Then
Range("J8") = "20"
End If
Application.ScreenUpdating = True
If Target.Column = 11 Then
On Error GoTo ERRHDL
Application.EnableEvents = False
Select Case Len(Target)
Case 1: Target = "'0" & Format(Target, "0000")
Case 2: Target = "'0" & Format(Target, "0000")
Case 3: Target = "'0" & Format(Target, "0000")
Case 4: Target = "'0" & Format(Target, "0000")
Case 5: Target = "'0" & Format(Target, "0000")
End Select
Application.EnableEvents = True
End If
ERRHDL:
Application.EnableEvents = True
End Sub

Const Vorgabe = "Vorgabe-Text" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$4" And Target.Cells.Count = 1 Then Application.EnableEvents = False If IsEmpty(Target) Then Target.Value = Vorgabe If Target.Value = Vorgabe Then Target.Font.ColorIndex = 16 'Schrift Dunkelgrau Else Target.Font.ColorIndex = xlAutomatic End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$4" And Target.Cells.Count = 1 Then If Target.Value = Vorgabe Then Application.EnableEvents = False Target.ClearContents Target.Font.ColorIndex = xlAutomatic Application.EnableEvents = True End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Autom. Zelltext, der bei anklicken verschwindet

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autom. Zelltext, der bei anklicken verschwindet

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread