Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1564to1568
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
1564to1568
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte mit Makro einfügen - Fehlermeldung ersetzen

Werte mit Makro einfügen - Fehlermeldung ersetzen
28.06.2017 17:26:38
Kisska
Moin,
ich habe eine Schaltfläche erstellt, über die ein Makro ausgeführt wird, und zwar, Einkopieren von Daten als 'Werte und Zahlenformat'. Wenn ich allerdings vergesse die Daten vorher zu kopieren, erscheint ein Laufzeitfehler 1004.
Kann man statt diesem Fehler eine Meldung anzeigen lassen: "Daten kopieren"?
Viele Grüße
Kisska

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Werte mit Makro einfügen - Fehlermeldung ersetzen
28.06.2017 17:28:52
Hajo_Zi
If Application.CutCopyMode = False Then

Was mache ich falsch?
28.06.2017 17:37:46
Kisska
Hallo Hajo,
hier ist mein Code: 

Sub Daten_einkopieren()
' Daten_kopieren Makro
Range("Tabelle1[Name]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
If Application.CutCopyMode = False Then
MsgBox ("Daten kopieren")
End If
End Sub
Die Fehlermeldung 1004 kommt weiterhin. Was mache ich falsch?
Viele Grüße
Kisska
AW: Was mache ich falsch?
28.06.2017 17:40:45
Hajo_Zi
ich dachte das Du das vor dem kopieren prüfen wolltest. Da habe ich wohl die Aufgabe falsch verstanden und bin dann raus.
Gruß Hajo
Anzeige
ok ... weitere Tipps gesucht
28.06.2017 17:46:49
Kisska
ok, danke trotzdem
Gruß
Kisska
AW: ok ... weitere Tipps gesucht
28.06.2017 17:49:27
Werner
Hallo Kisska,
Sub Daten_einkopieren()
If Application.CutCopyMode = False Then
MsgBox ("Erst Daten kopieren")
Exit Sub
End If
Range("Tabelle1[Name]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Gruß Werner
Genial !!!
28.06.2017 17:54:45
Kisska
Hallo Werner,
you've made my day :))
Danke vielmals !!!
Viele Grüße
Kisska
AW: Genial !!!
28.06.2017 17:58:01
Hajo_Zi
das war doch genau mein Vorschlag, das Dir der Begriff davor nicht klar war konnte ich nicht wissen.
Gruß Hajo
Anzeige
AW: Genial !!!
28.06.2017 18:13:21
Kisska
Dir, Hajo habe ich natürlich auch zu danken! Sorry, kenne mich mit VBA kaum aus, habe daher deinen Code nicht richtig angewandt.
Danke nochmal für die schnelle Hilfe! :-)
Gruß
Kisska
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
28.06.2017 18:07:29
Werner

301 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Und() bzw. ODER() in Matrixformeln
Sibylle

Hallo,
sollen in einer Matrixformel 2 Bedingungen durch UND() verknüpft werden, funktioniert dies nicht.
Was ist die Ursache?
Wichtiger: wie sieht die Lösung aus?
Gruß
Sibylle
13.02.2009 11:02:00
Thread-ID: 1050412
9 Beiträge
Im Diagramm Formel in Diagrammbeschriftung oder...
martin

... Datenbeschriftung aus eigener Zelle.
Guten Morgen allerseits.
1.) Gerne würde ich in der Datenbeschriftung eines Diagrammes etwas ausrechnen lassen (ohne dass das Diagramm verändert wird). Geht das? In meinem Beispiel Wäre das := 100% - Wert in %
2.) Wenn das nicht geht, würde i...
05.06.2009 09:31:26
Thread-ID: 1079339
2 Beiträge
Anzeige
Was bedeutet das Zeichen "^" in Formeln
Merlin

Was bedeutet das Zeichen "^" in Formeln?
21.10.2009 10:45:46
Thread-ID: 1111008
6 Beiträge
Formel nur einmal berechnen oder ?
alex

Hi Profis,
hier mein Problem - https://www.herber.de/bbs/user/69683.xlsx
Bei der Lohnberechnung dürfen bereits berechnete Zellen nicht noch einmal Berechnet werden.
Habt Ihr einen Lösungsvorschlag.
Darstellung und Erläuterung in der angehängten Datei.
Danke schon einmal für...
21.05.2010 18:11:35
Thread-ID: 1158332
10 Beiträge
Was bedeutet >>For colIndex
Dietmar

Hallo in die Abendrunde,
kann mir jemand diesen Code erklären? Es scheint ein AusleseCode zu sein, der das Sheet als Textdatei ausliest.
Ich will das zugrundeliegende Sheet neu gestalten.
Meine Frage:
Kann es sein dass der Code Daten ausliest, die farblich hinterlegt sind? Wenn...
01.07.2010 21:16:52
Thread-ID: 1165012
5 Beiträge
Sverweis gibt bei Nullwert Datum zurück?
Sebastian

Hallo zusammen,
mein Sverweis sucht mir ein Datum. Wenn jedoch kein Wert eingetragen ist, dann gibt er mir das Datum "00.01.1900" aus. Wie kann ich das verhindern?
=WENN(ISTNV(SVERWEIS(AP1055;'Tabelle1'!G:BP;62;FALSCH));"";SVERWEIS(AP1055;'Tabelle1'!G:BP;62;FALSCH) )
Danke u. Gruß
15.11.2010 16:34:32
Thread-ID: 1186882
7 Beiträge
VBA Fehlermeldung bei Verknüpfung mit Datenbank
Max

Hi liebes Herber Excel Forum
Ich bin neu hier und bin gerade dabei ein bisschen in VBA zu programmieren
Bin grad dabei eine Access Datenbank über VBA mit Excell zu verknüpfen. Alles kein Problem. Beim Starten erscheint die Userform ordnungsgemäß, aber dann kommt die Fehlermeldung "Objek...
20.04.2011 08:40:38
Thread-ID: 1211120
2 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
3
13
8
1
3
5
9
4
6
1
3
2
2
4
3
2
5
10
2
4
4
6
2
1
2