WCM Forum - Excel und VB

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Excel und VB (http://www.wcm.at/forum/showthread.php?t=142266)

moses_rotesmeer

18.08.2004 11:59

Excel und VB

hallo,

Ich beschreibe aus VB eine Excel Vorlage mit dem Befehl:

xlApp.Range("Zellenname").Value = "wert"

das Problem das bei mir Auftreten kann ist dass die Zelle, die in diesem Beispiel "Zellenname" heisst, nicht vorhanden ist.
Logischerweise kann VB nicht in ein Feld schreiben, welches nicht da ist ;)

Jetzt muss ich irgendwie abfangen ob die Zelle Namens "Zellenname" vorhanden ist oder nicht und je nach dem kann ich dann ja die Zelle befüllen oder nicht.
*****
Also wie kann ich aus VB abfragen ob eine Zelle aus meiner Excel Tabelle mit beliebigen Namen existiert oder nicht?

moses_rotesmeer

18.08.2004 15:24

hab das problem jetzt einfach umgangen (unterdrücke die meldung)

flinx

18.08.2004 23:20

Versuchs mit:

Code:

Sub test()

Set nms = ActiveWorkbook.Names

Set wks = Worksheets(1)

For r = 1 To nms.Count

    If nms(r).Name = "Zellenname" Then MsgBox "existiert"

Next

End Sub

Hussl

19.08.2004 08:47

@moses_rotesmeer

ich glaub du hast es eh auch so gemacht. ich würde den fehler abfangen.

Bevor du etwas in die Zelle schreibst:

Code:

On Error Resume Next

und nach dem Versuch in die Zelle zu schreiben

Code:

If Err.Number <> 0 Then

   MsgBox "Kann nicht in die Zelle schreiben."

End If

Du kannst auch schauen, welchen Fehlercode du bekommst, wenn du in eine nicht vorhandene Zelle schreibst und diesen dann abfragst. So schließt du aus, dass du auch andere Fehler ignorierst...

Alle Zeitangaben in WEZ +2. Es ist jetzt 06:00 Uhr.