EXCEL: Zeile 1 und 2 auf jedem Tabellenblatt fixieren?

Ich habe eine Arbeitsmappe mit ca. 50 Tabellenblättern, bei denen ich jeweils Zeile 1 und 2 fixieren möchte. Wie kann ich das (evtl per VBA ) machen, also ohne dass ich jedes einzelne Blatt anfassen muss?

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

DanKirpan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

17.03.2021, 10:02

Dazu könntest du z.B diesen Code verwenden:

Sub Freeze()
Dim i As Long

For i = 1 To Sheets.Count
    ActiveWorkbook.Sheets(i).Activate
    Range("A3").Select
    ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
Next i

End Sub

FragenstellerYZ

Beitragsersteller

17.03.2021, 10:11

Vielen Dank! Der Code funktioniert leider nicht, es passiert nichts. Habe ihn in "Diese Arbeitsmappe" kopiert. Muss ich da noch irgendwas ändern oder einsetzen?

DanKirpan

17.03.2021, 10:21

@FragenstellerYZ

Bitte,

Der Code läuft nicht automatisch ab, du musst ihn manuell starten (das grüne Dreieck in der Menüleiste oder per Shortcut F5)

DanKirpan

17.03.2021, 10:30

@FragenstellerYZ

Oder habe ich dich missverstanden? Dann schreibe mal bitte was genau du alles machst :7

FragenstellerYZ

Beitragsersteller

17.03.2021, 10:30

@DanKirpan

Alles klar, danke!

Suboptimierer

17.03.2021, 10:55

@FragenstellerYZ

ActiveSheet.Range("A3").Select

Dann klappt es.

FGO65

17.03.2021, 09:35

Versuche mal, alle Blätter zu markieren (unten auf den Reiter für das Blatt klicken) und dann in einer Tabelle die Zeilen fixieren.

Ggf wird das für alle Blätter übernommen.

FragenstellerYZ

Beitragsersteller

17.03.2021, 09:40

Danke für den Vorschlag, funktioniert leider nicht ..

Ähnliche Beiträge

EXCEL Tabellenblatt fixieren?

Ich habe in EXCEL 2007 eine Arbeitsmappe mit ca 20 Tabellenblättern und ein Tabellenblatt ("Inhaltsverzeichnis")das ich stets "griffbereit" haben möchte, es soll also fixiert sein, auch wenn ich auf die Tabellenblätter weiter rechts klicke.

der VBA Code

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Sheets(Sh.Index - 1).name <> "Tabelle1" 


        Sheets("Tabelle1").Move Before:=Sheets(Sh.Index)

        Sheets(Sh.Index).Activate

    Else

        Sheets(Sh.Index).Activate

    End If

End Sub

den ich bei der Recherche fand hat nichts gebracht. Was tun?

...zum Beitrag

Eine Excel Datei mit 50 Tabellenblätter sollen 50 Dateien werden

Hallo, gibt es irgend etwas hilfreiches ? Würde sonst mit STRG + jedes einzelne Tabellenblatt anfassen und in eine neue Datei hineinziehen.

...zum Beitrag

Excel: Tabellenblatt per Makro kopieren und umbenennen?

Hallo nochmal

Ich habe vorhin bereits eine ähnliche Frage gestellt. Jetzt hat sich eine weitere Frage ergeben. Ich habe ein Excelfile mit 2 Tabellenblättern (Inhalt und Template). Beim Ausführen eines Makros auf der Seite "Inhalt" soll nun folgendes geschehen:

Tabellenblatt "Template" wird kopiert. Dieses neue Blatt wird nach dem Inhalt der Zelle C8 des Tabellenblatts "Inhalt" benannt.

Wäre super, wenn mir jemand ein VBA dazu machen könnte :) Vielen Dank im Voraus!

...zum Beitrag

VBA: Automatisch mehrere Tabellenblätter löschen?

Moin, ich möchte gerne mehrere Tabellenblätter löschen (Excel -> VBA). Das Problem dabei: Die Nummer des ersten und letzten zu löschenden Blattes soll abgefragt werden. Habe jetzt schon die eine oder andere Zeile "zusammengebastelt", allerdings läuft das Sub noch nicht so ganz rund. Kann mir da jemand weiterhelfen?? Bin mit VBA leider nicht so vertraut....

Sub Aufgabe 17()

Dim intWert1 As Integer
Dim intWert2 As Integer
Dim intWert3 As Integer

intWert1 = InputBox("Nummer des ersten zu löschenden Blattes?", "Tabellenblätter löschen", 0)
intWert2 = InputBox("Nummer des letzten zu löschenden Blattes?", "Tabellenblätter löschen", 0)

Application.DisplayAlerts = False

For intWert3 = intWert1 To intWert2
    intWert3 = "Tabelle" + intWert1
    Worksheets(intWert3).Delete
Next intWert3

Application.DisplayAlerts = True

End Sub

...zum Beitrag

Mit Excel VBA bestimmte Zeilen in anderes Tabellenblatt kopieren?

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

...zum Beitrag

Bedingte Formatierung über 2 Tabellenblätter wer kann mir da weiterhelfen?

Hallo liebe Excel Experten,
Ich habe 2 Tabellenblätter mit jeweils Werten in A1 bis F1 und ca 500 Zeilen.
Nun möchte ich die Zellen in Tabellenblatt 2 formatieren dass wenn zB die Werte in Zeile 1 also A1:F1 identisch sind mit Werten in Tabellenblatt 1 ,
zB Tabellenblatt 2 A1:F1 stehen die Werte 10,20,30,40,50,60 und in Tabellenblatt 1 stehen in A499:F499 die Werte 60,30,40,50,10,20 dann soll die Formatierung der Zellen A1:F1 in Tabellenblatt 2 in Kraft treten .
das heißt die Werte sind nicht sortiert.
Ich würde mich sehr über Lösungsvorschläge freuen , dafür im voraus vielen Dank

...zum Beitrag

Excel (VBA) farbig Markieren und anschließend kopieren?

Hi liebe Leute, ich benötige bei meiner Excel-Datei eure Hilfe.

Die Datei hat zwei Tabellenblätter "Ermittlung" und "Markierung"

In dem Tabellenblatt "Ermittlung" steht untereinander genaue Zellenpositionen: A4, A1517, A119, A1831 usw. Nun möchte ich, dass dies gerne mittels VBA Makro alle diese Positionen erkennt und auf dem anderen Tabellenblatt "Markierung" farbig markiert.

Dann im nächsten Makro, dass Excel diese farbigen Zeilen kopiert und auf das dritte Tabellenblatt "Prüfung" kopiert. Aber er soll nicht einfach die komplette Zeile kopieren, sondern nur den Bereich Spalte A bis R und genau auch nur in Spalte A bis R diese wieder einfügen.

Gerne seprate in zwei verschiedenen Makros. Ich habe schon gesucht und probiert, aber nichts hat geholfen. Habt Ihr eine Idee? Danke

...zum Beitrag

Excel - Ändern eines Zellenwertes in allen Tabellenblättern

Hallo, ich brauche Eure Hilfe zu Excel 2007.

Ich habe eine Excel-Datei mit knapp dreißig Tabellenblättern. In jedem Tabellenblatt enthält die jeweilige Zelle O7 den gleichen Wert. Diesen Wert möchte ich ändern.

Wie kann ich das "auf einen Rutsch" für alle Tabellenblätter machen, ohne dass ich in allen Tabellenblättern einzeln den Wert der Zelle angleichen muss?

Danke für Eure Tipps.

...zum Beitrag

EXCEL: Spalten über mehrere Tabellenblätter zählen?

Hey,

ich möchte über mehrere Tabellenblätter (die Januar, Februar, ... benannt sind) in Zeile A6-Z6 alle "K"s zählen und dies im ersten Tabellenblatt wiedergeben. Habe bis jetzt keine passende Formel gefunden, bitte um Hilfe :)

...zum Beitrag

Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

...zum Beitrag

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zum Beitrag

Excel - Zeile in anderes Tabellenblatt kopieren...

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

...zum Beitrag

Excel Daten aus mehreren Tabellenblätter auf einer Übersicht?

Hallo ich habe 3 Tabellenblätter mit Daten und möchte gerne in einem4. Tabellenblatt all diese Daten aus den anderen Tabellenblättern als Übersicht in einer Tabelle untereinander darstellen. Die Tabellen haben alle das gleiche Format. Später soll das Blatt gesichert werden, dass dort nicht verändert werden kann, da es nur zur Übersicht dient.

Klar ich kann sie einfach kopieren und dort einfügen. Aber wenn ich dann in einem Tabellenblatt eine neue Zeile ergänze sollte die auch in der Übersicht ergänzt werden und somit alle anderen Daten weiter runter rutschen.

Ist das Möglich?

...zum Beitrag

Excel VBA. Wie kann ich eine Zelle in ein anderes Tabellenblatt in eine bestimmte Spalte einfügen?

Wie kann ich zum Beispiel aus Tabellenblatt Zelle A11 Werte in Tabellenblatt 2 kopieren und dabei Spaltte "B" hineinkopieren? Außerdem soll Excel immer in die nächste frei Zeile die Werte hineinkopieren.

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen