Ausgeblendete Spalten einblenden

[ricface]

hallo zusammen,

eigentlich excel für dummies, aber ich bin dann wohl einer davon :)

Spalten A-E sind ausgeblendet und lassen sich nicht wieder einblenden. Habe es über einblenden, Spaltenbreite, "gehe zu:" A1 --> Format --> einblenden etc. versucht. einmal sind die spalten ganz kurz aufgeblitzt, um danach gleich wieder zu verschwinden. was ist das für ein mächtiger zauber?

lg
ric

[atilla]

Hallo,

von mir diese Vermutung, die sind nicht ausgeblendet, sondern haben die Breite 0.
Zum Testen Spalten markieren und eine Breite festlegen.

Mal schauen, was andere noch an Vermutungen anstellen.
Denn was anderes ist nicht möglich ohne die Datei.

[BoskoBiati]

Hallo,

gibt es Makros in der Datei?

ansonsten: Kästchen in der linken oberen Ecke anklicken, mit der rechten Maustaste auf den Spaltenkopf klicken, einblenden.

[ricface]

danke für eure tips.

die spaltenbreite hatte ich auch vermutet. hatte diverse zahle ausprobiert von 1-100. das war glaube ich der moment, als die spalten kurz aufflackerten.

oben links klicken um alles zu markieren und dann auf einblenden habe ich auch versucht.

makros sind keine aktiv. es ist kurisoserweise auch nur in einem reiter. alle anderen laufen. ich kann aber keinen unterschied zwischen den reitern entdecken.

[radagast]

heje excelfreunde,

im anhang die Tabelle "Excel_RowColumMenue_reset.xlsm"...
ggf. in die betroffenen tabelle kopieren und als Tabellexyz.xlsm abspeichern. in makrolauffähiger umgebung einmal ausführen....

[schauan]

Hallöchen,

hier mal der Code aus der Mappe von Janosch.

Code:

Option Explicit
Sub RowColumnResetMenüAktivieren()
    Application.ScreenUpdating = False
    On Error Resume Next
    'CommandBars("Worksheet Menu Bar").Reset
    'CommandBars("Worksheet Menu Bar").Controls("Datei").Reset
    With Application
            .DisplayFormulaBar = True
            .DisplayStatusBar = True
            .CommandBars("Cell").Reset
            .CommandBars("Cell").Enabled = True
            .CommandBars("ply").Reset
            .CommandBars("ply").Enabled = True
            .CommandBars("Column").Enabled = True
            .CommandBars("Row").Enabled = True
            .Columns("A:XFD").EntireColumn.Hidden = False
            .Rows("1:1048576").EntireRow.Hidden = False
    End With
    ActiveWindow.WindowState = xlMaximized
    Application.ScreenUpdating = True
End Sub

[snb]

Versuch mal:

Code:

Sub M_snb()
   sheet1.Columns.hidden=false
End Sub

[ricface]

danke janosch für den code. die datei kann ich hier auf arbeit jedoch nicht laden.
deswegen danke schauan für die übersetzung :)
und danke snb.
aber da ich ja wie gesagt selbst ein noob bin: wo gibt man den code ein?

[Peter]

Hallo,

der Code muss in ein allgemeines Modul der Datei:

- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden
- im Projektexplorer wird das Modul unter der Datei angezeigt
- speichen und den VBA-Editor mit Alt+F4 schliessen
- das Makro steht dir jetzt in dieser Datei zur Verfügung und kann mit Alt-F8 aufgerufen werden

[atilla]

Hallo,

und damit es in Deutschland funktioniert hier die Übersetzung:

Code:

Sub M_snb()
  Tabelle1.Columns.Hidden = False  'Tabelle1 ist der Code Name
End Sub

oder

Code:

Sub M_snb2()
  Sheets("Tabelle1").Columns.Hidden = False  'Tabelle1 ist der Name im Register
End Sub