Bei Verknüpfungen nur Null anzeigen wenn Null

Hallo Excelgemeinde!
Ich habe wieder mal ein Problem, wie es nur in Excel ab 2007 auftreten kann.
Ich habe 2 Mappen. Trage ich in Mappe 1 (Ursprungsmappe) einen Wert ein, wird dieser Wert per Verknüpfung in Mappe 2 (Zielmappe) eingetragen.
In den Zellen kann/muss auch mal der Wert 0,00 vorkommen. Dazu habe ich in der Ursprungsmappe unter Optionen "In Zellen mit Nullwert eine Null anzeigen" eingestellt.
Stelle ich jetzt in der Zielmappe auch die Option "In Zellen mit Nullwert eine Null anzeigen" ein, wird jede Zelle in der eine Verknüpfung steht mit 0,00 gefüllt, auch wenn in der Zelle der Ursprungsmappe nichts steht.
Schalte ich in der Zielmappe die Option aus, bleibt die Zelle natürlich leer, auch wenn in der Urprungsmappe eine 0,00 steht.
Weiß Jemand eine Lösung.
Zusammenfassend:
Wenn in der Ursprungsmappe die Zelle leer ist, soll diese in der Zielmappe auch leer sein.
Wenn in der Ursprungsmappe in der Zelle eine 0,00 steht, soll dies auch in der Zielmappe so sein.
Danke für die Hilfe!
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
Danke für die Hilfe, so würde es gehen.
Jetzt habe ich aber vergessen, dass ich die Verknüpfungen über ein UserForm mit Combobox und Commandbutton erzeuge.
Dank der Hilfe von Erich benutze ich dafür folgenden Code:

Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Dir(ThisWorkbook.Path & "\")
With ComboBox1
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile))
strFile = Dir
Loop
End With
End Sub

Private Sub CommandButton1_Click()
Dim strFile As String, strForm As String
With ComboBox1
If .ListIndex > -1 Then
strFile = .List(.ListIndex)
Else
' keine Datei ausgewählt - was tun?
End If
End With
If strFile  "" Then
' Anfang der Formel
strForm = "='" & ThisWorkbook.Path & "\[" & strFile & "]Anwesenheit'!"
With ThisWorkbook.Sheets("Übersicht")        ' Zielblatt
.Range("A8").Formula = strForm & "$H$5"
.Range("J1").Formula = strForm & "J1"
.Range("B5").Formula = strForm & "B5"
.Range("Z5").Formula = strForm & "Z5"
' oder
'.Cells(5, 10).Formula = strForm & "J1"
.Range("A9:AG33").Formula = strForm & "A8"
End With
End If
End Sub

Wie müsste der Code aussehen, mit dem Vorschlag von Hajo.
Danke fürs lesen und die Hilfe!
Andreas

Private Sub CommandButton1_Click() Dim strFile As String, strForm As String With ComboBox1 If .ListIndex > -1 Then strFile = .List(.ListIndex) Else ' keine Datei ausgewählt - was tun? End If End With If strFile "" Then ' Anfang der Formel strForm = "='" & ThisWorkbook.Path & "\[" & strFile & "]Anwesenheit'!" With ThisWorkbook.Sheets("Übersicht") ' Zielblatt .Range("A8").Formula = "=" If(" & strForm & "$H$5" &"="""",""""",strForm & "$H$5" )" '.Range("A8").Formula = strForm & "$H$5" .Range("J1").Formula = strForm & "J1" .Range("B5").Formula = strForm & "B5" .Range("Z5").Formula = strForm & "Z5" ' oder '.Cells(5, 10).Formula = strForm & "J1" .Range("A9:AG33").Formula = strForm & "A8" End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Bei Verknüpfungen nur Null anzeigen wenn Null

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bei Verknüpfungen nur Null anzeigen wenn Null

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread