Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren von Formaten unterbinden?

Forumthread: Kopieren von Formaten unterbinden?

Kopieren von Formaten unterbinden?
12.03.2008 13:30:00
Formaten
Hallo, gibt es eine Möglichkeit per VBA auf einem kompletten Tabellenblatt beim kopieren von Zellen nur die Werte, Kommentare und Formeln einzufügen, aber niemals die Formate mit zu kopieren.
Also ähnlich wie rechte Maustaste "Inhalte einfügen"
Danke für Eure Hilfe
Gruß
Steffi

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von Formaten unterbinden?
12.03.2008 13:34:30
Formaten
Hallo Steffi,
benute den Makrorecorder und Du hast einen Codeansatz.

AW: Kopieren von Formaten unterbinden?
12.03.2008 13:41:00
Formaten
...habe schon alles mögliche probiert, war sogar auf Hajo´s Excel-seiten, und auch wieder ne Menge dazu gelernt, bin aber nicht zum gewünschten Ergebniss gekommen. Und da habe ich gehofft hier Hilfe zu bekommen.
Wer kann mir helfen?
Gruß
Steffi

Anzeige
AW: Kopieren von Formaten unterbinden?
12.03.2008 13:43:18
Formaten
Hallo Steffi,
hier ein Beispiel, das mit dem Macrorecorder aufgezeichnet wurde:

Sub Makro3()
Range("A13:A14").Select
Selection.Copy
Range("A27").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A27").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A27").Select
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B31").Select
End Sub


Gruß
Heinz

Anzeige
AW: Kopieren von Formaten unterbinden?
12.03.2008 13:52:43
Formaten
Hallo Heinz,
ich bin ja kein Profi, aber ich denke ein Makro hilft mir nicht weiter, da das kopieren der Formate auf dem kompletten Tabellenblatt deaktiviert werden soll. Die Tabelle wird von den unterschiedlichsten Benutzern bearbeitet, und die dürfen keinesfalls die Formate mit kopieren.
Gruß
Michael

Anzeige
AW: Kopieren von Formaten unterbinden?
12.03.2008 13:44:00
Formaten
Hallo Steffi,

Sub Werte()
'   Formeln ersetzen durch Werte ohne Formate
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False         'Zwischenspeicher löschen
End Sub
Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet, es muß aber Tabelle1 aktiv sein
'    Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub


Gruß Hajo

Anzeige
AW: Kopieren von Formaten unterbinden?
12.03.2008 18:27:01
Formaten
Hallo Steffi,
dazu fällt mir nur folgendes Makro ein, ich dem ich das auch mache.

Sub Formatlos()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


Gruß Hans

Anzeige
;

Forumthreads zu verwandten Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Anzeige
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
UserForm überblenden /ein-ausblenden
Nik

Hallo.
Folgendes Problem:
Ich habe eine Userform erstellt, auf der sich links ein Menü befindet.
Je nach Klick auf Menü sollen verschiedene Elemente erscheinen (z.B. Listbox, labels usw...)
Dies mache ich z.B. mit listbox.visible = true
Da es immer mehr Objekte gibt, ist die...
04.02.2009 09:39:00
Thread-ID: 1046897
5 Beiträge
Formeln verbinden
Ralf

Hallo Experten,
ich arbeite gerade an einer Stundenberechnung für einen Dienstplan. Probleme habe ich jetzt bei der Berechnung der Krankstunden. Wenn eine Schicht geplant war und jetzt ein K (Krank) kommt sollen 8h berechnet werden, wenn aber ein DF oder kein Eintrag vorhanden war sollen 0h...
10.02.2009 20:03:15
Thread-ID: 1049294
5 Beiträge
Sortierproblem wenn Formel in Zelle vorhanden
Spiess

Hallo,
ich habe nachstehende Frage:
Ich habe eine Tabelle mit einer Spalte. In den Zellen stehen Formel, die manschmal numerische Werte oder manschmal einen Leer-String erzeugen. Beispiel:=WENN(H5="";"";E4)
Beim Sortieren der Zellen werden die Zellen mit den Leer-Strings immer in...
24.04.2009 22:39:14
Thread-ID: 1071062
11 Beiträge
Userform soll Inhalt v. Zelle einer gefunden Zeile
Jaffi

Hallo liebes Forum,
mal wieder hänge ich an einem Problem fest.
If Not .Cells(rngSuchen.Row, 3) = "gesichert" Then 'in Tabellenblatt „Sicherung“ in Zelle C neben dem gefundenen Wert das _ Wort "gesichert" schreiben .Cells(rngSuchen.Row, 3) = "gesichert" Beep Load UserFormsich UserForm...
07.05.2009 17:01:43
Thread-ID: 1073684
2 Beiträge
Zellen verbinden + benutzerdefiniertes Format
Joe

Hallo zusammen,
habe eine Frage, wie man in der angehängten Datei zwei Zellen miteinander verbindet und gleichzeitig über benutzerdefiniertes Format das Wort Aktivitäten einfügt.
Hoffe, dass ich mich genau genug ausgedrückt habe.
Für Hilfe bin ich sehr dankbar.
https://www.herbe...
08.06.2009 11:38:52
Thread-ID: 1079865
6 Beiträge
Kann Fehler in Formel nicht finden
André

Hallo Leute,
Ich habe hier ein Problem mit einer Formel und weiß nicht woran es liegt.
=WENN(ODER(L$5="";$C6="");"";WENN(SVERWEIS(L$5;INDIREKT(TEXT(MONAT(L$5);"00")&"!$G$7:$R$43");2) ="url hs";0,5;WENN(SVERWEIS(L$5;INDIREKT(TEXT(MONAT(L$5);"00")&"!$G$7:$R$43");2)="url hf";0,5; W...
02.07.2009 11:09:19
Thread-ID: 1085908
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige