Select funktioniert nicht

Hallo Leute,
ich habe 19 Arbeitsblätter, welche alle mit einer jeweiligen Funktion (Clear_Arbeitsblatt 1, Clear_Arbeitsblatt 2 usw.) ins Ursprungslayout zurück gebracht werden. Diese Funktionieren alle. Wenn ich diese Funktionen in eine große Funktion in ein 20. Arbeitsblatt rein packe (Reset all) , geht es nicht.
Wenn ich die "Reset all" Funktion mit F8 peu a peu durchführe und auf das jeweilige Arbeitsblatt gehe, wenn die dazugehörige Clear Funktion durchgeführt wird, dann geht es.
Es bleibt immer bei der "Select" Funktion stehen. Ich hab euch mal den Code beigefügt und hoffe ihr könnt mir helfen.
Besten Dank,
Lara


Sub ClearBoard()
Range("A4:H60").MergeCells = False
Range("B4:G50").ClearContents
Range("B2:D2").ClearContents
Range("H:H").Interior.Color = RGB(100, 105, 115)
With Range("B4:G60")
.Font.ColorIndex = 1
.Font.Bold = False
.Font.Name = "DB OFfice"
.Interior.Color = RGB(225, 230, 235)
End With
Range("B4:G60").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ThemeColor = 1
.TintAndShade = 0
.Weight = xlThin
End With
Range("E2:E60").BorderAround ColorIndex:=2, Weight:=xlThick, LineStyle:=xlContinuous
Range("B2:G60").BorderAround ColorIndex:=2, Weight:=xlThick, LineStyle:=xlContinuous
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Das ist nur meine Meinung zu dem Thema.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

With Range("B4:G60") .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeTop) .LineStyle = xlContinuous .ThemeColor = 1 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .ThemeColor = 1 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .ThemeColor = 1 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ThemeColor = 1 .TintAndShade = 0 .Weight = xlThin End With End With

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread