Hallo Community,

ich hab ein Problem bei der Zuweisung eines Werts zu einer Zelle.

Ich möchte dass in der Zelle (z.B. A5) ein Text steht, der bei allen Sheets übernommen wird. Als Excel Nutzer markiert man alle Sheets und schreibt den Text in die gewünschte Zelle. Ziel erreicht. Beim programmieren is das gerade nicht so einfach.. :-)

Macro Recorder:

Sub Makro1()

    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Sheets("Tabelle1").Activate
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "Hallo"
    
End Sub

Um flexibel zu sein, hab ich die Auswahl der Sheets in einer extra Sub ausgegliedert:

Sub SelectAllSheets()

Dim i, iTab, TabArray() As Integer

    iTab = ThisWorkbook.Worksheets.Count
    ReDim TabArray(1 To iTab)
    On Error Resume Next
    
    For i = 1 To iTab
        TabArray(i) = i
    Next i
    
    ThisWorkbook.Worksheets(TabArray).Select
    ThisWorkbook.Worksheets(1).Activate

End Sub

Nun möchte ich auf die Zelle zugreifen und den Wert verändern.

Sub TextZuweisen()

    Call SelectAllSheets

    Range("A5").Value = "Hallo"

End Sub

Jetzt fügt das Programm den Text nur auf dem aktuell angezeigten Sheet ein. Was mache ich falsch? Gibt es eine Möglichkeit ohne Select zu arbeiten?

Vielen Dank und Gruß,
Martin