... einen habe ich noch ...
Das Zieldokument hat ja zwei Blätter (eigentlich 3, aber Nr. 3 ist nur ein verstecktes Hilfsblatt).
Die Blätter heißen natürlich immer gleich; logisch... Kommen ja aus dem gleichen Template...
Wie kann ich es also anstellen, das die beiden Blätter bei Start des Scripts behandelt werden und nicht nur jenes, welches gerade den Fokus hat? Ich hatte schon einiges versucht, aber da ist nur Murks bei rausgekommen ....
Ich nehme mal den Namen aus dem Beispielblatt (Partlist):
Code:
Sub Formatkorrektur()
Dim Bereich As Range
Set Bereich = Sheets("Partlist").Range("A:A").Find("Quantity").Offset(1)
If Not Bereich Is Nothing Then
Set Bereich = Bereich.Resize(Bereich.End(xlDown).Row - Bereich.Row + 1, 13)
Bereich.Columns("A").NumberFormat = "#,##0"
Bereich.Columns("B:K").NumberFormat = "@"
Dim temp As Variant
Dim i As Long
temp = Bereich.Columns("L")
For i = 1 To UBound(temp)
temp(i, 1) = CDbl(temp(i, 1))
Next
Bereich.Columns("L") = temp
Bereich.Columns("L").NumberFormat = "_-* #,##0.0000 [$€-407]_-;-* #,##0.0000 [$€-407]_-;_-* ""-""???? [$€-407]_-;_-@_-"
Bereich.Columns("M").NumberFormat = "_-* #,##0.000 [$€-407]_-;-* #,##0.000 [$€-407]_-;_-* ""-""??? [$€-407]_-;_-@_-"
With Bereich.Columns("A:M")
With .Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 0
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
End If
End Sub
... ahhhh, so geht das :21:
Ich danke Dir; das bekomme ich hin... Super! Kann ich mich ja bald wieder um meine Kernkompetenzen kümmern
