Tabellenkalkulation

Makro If Then False

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, wer kann mir weiterhelfen zur "If Then False " Abfrage. Ist es möglich mit "If, If Not" Text von Zahlen zu unterscheiden. Gruß kersti

Antwort 1 von Saarbauer

Hallo,

in deutsch heissen die Abfragefunktionen

Istktext() -> kein Text
Isttext()
Istwert()
und

Typ()

Gruß

Helmut

Antwort 2 von fedjo

Hallo Hellmut,
hir meine "If Abfragefunktion" :

If [A2] = "" Then
[A2] = InputBox("Name eingeben")
GoTo Wiederholen
End If

Wie kann ich hier "Isttext oder Istwert" einfügen.

Gruß
kersti

Antwort 3 von nighty

hi all :)

hier ein beispiel :))

gruss nighty

Option Explicit
Sub makro01()
Do
[A2] = InputBox("Name eingeben")
If IsNumeric([A2]) = True Then Exit Do
Loop
End Sub

Antwort 4 von Event

Hallo Kersti

Du könntest prüfen ob Zahlen in der Eingabe der InputBox enthalten sind:.
Option Explicit Sub namen_eingeben() Dim name$, i% If Range("A2").Value <> "" Then Exit Sub Wiederholen: name = InputBox("Namen Eingeben!" & vbCr & "(Darf keine Zahlen enthalten!)") If Len(name) > 0 Then For i = 1 To Len(name) If InStr("0123456789", Mid(name, i, 1)) Then GoTo Wiederholen Next End If Range("A2").Value = name End Sub

Gruß

Antwort 5 von fedjo

Hi nighti,
funktioniert super,
gibt´s eine möglichkeit, das nur zahlen erkannt werden.

Do
[A2] = InputBox("Name eingeben")
If IsNumeric([A2]) = True Then Exit Do
Loop

Gruß
kersti