Private Sub CommandButton1_Click()
Dim Zeile As Long
Zeile = ActiveCell.Row
With Workbooks("Streitfall.xls").Worksheets("Journaldruck")
.Range("C8") = Range("A" & Zeile)
.Range("C10") = Range("B" & Zeile)
.Range("F8") = Range("C" & Zeile)
End With
If Worksheets("Journal").Range("N" & Zeile) = WAHR Then
Worksheets("Journaldruck").Range("B18") = "Alles OK! "
Else
Worksheets("Journaldruck").Range("B18") = ""
End If
End Sub
Der Button ist in der Tabelle "Journal), alle Tabellen sind in einer Mappe.
Der obere Teil (with) funktioniert einwandfrei, der if-then-else-Teil klappt nicht. Egal, ob die angesprochene Zelle
WAHR oder FALSCH enthält, es wird immer "Alles OK" angezeigt.
Wenn die angespochene Zelle FALSCH enthält, soll B18 leerbleiben.
Woran kann das liegen?
Gruß
und Danke schonmal
Wilhelm