Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte, daß wenn festgestellt wurde, daß in A3 kein Wert eingegeben wurde, ein Feld aufmacht, wo ich den Wert eingeben kann. Z.B.: Wenn inBERECHNUNG A3 kein Text steht, soll ein Fenster geöffnet werden, in dem ,am einen Text, z.B. PFANNKUCHEN eingeben kann und der dann natürlich auch in A3 in BERECHNUNG übernommen wird. Hier mein bisheriger Code. Dim Zeile_Berechnung As Long, Zeile_Umrechnungen As Long, Zeile As Long Application.ScreenUpdating = False strTabelle = Worksheets("Berechnung").Range("A3") If strTabelle = "" Then MsgBox.Text "Keine GESAMT Stück/ML in BERECHNUNG A3 eingetragen" Worksheets("Berechnung").Select Range("a3").Select End If strTabelle = Worksheets("Berechnung").Range("A1") If strTabelle = "" Then MsgBox "Kein Name in BERECHNUNG A1 eingetragen" Worksheets("berechnung").Select Range("a1").Select Exit Sub ElseIf Len(strTabelle) > 31 Then MsgBox "Name darf nicht mehr als 31 Zeichen beinhalten" End If Vielen Dank, Gruß Rasful

Hallo Rasful,
versuch mal mit dem Code.

Zelle A3 wird überprüft ob ein Eintrag vorhanden ist, wenn nicht öffnet sich eine Input Box mit einem Eingabefeld , das auf 31 Zeichen geprüft wird danach kann die Eingabe in A3 übernommen werden.

Gruß
fedjo


Sub Eingabe()
Dim e As String, mld As String
If Not [A3] > 0 Then
mld = ""
Do
e = InputBox("Eingabe:" & mld)
If Len(e) > 6 Then mld = vbLf & "max. 31 Stellen!"
Loop Until Len(e) <= 31
[A3] = e
End If
End Sub

Hallo fedjo,
vielen Dank für deinen Beitrag, es funzt prima, so habe ich mir das vorgestellt.
Nochmals, VIELEN DANK
Gruß
Rasful

Danke auch!

peko

• abfrage
• Problem mit do-while in C