ich bin ein wirklicher VBA-Neuling und habe folgendes Problem: Bei Ausführung meiner Makros muss auf passwortgeschützte ausgeblendete Tabellen zugegriffen werden. Das funktioniert leider nicht, da ich anscheinend Select u.ä. verwende. Habe jetzt schon probiert mit Range.Copy den Select-Anteil zu reduzieren, bekomme da aber immer einen BEZUG!-Fehler.
Mein Makro sieht so aus:
Worksheets("Gefilterte Listen").Activate
Range("V5:V82").Select
Selection.Copy
Worksheets("Kopie FAAA").Activate
Range("A1:A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
Worksheets("Gefilterte Listen").Activate
Range("V1").Select
End Sub
Danach sollen alle Werte alphabetisch geordnet werden:
Worksheets("Kopie FAAA").Select
Range("A1").Select
Dim rngZelle As Range, Auswahl As Range
For Each rngZelle In Columns("A:A").Cells
If rngZelle.Value "" Then
If Auswahl Is Nothing = True Then
Set Auswahl = rngZelle
Else
Set Auswahl = Union(Auswahl, rngZelle)
End If
End If
Next rngZelle
Auswahl.Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Worksheets("Personal").Activate
Range("D2:D81").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G21").Select
Worksheets("Kopie FAAAanwesend alphabetisch").Activate
Range("B1").Select
Application.CutCopyMode = False
End Sub
Mit dem "Reinigen" der Makros komme ich nicht zurecht. Habe auch gelesen, dass man die betroffenen Tabellen per Makrobefehl vor den Berechnungen einschalten und wieder ausschalten (mit Passwortschutz) kann. Bekomme ich aber leider auch nicht hin. Kann mir da jemand helfen?
Vielen Dank im Voraus für eure HIlfe.
Fififox