VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 10:44:08	Gast1897
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 11:59:41	UweD
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 12:31:47	Gast71218
Zeig mal was Du bisher hast ...	25.09.2020 12:35:05	Mase
Zeig mal was Du bisher hast ...	25.09.2020 13:08:03	Gast40851
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:19:23	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:36:02	Gast95704
Das wird ne schwere Geburt hab ich so das Gefühl	25.09.2020 13:45:10	Mase
Das wird ne schwere Geburt hab ich so das Gefühl	25.09.2020 13:47:09	Gast92730
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:47:19	UweD
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	25.09.2020 14:13:57	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	25.09.2020 15:30:22	UweD
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	26.09.2020 11:37:32	Gast43201
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	26.09.2020 20:01:41	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	28.09.2020 09:42:54	UweD

Ansicht des Beitrags:

Von:
UweD

Datum:
28.09.2020 09:42:54

Views:
735

Rating:

Antwort:

Thema:
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing

Hallo nochmal

- Du musst die Blätter mit angeben. sonst wird immer das gerade Aktive verwendet.
Duch Verwendung von With ....kann das vereinfacht werden

- Auf select kann in 99% verzichtet werden.

Sub vorrollen()
 
 
 
 Dim i As Integer
    For i = 4 To Worksheets.Count
        With Worksheets(i)
            If .Visible = True Then 'nur wenn eingeblendet
                Select Case .Name
                    Case "Tabelle6", "Tabelle7" ', usw
                     
                       
                       .Range("D9:G11").Copy .Range("D8:G10")
                       .Range("D11:G11").ClearContents
                    
    
                   Case "Tabelle5", "Tabelle8"
    
                        .Range("D19:G21").Copy Range("D18:G20")
                        .Range("D21:G21").ClearContents
                                        
                   Case Else
                       'mach nix
               End Select
           End If
        End With
    Next
End Sub

LG UweD

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 10:44:08	Gast1897
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 11:59:41	UweD
Makro nur für bestimmte Tabellenblätter anwenden	25.09.2020 12:31:47	Gast71218
Zeig mal was Du bisher hast ...	25.09.2020 12:35:05	Mase
Zeig mal was Du bisher hast ...	25.09.2020 13:08:03	Gast40851
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:19:23	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:36:02	Gast95704
Das wird ne schwere Geburt hab ich so das Gefühl	25.09.2020 13:45:10	Mase
Das wird ne schwere Geburt hab ich so das Gefühl	25.09.2020 13:47:09	Gast92730
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch einge	25.09.2020 13:47:19	UweD
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	25.09.2020 14:13:57	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	25.09.2020 15:30:22	UweD
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	26.09.2020 11:37:32	Gast43201
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	26.09.2020 20:01:41	Mase
Das Makro soll aber nur die Blätter anwählen und den Code ausführen, wenn diese auch eing	28.09.2020 09:42:54	UweD