AW: Befehl verkürzen
24.08.2006 01:35:08
Matthias
Hallo Karsten,
also dieses Makro (Zusammenfassen_2) ist wirklich bemerkenswert...
Du prüfst die Zelle, ob sie Inhalt hat, so:
Set Zelle = .Find("", LookIn:=xlValues)
If Zelle Is Nothing Then
?
Es würde ja genügen:
If Zelle.Value <> "" Then
Ich blick nicht ganz, was das Makro macht...
Wenn die Zelle Inhalt hat und die links davon niocht, dann setzt du in den drei Zellen (links, Zelle selbst und rechts) einen Rahmen links und rechts. Ist das alles oder hab ich was übersehen?
Also teste mal dies:
Sub test()
Dim Spalte
Dim Zeile As Long
For Each Spalte In Array(2, 5, 8, 11, 14)
For Zeile = 3 To 37 Step 2
Zusammenfassen_2 Cells(Zeile, Spalte)
Next Zeile
Next Spalte
End Sub
Sub Zusammenfassen_2(Zelle As Range)
If Zelle.Value <> "" And Zelle.Value = "" Then
With Range(Zelle.Offset(0, -1), Zelle.Offset(0, 1))
.Borders(xlDiagonalDown).LineStyle = xlNone 'xx
.Borders(xlDiagonalUp).LineStyle = xlNone 'xx
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 56
End With
.Borders(xlEdgeTop).LineStyle = xlNone 'xx
.Borders(xlEdgeBottom).LineStyle = xlNone 'xx
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 56
End With
.Borders(xlInsideVertical).LineStyle = xlNone 'xx
End With
End If
End Sub
Die mit 'xx gekennzeichneten Zeilen kann man weglassen, wenn hier keine vorhandenen Linien gelöscht werden müssen.
Gruß Matthias