|
Guten Morgen,
ich als VBA Neuling stehe vor folgendem Problem. Ich möchte aus einem anderem Blatt Werte in die Spalten D, E und F einfügen, ab Zeile 7 bis zur letzten befüllten Zeile:
Sheets("UPLOAD IREP").Range("C7: C" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Value = Left(Sheets("Read me").Range("E9").Value, 6)
Sheets("UPLOAD IREP").Range("D7: D" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Value = Sheets("Read me").Range("E9").Value
Sheets("UPLOAD IREP").Range("E7: E" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Value = gueltig_von
Sheets("UPLOAD IREP").Range("F7: F" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Value = Sheets("Read me").Range("E8").Value
Die richtigen Werte nimmt er, aber leider kriege ich es nicht hin, dass er die richtigen Zeilen befüllt. Könnt ihr mit helfen? Vielleicht noch zur Info - in Zeile 1, 5 und 6 stehen allgemeine Überschriften, die nicht überschrieben werden sollen.
Danke und Grüße,
Vanessa
|