feldwert ändern mit vb
20.01.2005 11:17:36
bernhard
ich habe folgendes problem: ich mache mittels eines excel addins (dritthersteller) abfragen an eine datenbank. wenn der wert in der db nicht gefunden wurde, schreibt die funktion dieses addin "No Value" zurück. ich möchte nun eine funktion in vb schreiben, die beim laden des dokuments die betroffenen zellen durchsucht und wenn der zellinhalt "No Value" diesen löscht.
mein ansatz ist folgender:
Dim i As Integer
Dim h As Integer
i = 1
h = 1
Do While i <= 9
Do While h <= 60
If Cells(h, i).Value = "No Value" Then
Cells(h, i).Value = ""
End If
h = h + 1
Loop
i = i + 1
Loop
allerdings gibt hierbei 2 probleme:
1. es funktioniert nur, wenn ich es mit zahlen mache (also etwa:
....
If Cells(h, i).Value = "40" Then
....
2. es gibt ja in vb auch die compare funktion der string klasse. denn ich weiß nicht, ob mit dem "=" nicht nur die speicheradressen verglichen werden?! allerdings wenn ich String.Compare(...) schreibe, meldet der compiler einen syntax fehler...
besten dank
bernhard