Excel 2007 VBA-Code "leere Zelle soll Bitte Name eingeben beinhalten"

[Peter123]

Hallo zusammen,
ich bin absoluter Anfänger was die Programmierung von VBA codes betrifft und hoffe, dass mir jemand helfen kann
Ich möchte einen VBA-Code in Excel erstellen, der es mir ermöglicht, dass eine Zele wenn sie leer ist immer einen Text enthält. Beispiel: In der Zelle soll "Bitte Name eingeben stehen so lange sie leer ist. Trage ich einen Namen ein soll dieser in der Zelle angezeigt werden. Lösche ih den Namen wieder steht in der Zelle wieder automatisch "Bitte Name eintragen". Ich habe bereits folgenden VBA code geschrieben:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1").Value = "" Then
Range("A1").Value = "Bitte Namen eingeben"
End If

End Sub

Dieser funktioniert auch. Nur leider bekomme ich es nicht hin, Bitte Name eingeben nicht nur in der Zelle A1 steht sondern in dem Zellenbereich A1 bis A50 (sprich in A1, A2, A3, A4 usw.). Wie kann ich in meinem VBA-Code diesen Zellenbereich eingeben? Wie müsste der VBA-code lauten damit er für den Zellenbereich A1 bis A50 funktioniert? Ist bestimmt total einfach, aber ich bin wirklich Anfänger und bekomme es einfach nicht hin. Ich würde mich freuen, wenn ihr mir helfen könntet.

Vielen Dank für Eure Hilfe!!

Gruß Peter

[Rabe]

Hi Peter,

Nur leider bekomme ich es nicht hin, Bitte Name eingeben nicht nur in der Zelle A1 steht sondern in dem Zellenbereich A1 bis A50 (sprich in A1, A2, A3, A4 usw.). Wie kann ich in meinem VBA-Code diesen Zellenbereich eingeben?

versuche mal:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FOR i = 1 to 50
  If Range("A"&i).Value = "" Then
     Range("A"&i).Value = "Bitte Namen eingeben"
  End If
NEXT i
End Sub

[Peter123]

Vielen Dank für die schnelle Hilfe! Funktioniert super!!

Gruß Peter

[schauan]

Hallöchen,

ich hoffe mal, dass Dein Interesse für VBA geweckt ist. Daher mal ein Tip für später. Man kann den code noch etwas einkürzen. Excel hat für einige Zwecke speziellen Zellobjekte bzw. Eigenschaften.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:A50").SpecialCells(xlCellTypeBlanks).Value = "Bitte Namen eingeben!"
End Sub

Es gibt da noch ein, zwei andere überlegenswerte Dinge bei solchen Ereignismakros, die auf Eingaben reagieren. Aber für den Anfang sollte es erst mal reichen