Office: (Office 2013) Zellen in Arbeitsblättern per VBA markieren

Hallo,

ich verzweifele grade beim Versuch, bestimmte Zellen per VBA auszuwählen (zu markieren).

Ich möchte das in folgendem Code einbauen, aber die Codezeilen, die Microsoft zeigt, oder die man in verschiedenen Foren findet geben nur Fehler aus

Der Code ist folgender:

Code:

Private Sub CommandButton2_Click()
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
      For bytTab = 0 To 11
        With Worksheets(arrTabs(bytTab))
            .Protect "*", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
   End With
   Next bytTab
   Application.DisplayFormulaBar = False
   For Each Ws In Worksheets
    Ws.Activate
    With ActiveWindow
        .DisplayHeadings = False
    End With
   Next Ws
   MsgBox "Die Monatsblätter sind nun geschützt!"
End Sub

Es soll in jedem Monatsblatt die Zelle A1 ausgewählt werden.

Was genau muss ich da tun?

 

Hi Jandb1980

Wo genau möchtest du denn die Zellen auswählen? Das Problem wird wahrscheinlich sein, dass du dies nach der Zeile

Code:

.Protect "tweiC2nAk3", DrawingObjects:=True, Contents:=True, Scenarios:=True _

versuchst? Geschützte Zellen können nicht per VBA ausgewählt werden :)
Du könntest eine Zeile davor auswählen:

Code:

Cells(1,1).select

Dies würde die Zelle in der ersten Reihe und ersten Kolone auswählen.

Grüsse, Reida

 

Hm... Nun kommt keine Fehlermeldung mehr, aber die Zelle A1 wird nicht ausgewählt stattdessen bleiben andere vorher gewählte Zellen ausgewählt.

 

Könntest Du den Code nun noch einmal reinkicken?

 

Code:

Private Sub CommandButton2_Click()
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
      For bytTab = 0 To 11
        With Worksheets(arrTabs(bytTab))
            Cells(1, 1).Select
            .Protect "*", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
   End With
   Next bytTab
   Application.DisplayFormulaBar = False
   For Each Ws In Worksheets
    Ws.Activate
    With ActiveWindow
        .DisplayHeadings = False
    End With
   Next Ws
   MsgBox "Die Monatsblätter sind nun geschützt!"
End Sub

 

Ciao Jandb1980

Du hast das . vor

Code:

Cells(1, 1).Select

vergessen.
Da Du den Code in einer Schlaufe für jedes Tabellenblatt aufrufst, wird der Befehl ansonsten auf dem aktuellen Worksheet ausgeführt.

Ersetze

Code:

Cells(1, 1).Select

also mit

Code:

.Cells(1, 1).Select

Grüsse und schönes Wochenende

Reida

 

Nun kommt wieder ein Laufzeitfehler 1004:
Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

 

Klar: Nach dem vorherigen erfolgreichen Versuch wird die Tabelle gesperrt sein, schliesslich hat das Makro ja funktioniert :) Zuerst entsperren!

Ansonsten kannst Du noch eine Zeile mehr einfügen (Vor dem Select):

Code:

.Activate

Damit wir das Sheet ausgewählt und das Select funktioniert ganz sicher.

 

Ne, Fehler bleibt!

 

Damit auch?

 

Yes, entweder oder, und beide zusammen auch.

Das ist ja mein Problem, diese Codezeilen findet man ja auch dank Google, aber die funktionieren nicht bei mir

 

Ich habe mal kurz ein Excel aufgemacht:

Code:

Private Sub CommandButton2_Click()
   Dim arrTabs()
   Dim bytTab As Byte
   arrTabs = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
      For bytTab = 0 To 11
        With Worksheets(arrTabs(bytTab))
            .Unprotect "*"
            .Activate
            .Cells(1, 1).Select
            .Protect "*", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
   End With
   Next bytTab
   Application.DisplayFormulaBar = False
   For Each Ws In Worksheets
    Ws.Activate
    With ActiveWindow
        .DisplayHeadings = False
    End With
   Next Ws
   MsgBox "Die Monatsblätter sind nun geschützt!"
End Sub

Das funktioniert :P

 

Ahhhh.... Okay :D

Ich hatte:

Code:

.Cells(1, 1).Activate
.Cells(1, 1).Select

geschrieben, nur mit .Activate gehts :D

DANKE dir :)