Hi,
Sheets("Auswertungen").Select
lngZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Range("C2").Value = TraegernameDas mit dem "C2" ist natürlich Quatsch. Nur wie bekomm ich jetzt die Verknüpfung zur zweiten Zeile? Weil irgendwie muss ich ja mitteilen das der diesen Traegernamen auch in die markierte freie Spalte setzten soll.
activesheet.cells(lngz, 3).value = traegername
schreibt es in die dritte Spalte (also C) der Zeile lngZ.
Viele Grüße
Jörg