Tabellenkalkulation

Zelle auf Deklarationstypen prüfen

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 *, gibet es eine Möglichkeit unter VBA im Excel eine Zelle auf einen String zu überprüfen? Fakt: Ich habe im meiner Tabelle eine Spalte mit Zahlen, wo unter anderem auch mal ein Text vorkommen kann. Im meinem VBA Code will ich nur die Zellen mit Zahlen cheken, die mit Text überspringen. Hat jemand eine Idee? Danke!

Antwort 1 von Saarbauer

Hallo,

die Abfrage müßte auf "isstring" oder "IsNumeric"

in VBA-Hilfe habe ich nur "IsNumeric()" gefunden, damit müßte es funktionieren.

Gruß

Helmut

Antwort 2 von Coolpix

hallo Newbieeeee,

du brachst nur acbzuchecken, ob der inhalt der Zelle größer als 0 ist:


if ActiveSheet.Cells(x,y).Value > 0 then 
machwas
end if

sobald ein Text in der Zelle steht ist es halt keine Zahl mehr!

Feedback fänd ich klasse

Greetings ;-)

Antwort 3 von Saarbauer

Hallo @coolpix,

die Abfrage funktioniert nur bei positiven Zahlen

if ActiveSheet.Cells(x,y).Value > 0 then

da der Wert größer 0 sein muß

Gruß

Helmut

Antwort 4 von Yossarian

@Coolpix
Auch Text-Strings sind "größer als 0".
Du könntest deine Tipps ruhig vorher mal testen...

Yossarian

Antwort 5 von Yossarian

Hi @Saarbauer,

es gibt zwar kein IsString() aber man könnte ein Stringprüfung mit TypeName() lösen:

If TypeName(ActiveSheet.Cells(x, y).Value) = "String" ...

Yossarian

Antwort 6 von Saarbauer

Hallo @Yossarian,

ich hatte ja schon in A2 den Hinweis gegeben, war mir aber nicht ganz sicher

If isNumeric(ActiveSheet.Cells(x, y).Value)

da Typ "Boolan" wird das gleiche erreicht.

Gruß

Helmut

Antwort 7 von Newbieeeee

Danke! Die Tips haben geholfen mein Problem ist gelöst!