Null wird in leerer Zelle angezeigt
27.11.2016 23:49:26
Oisse
per SVerweis hole ich Daten in eine Zelle.
Wenn nun die Quellzelle leer ist, dann erscheint in der Zielzelle eine Null.
Selbst wenn ich "Nullwerte anzeigen" in den Optionen ausschalte zieht er sich in vba die Null
Wie muss ich denn den folgenden Code umschreiben, damit er funktioniert?
If ThisWorkbook.Sheets(Tbl1).Range("C14").Value = 0 Then
ThisWorkbook.Sheets(Tbl1).Range("C10").Copy
If WordObj.ActiveDocument.Bookmarks.Exists("Adresse") Then
WordObj.ActiveDocument.Bookmarks("Adresse").Range = ThisWorkbook.Sheets(Tbl1).Range("C10"). _
Value
Else
MsgBox "Die Textmarke MarkeAdresse ist nicht vorhanden"
End If
Else
ThisWorkbook.Sheets(Tbl1).Range("C14").Copy
If WordObj.ActiveDocument.Bookmarks.Exists("Adresse") Then
WordObj.ActiveDocument.Bookmarks("Adresse").Range = ThisWorkbook.Sheets(Tbl1).Range("C14"). _
Value
Else
MsgBox "Die Textmarke Marke Adresse ist nicht vorhanden"
End If
End If
Wenn ich es so probiere:
If ThisWorkbook.Sheets(Tbl1).Range("C14").Value = ""
funktionierts auch nicht.
Wie bitte muss ich das ändern?
Vielen Dank schon mal