UsedRange zurücksetzen/löschen
09.12.2003 18:36:50
Christian
Versuche immer wieder neue Werte in die "Schnittzelle" aus letzter Zeile und letzter Spalte zu schreibe (ist auch gut so), allerdings ist der usedrange manchmal kleiner als der vorherige, bedeutet januar hat 31 Tage, Februar nur 28 Tage, will ins gleiche Tabellenblatt schreiben (den januar durch februar überschreiben) allerdings bezieht sich der usedrange dan immer auf die letzte spalte und zeile aus Januar .... wer weiß abhilfe .... Tausend Dank !
Sub Stundensumme()
Dim rng As Range
Dim lngZ As Long
Dim wks1 As Worksheet
Set rng = ActiveSheet.UsedRange
Set wks1 = Worksheets("Kalender")
lngZ = rng.Cells.Count
s = wks1.Range("D372").Value 'liest Stundensumme Januar
rng(lngZ).Offset(2, -1) = "Summe Stunden"
rng(lngZ).Offset(2, 0) = s
rng(lngZ).Offset(2, 0).Activate
End Sub
Gruß
Christian