Problem mit UsedRange
14.05.2009 11:04:57
PeterO
Ich habe ein Problem mit UsedRange. Von verschiedenen Personen bekomme ich Teilnehmerlisten für Veranstaltungen gemailt. Diese füge ich durch Kopieren in eine bestehende Datei als neues Tabellenblatt ein.
Die Listen sind alle nach dem selben Schema aufgebaut (Zeile 1-4 Überschriften, ab Zeile 5 die Teilnehmerdaten, die Anzahl ist unterschiedlich).
Mit folgendem Code kopiere ich dann die Teilnehmerdaten in eine Übersicht "Gesamt":
Sub kopieren()
Dim wks As Worksheet
Dim wksS As Worksheet
Dim rng As Range
Dim rngX As Range
Dim lnge As Long
Dim intC As Integer
Set wksS = Sheets("Gesamt")
lnge = wksS.Range("A65536").End(xlUp).Row + 1 'erste freie Zeile
For Each wks In ThisWorkbook.Sheets
If wks.Name "Gesamt" Then
Set rng = wks.UsedRange
intC = 1
For Each rngX In rng
rngX.Copy wksS.Cells(lnge, intC)
intC = intC + 1
If intC > 3 Then
intC = 1
lnge = lnge + 1
End If
Next
End If
Next
End Sub
Mein Problem ist nun, dass durch den Befehl UsedRange immer die Überschriften der Zeilen 1-4 mit in die Gesamtübersicht kopiert werden. Was muss ich ändern, damit der UsedRange-Befehl erst ab Zeile 5 arbeitet?
Gruß Peter