Microsoft Excel

Herbers Excel/VBA-Archiv

Makro - für allen Tabellenblätter gültig

Betrifft: Makro - für allen Tabellenblätter gültig von: Herbert Zuleger
Geschrieben am: 14.11.2012 16:54:04

Hallo,

wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?

Sub spalte_c_ausblenden()
'
' spalte_c_ausblenden Makro
'

'
    Columns("C:C").Select
    Selection.EntireColumn.Hidden = True
End Sub
vielen Dank im voraus.

  

Betrifft: AW: Makro - für allen Tabellenblätter gültig von: Tobias S.
Geschrieben am: 14.11.2012 17:09:24

Hi,

versuch das mal:

Sub eintragen()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
    wks.Columns(3).EntireColumn.Hidden = True
Next wks
End Sub
beste tobi


  

Betrifft: AW: Makro - für allen Tabellenblätter gültig von: Herbert Zuleger
Geschrieben am: 14.11.2012 20:04:27

Hallo Tobi,

vielen Dank. Klappt einwandfrei.
Auch mit abgewandeltem Makro die Spalten wieder einblenden.
Aber jetzt hab ich noch eine Frage.
Wie lautet denn die Formel, wenn ich z. B. in allen Tabellenblättern außerdem die Zelle D1 gelb einfärben will?
Das bekomm ich leider nicht hin.

viele Grüße


  

Betrifft: Interior.Color = vbYellow ... von: Matthias L
Geschrieben am: 14.11.2012 21:52:55

Hallo

Probiers mal so:

Sub eintragen()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
With wks
.Columns(3).EntireColumn.Hidden = True
.Range("D1").Interior.Color = vbYellow
End With
Next wks
End Sub
Gruß Matthias


  

Betrifft: AW: Interior.Color = vbYellow ... von: Herbert Zuleger
Geschrieben am: 15.11.2012 08:07:54

Hallo Matthias, vielen Dank, klappt einwandfrei.

jetzt hätte ich noch eine Frage?
Wie kann ich, wenn ich z.b. die Tabellenblatter 1, 2, 3, 4, und 5 habe,
die Blätter 1 und 3 von diesem Makro ausschließen? Geht das?

viele Grüße


  

Betrifft: AW: Interior.Color = vbYellow ... von: Matthias L
Geschrieben am: 15.11.2012 15:41:06

Hallo

Bau ne Schleife drum so wie hier
Hier wird also Tabelle2 und Tabelle4 ausgelassen

Sub eintragen()
Dim wks As Worksheet
 For Each wks In ActiveWorkbook.Worksheets
  With wks
  If .Name <> "Tabelle2" And .Name <> "Tabelle4" Then
     .Columns(3).EntireColumn.Hidden = True
     .Range("D1").Interior.Color = vbYellow
  End If
  End With
 Next wks
End Sub
RegisterblattNamen bitte anpassen!

Gruß Matthias


  

Betrifft: AW: Interior.Color = vbYellow ... von: Herbert Zuleger
Geschrieben am: 15.11.2012 16:05:43

Hallo Matthias,

passt genau.

vielen Dank für deine schnelle Hilfe.

viele Grüße


 

Beiträge aus den Excel-Beispielen zum Thema "Makro - für allen Tabellenblätter gültig"