Summen aus Register
25.12.2014 11:53:44
Guesa
Nun zu meinem Weihnachtsproblem
Habe hier einen Code gefunden der wunderbar passt bis auf die Winzigkeit das ich das ganze in B2:M5 angezeigt haben möchte bzw. die entsprechende Auflistung ab Celle 3.
Ich krieg das einfach nicht hin entweder verschwinden die Überschriften oder die 2. Tabelle im Register wird nicht angezeigt. Wer kann mir dabei helfen? Vorab schon mal Vielen Dank
Guesa
Hier der original Code
Sub Aktualisieren()
Dim N As Long
' Übersicht muß das erste Blatt links sein
With Worksheets("Übersicht")
.UsedRange.ClearContents
' Zellanzahl in Range so groß wie Elemente in der Split-Klammer
.Range("A1:C1") = Split("Name Straße PLZ")
For N = 2 To Worksheets.Count
.Cells(N, 1).Value = Worksheets(N).Range("X10").Value
.Cells(N, 2).Value = Worksheets(N).Range("X12").Value
.Cells(N, 3).Value = Worksheets(N).Range("X14").Value
Next N
End With
End Sub
Anzeige