Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle A2 in allen AB's selektieren ?

Zelle A2 in allen AB's selektieren ?
17.08.2007 14:20:00
Selma
Hallo Leute,
ich habe versucht mit diesem Makro für alle Arbeitsblätter der aktive Datei die Zelle A2 zu selektieren.
Leider wird dies nur für aktives AB gemacht. Was muss ich ändern?

Sub Rang_A2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Range("A2").Select
Next ws
End Sub


Vielen Dank im Voraus.
Liebe Grüße
Selma

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle A2 in allen AB's selektieren ?
ransi
HAllo Selma
Hier hast du mal 2 Möglichkeiten:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub nacheinander()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ws.Range("A2").Select
Next ws
End Sub


Public Sub aufeinmal()
Dim ws()
Dim Blatt As Worksheet
Dim L As Long
Redim ws(Worksheets.Count - 1)
For Each Blatt In ActiveWorkbook.Worksheets
    ws(L) = Blatt.Name
    L = L + 1
Next Blatt
Sheets(ws).Select
Range("a2").Select
End Sub

ransi

Anzeige
Danke ransi....
17.08.2007 14:50:00
Selma
Danke ransi....
LG
Selma

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige