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?

Suboptimierer

15.03.2021, 10:11

Was heißt "nichts gebracht"? Passiert gar nichts?

FragenstellerYZ

Fragesteller

15.03.2021, 10:12

genau, es passiert gar nichts.

4 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

15.03.2021, 12:29

Bei mir kommt direkt erstmal ein Syntaxfehler.

Beim If fehlt ein Then.

Füge ich es ein, funktioniert der Code wie von dir angedacht.Du musst natürlich im VBA-Code noch "Tabelle1" durch "Inhaltsverzeichnis" ersetzen.

Woher ich das weiß:Studium / Ausbildung – Fachinformatiker - Anwendungsentwicklung

FragenstellerYZ

Fragesteller

15.03.2021, 13:36

Das habe ich gemacht. Könntest du mir den Code wie er bei dir funktioniert hier nochmal schreiben?

Suboptimierer

15.03.2021, 14:13

@FragenstellerYZ

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sheets(Sh.Index - 1).Name <> "Tabelle1" Then _
        Sheets("Tabelle1").Move Before:=Sheets(Sh.Index)
    Sheets(Sh.Index).Activate
End Sub

Suboptimierer

15.03.2021, 14:27

@Suboptimierer

Du hast höchstens noch ein Problem, wenn du das erste Blatt anklickst, weil dann auf ein nicht existentes Element zugegriffen wird.

Ein bisschen optimiert:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If (Sh.Index = 1) Then
       Tabelle1.Move Before:=Sh
   ElseIf (Sheets(Sh.Index - 1).Name <> Tabelle1.Name) Then
       Tabelle1.Move Before:=Sh
   End If
   Sh.Activate
End Sub

FragenstellerYZ

Fragesteller

16.03.2021, 09:01

@Suboptimierer

Das ist es! Vielen, vielen Dank!

Suboptimierer

16.03.2021, 10:14

@FragenstellerYZ

Bitteschön!

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

15.03.2021, 11:24

Wenn das Blatt als INDEX fungiert, warum dann von Hand nach rechts klicken ?
Auf meinem Index klicke ich den Blattnamen irgend eines weiteren Sheets.
Dieses wird dann sichtbar gemacht (.visible = true) und angesprungen.
Auf diesem Sheet gibt es den "Hyperlink" zurück zum Index.
Klicke ich diesen wird das sichtbare Sheet verlassen (Index aktiviert) und dann auch wieder .visible = false gestellt. So ist das Excel Workbook immer aufgeräumt.
Für Wartungszwecke gibt es einen knopf, der ALLE Sheets sichtbar (unsichtbar) stellen kann. (Außer das INDEX Sheet)

GutenTag2003

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Office, Microsoft Excel, Formel

15.03.2021, 10:33

Wenn Du jeweils beides sehen willst, Inhalt des jeweiligen Tabellenblattes und die Inhaltsübersicht, lege für die Inhaltsübersicht eine Sep. Excel-Datei an. Dann kannst Du Dir beides parallel ansehen.

Woher ich das weiß:eigene Erfahrung

jgobond

15.03.2021, 10:25

du könntest auf jeweils auf die IVZ Spalten verweisen und die dann fixieren. Dann brauchst kein VBA

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?

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

Brauche einen Excel Makro zum wechseln von Tabellen?

Kurzgefasst brauche ich einen Makro mit folgender Logik:

Wenn irgendeine Zelle angeklickt wird, worin die ersten drei Zeichen identisch sind wie mit einem Tabellenblatt, dann soll zu dem Tabellenblatt gewechselt werden.

Also Zelle A1 heißt zum Beispiel "AAA_Tabelle1".
Klickt man nun auf A1, soll Excel zum Tabellenblatt mit dem Namen "AAA" springen.
Und dies bitte automatisiert. Denn manuell könnte ich es auch machen, aber dann wären halt alle Werte fest und nicht variabel. Mein manueller/nicht flexibler Code lautet:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell Like "AAA*" Then
Sheets("AAA").Select
End If
End Sub

Vielen Dank im Voraus

...zur Frage

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zur Frage

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?

...zur Frage

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?

...zur Frage

Excel Makro ausführen bei Änderung in einer Zelle in anderem Tabellenblatt?

Hallo zusammen,

ich habe ein Problem mit Excel, das vermutlich ganz leicht zu lösen ist, alleine komme ich aber nicht weiter.

Ich möchte gerne ein Makro immer bei einer Änderung in einer bestimmten Zelle ausführen lassen. Dazu habe ich bisher folgenden Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("A1")) If Target Is Nothing Then Exit Sub Else FooterLeft End If End Sub

Der funktioniert auch, bloß soll jetzt die aktivierende Zelle nicht A1 auf diesem Tabellenblatt sondern beispielsweise Zelle A6 auf dem Tabellenblatt "Deckblatt" sein.

Was muss ich hier wie umformulieren damit das klappt, oder brauche ich grundsätzlich eine ganz andere Funktion dazu?

Vielen lieben Dank!

...zur Frage

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zur Frage

Bemerkungen aus verschiedenen Tabellenblätter zusammenführen?

Hallo Freunde,

ist es möglich Texte aus verschiedenen Tabellenblättern in ein Tabellenblatt zusammenzuführen (Automatisch).

Tabellenblatt 1: Bemerkungen A40:45 und Tabellenblatt 2 : Bemerkungen A35:47 und A56:65 in Tabellenblatt 5: B95:.... .

Sind keine Bemerkungen im Tabellenblatt 1 sollen die Bemerkungen von dem Tabellenblatt 2 in Tabellenblatt 5 in B95 Kopiert werden (keine Leerzeile).

Danke im Voraus

...zur Frage

Zelleninhalte durch einen CommandButton löschen?

Ich möchte mit einem CommandButton einige Zelleninhalte auf anderen Tabellenblättern löschen. Mein Gedanke war so etwas:

Private Sub Reset_click()

Sheets("Tabellenblatt").Range("Zellenname").ClearContents

End Sub

Leider funktioniert das nicht.

Vielen Dank für Hilfe. Liebe Grüße

...zur Frage

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

...zur Frage

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.

...zur Frage

Excel Tabellenblatt = Sheet

Was ist eigentlich ein Excel-Sheet genau? Wenn ich mehrere Tabellenblätter in einer Excel-Datei habe, habe ich dann mehrere Sheets oder nur ein Sheet?

...zur Frage

Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

Cells.EntireRow.Hidden = False

If Range("E8").Value = "Rogo AC" Then

Columns("U:AH").Hidden = True

Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

Columns("U:AH").Hidden = True