Blatt ist schwarz

Forumthread: Blatt ist schwarz
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Blatt ist schwarz

Blatt ist schwarz

10.04.2026 16:30:10

Christian

Hallo,

ich bitte euch um Hilfe,

hat jemand eine Idee, was ich verbockt haben könnte, dass das Blatt so aussieht, wie auf dem Screenshot?
Ein paar Infos,

1. wenn ich eine Kopie des Blatts mache, sieht diese genauso aus
2. es betrifft nur dieses Blatt, alle anderen Blätter sowohl das eine, als auch Blätter in anderen Mappen funktionieren.
3. Per VBA ein neues Blatt erstellen und Inhalte rüberkopieren hat auch nichts gebracht.
4. normalerweise sollte da schwarzer Text auf weißem Hintergrund mit Rahmenlinien sein und vor allem auch die Spaltenüberschriften A, B, C usw.

Userbild

Was läuft da schief?

Danke
Christian

Hier noch eine Kopie des Blatts (in der Bsp Datei hab ich das was in den Zellen stand mit VBA entfernt)

https://www.herber.de/bbs/user/180512.xlsm

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Problem behoben

10.04.2026 16:44:40

Christian
Die Spalten waren ausgeblendet OWT

10.04.2026 17:05:54

Crazy Tom
danke

10.04.2026 17:20:54

Christian

Problem behoben

10.04.2026 16:44:40

Christian

Hab jetzt mal statt ChatGPT Copilot gebeten, mir ein Makro zu schreiben, dass ein neues Blatt erstellt und die Zellinhalte übernimmt,

das hat es geschafft mir ein neues Blatt mit wieder sichtbarem Inhalt zu erstellen.

Vielen Dank an jeden der sich mit meinem Fall beschäftigt hat und ein schönes Wochenende
Christian

Der Code der jetzt funktioniert hat



Sub KopiereNurWerteNachNeu()

    Dim wsQuelle As Worksheet

    Dim wsZiel As Worksheet



    ' Quellblatt festlegen

    Set wsQuelle = ThisWorkbook.Worksheets("Tabelle2")



    ' Neues Blatt erstellen

    Set wsZiel = ThisWorkbook.Worksheets.Add

    wsZiel.Name = "KopieNurWerte_" & Format(Now, "hhmmss")



    ' Inhalte ohne Formatierung kopieren

    wsQuelle.UsedRange.Copy

    wsZiel.Range("A1").PasteSpecial Paste:=xlPasteValues



    ' Zwischenablage leeren

    Application.CutCopyMode = False

End Sub

Die Spalten waren ausgeblendet OWT

10.04.2026 17:05:54

Crazy Tom

danke

10.04.2026 17:20:54

Christian

Hallo Tom,

vielen Dank

daran hab ich auch schon gedacht, hab aber übers Menü keine Möglichkeit gefunden, Spalten einzublenden, ans Ändern der Spaltenbreite hatte ich nicht gedacht.
Jetzt funktionierts wieder, danke für den Tipp.

Gruß
Christian

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!