End(xlDown) - was heisst das?
27.04.2006 17:07:15
gemba
das ist mein Makro, mit dem ich verschiedene Waehrungsformate ($, Euro etc.) einer Spalte zuweise. Meine Artikelliste hat in der Mitte drei Leerzeilen. Bis zur Mitte werden die Waehrungsformate korrekt zugewiesen, im unteren Teil hingegen bleibt immer dieselbe Waehrung stehen. Ich vermute jetzt, dass die Anweisung End(xlDown) das in Schuld ist. Was bedeutet sie? Wie muss ich das Makro aendern, damit auch der untere Teil der Liste Formate zugewiesen bekommt?
Private Sub Worksheet_Calculate()
Dim FormatZelle As Range
Dim lZeile As Integer
lZeile = Range("G5").End(xlDown).Row
Select Case Worksheets("help").Range("D81")
Case 1
Set FormatZelle = Worksheets("help").Range("G77")
Case 2
Set FormatZelle = Worksheets("help").Range("G78")
Case 3
Set FormatZelle = Worksheets("help").Range("G79")
End Select
Range("G4:G" & lZeile).NumberFormat = FormatZelle.NumberFormat
End Sub
Danke!!!!
gemba