vielleicht liegt's am mickigen Schlaf während des Wochenendes ..... warum ich die richtige Syntax für folgenden Ausdruck nicht hinbekomme? Ich möchte den mehrzeiligen Ausdruck in Z1S1-Schreibweise möglichst in einen einzeiligen verkürzen. Dabei sind die entsprechenden Zellen der Mappe3 unzusammenhängend.
Sub test()
If Tabelle1.Cells(11, 6) = 5 Then
Workbooks("Mappe4").Sheets("Tabelle3").Cells(14, 8) = Workbooks("Mappe3").Sheets("Tabelle1").Cells(11, 6)
Workbooks("Mappe4").Sheets("Tabelle3").Cells(14, 9) = Workbooks("Mappe3").Sheets("Tabelle1").Cells(11, 8)
Workbooks("Mappe4").Sheets("Tabelle3").Cells(14, 10) = Workbooks("Mappe3").Sheets("Tabelle1").Cells(11, 11)
Workbooks("Mappe4").Sheets("Tabelle3").Cells(14, 11) = Workbooks("Mappe3").Sheets("Tabelle1").Cells(11, 15)
End If
End Sub
Im voraus vielen Dank!
Rafael