Hallo zusammen,
wenn ich einer Stringvariablen einen Wert einer Excelzelle, in der nichts steht, so zuweise:
x = exWB.Worksheets("tabelle1").Range("ai" & 100).Value
klappt das.
Wenn ich den Zellenwert aber so wissen will und entsprechend reagieren:
oder auf diese Weise ein Element einer Liste hinzufügen möchte.:
dann kommt die Fehlermeldung:
"Der Wert darf nicht Null sein"
Ich habe zwar eine Lösung mit TRY -CATCH, die scheint mir aber zu aufwendig.
Kennt einer eine bessere Lösung?
vG
fredyx
wenn ich einer Stringvariablen einen Wert einer Excelzelle, in der nichts steht, so zuweise:
x = exWB.Worksheets("tabelle1").Range("ai" & 100).Value
klappt das.
Wenn ich den Zellenwert aber so wissen will und entsprechend reagieren:
Select Case String.Format(exWB.Worksheets("tabelle1").Range("A I" & i).Value)
Case ""
daten.wicht_E = "N"
Case "1"
daten.wicht_E = "J"
Case Is <> "" And "1"
MsgBox("Fehler in Exceldatei", "in Spalte AI ab Zeile 100 steht falsche Zeichen")
Case ""
daten.wicht_E = "N"
Case "1"
daten.wicht_E = "J"
Case Is <> "" And "1"
MsgBox("Fehler in Exceldatei", "in Spalte AI ab Zeile 100 steht falsche Zeichen")
oder auf diese Weise ein Element einer Liste hinzufügen möchte.:
daten.PSA_E = String.Format(exWB.Worksheets("tabelle1").Range("A I" & i).Value)
End Select
End Select
"Der Wert darf nicht Null sein"
Ich habe zwar eine Lösung mit TRY -CATCH, die scheint mir aber zu aufwendig.
Kennt einer eine bessere Lösung?
vG
fredyx
Comment