Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

farb. Zellen kopieren (ohne bedingte For

farb. Zellen kopieren (ohne bedingte For
13.05.2023 21:17:41
Fred


Hallo Excel-Profis,
ich habe eine Frage zum kopieren.
Ich möchte ein Sheet komplett kopieren. Die farbigen Zellen (mit bedingter Formatierung) sollen übernommen werden,- allerdings ohne "bedingter Formatierung".
Ist das irgendwie Möglich?

Gruss
Fred

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mehrdeutig
14.05.2023 08:27:58
lupo1
http://xxcl.de/bitteBeachten/ (Bsp. m händ eingetr Wunscherg)
Hinweis: Mit der Bedingung der BedF kommst Du dahin, wohin Du mit der BedF nicht kommst!


AW: farb. Zellen kopieren (ohne bedingte For
14.05.2023 14:09:59
GerdL
Moin Fred!

Sub Unit()

    Dim X As Worksheet, C As Range
    
    
    Set X = ActiveSheet
    Call X.Copy(after:=X)
    
    With ActiveSheet.UsedRange
        .FormatConditions.Delete
        
        For Each C In .Cells
            With X.Range(C.Address)
                If .FormatConditions.Count > 0 Then
                    C.Interior.Color = .DisplayFormat.Interior.Color
                ElseIf .Interior.ColorIndex = -4142 Then
                    C.Interior.ColorIndex = -4142
                End If
            End With
        Next
    
    End With
    
    Set X = Nothing


End Sub
Gruß Gerd


Anzeige
AW: farb. Zellen kopieren (ohne bedingte For
16.05.2023 09:13:00
Daniel
Hi
exportiere das Sheet in eine HTML-Datei (geht mit Speichern unter)
importiere dann wieder diese HTML-Datei in ein Excelblatt.
Wenn Formeln vorhanden waren und diese auch in der Kopie benötigt werden, dann musst du diese jetzt vom Original in des reimportierte Sheet einfügen. (Kopieren - Inhalte einfügen - Formeln)
Gruß Daniel

307 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Anzeige
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Copy - Paste ohne Formattierung
Markus

Hallo liebe Excel- Gemeinde:
Leider bin ich bei der Suche im Archiv nicht auf das gestoßen was ich brauche.
Ich habe folgendes Codesegment:
With ActiveWorkbook
'Eingangsdatum
.ActiveSheet.Range("C5").Copy
ThisWorkbook.Activate
ActiveCell.Offset(0, 19).Activate
Ac...
25.03.2009 14:02:40
Thread-ID: 1063773
6 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
5
4
2
6
6
4
2
5
2
20
12
12
2
2
3
12
2
3
2
1
6
4
2
1