Code ergänzen
Walterk
zur Formatierung meiner Tabelle habe ich mit Hilfe des Forums und mit dem Makrorekorder den untenstehenden etwas längeren Code "Tabelleeinrichten" erstellt und er funktioniert auch. Es handelt sich nur um einen Ausschnitt aus dem Code.
Jetzt sollten noch zusätzlich alle Hochkommas aus der Tabelle entfernt werden, in der Recherche habe ich dafür diese Codezeilen gefunden:
Sub hk_weg()
Dim zelle As Range
On Error Resume Next
For Each zelle In Selection
If zelle "" Then zelle = zelle * 1
If Left(zelle, 1) = "'" Then
zelle = Right(zelle, Len(zelle) - 1)
End If
Next zelle
End Sub
Meine Bitte: Wer kann mir 1.) den oberen Code ändern, dass er das ganze Tabellenblatt betrifft und 2.) den oberen Code in den unteren Code einbauen, sodass die Hochkommas als erstes entfernt werden?Option Explicit
Sub ACLTabelleeinrichten()
Dim lngA As Long
Dim I As Long
Dim LCol As Integer
LCol = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
Range("A1:IV65536").Select
Selection.Replace what:=" ", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
With Selection.Font
.Name = "Tahoma"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveWindow.Zoom = 85
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Rows("2:2").Select
ActiveWindow.FreezePanes = True
' Beginn Texte ersetzen
usw.usw.