Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Rasful vom 17.09.2019, 15:12 Options
Abfrage zur Eingabe eines Textes
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
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
Antwort 1 von fedjo vom 22.09.2019, 14:50 Options
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
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
Antwort 2 von Rasful vom 23.09.2019, 02:20 Options
Hallo fedjo,
vielen Dank für deinen Beitrag, es funzt prima, so habe ich mir das vorgestellt.
Nochmals, VIELEN DANK
Gruß
Rasful
vielen Dank für deinen Beitrag, es funzt prima, so habe ich mir das vorgestellt.
Nochmals, VIELEN DANK
Gruß
Rasful
Ähnliche Themen
abfrage
jasper111 19.01.2007 - 153 Hits - 3 Antworten
Problem mit do-while in C
mrt181 12.09.2007 - 20 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
