Hallo Zusammen
Erstmal allen noch eine schöne Weihnacht und einen guten Rutsch ins neue Jahr ;-)
Folgendes Problem habe ich und kommen einfach icht weiter. Nun hoffe ich das Ihr mir helfen könnt.
Also:
Im Tabellenblatt("Listen") stehen in den Zellen AA2:AB6 Zeiten (AA=von und AB=bis) nun möchte ich mit folgenden Code einen Namen und die Zeiten, alles untereinander, in eine Zelle auf einem anderen Tabellenblatt eintragen.
Sheets(strAbt).Cells((Sheets(strAbt).Cells(Rows.Count, q).End(xlUp).Row + 1), q).Value = _
strName & Chr(10) _
& CStr(Sheets("Liste").Cells(2, 28).Value) & " - " & CStr(Sheets("Liste").Cells(2, 29).Value) & Chr(10) _
& CStr(Sheets("Liste").Cells(3, 28).Value) & " - " & CStr(Sheets("Liste").Cells(3, 29).Value) & Chr(10) _
& CStr(Sheets("Liste").Cells(4, 28).Value) & " - " & CStr(Sheets("Liste").Cells(4, 29).Value) & Chr(10) _
& CStr(Sheets("Liste").Cells(5, 28).Value) & " - " & CStr(Sheets("Liste").Cells(5, 29).Value) & Chr(10) _
& CStr(Sheets("Liste").Cells(6, 28).Value) & " - " & CStr(Sheets("Liste").Cells(6, 29).Value)
Bekomme aber immer die Meldung: Index ausserhalb des gültigen Bereichs
Als Ergebnis sollte die Zelle in sheets(strAbt)z.B so aussehen:
Hans
06:00 - 12:30
14:00 - 18:20
usw.
Ich hoffen nun das Ihr mir helfen könnt.
Viele Grüße
Peter (hpo)