Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfungen durch Inhalte ersetzen

Forumthread: Verknüpfungen durch Inhalte ersetzen

Verknüpfungen durch Inhalte ersetzen
11.02.2009 15:12:00
Klaus
Hallo Mitstreiter!
Wie kann man via VBA bewirken, dass bei Ausführen eines Makros vorhandene Verknüpfungen durch "Bearbeiten/Inhalte einfügen/Werte" ersetzt werden. Dies soll bei all jenen Zeilen erfolgen, bei denen in der Spalte AD ein Datum kleiner gleich dem aktuellem Systemdatum steht.
Wer schafft es, dieses Problem zu lösen?
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 15:13:00
Dieter
Hi,
zeichne den Vorgang mit dem rekorder auf, Stichwort PasteSpecial.
mfg Dieter
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 15:18:00
Klaus
Hallo Dieter,
dann bekomme ich folgendes: Problem dabei: Das Systemdatum muss als Abfrage mit eingebunden werden. Ich will die Prozedur nur bei jenen verknüpften Zellen ausführen, bei denen das Systemdatum kleiner gleich dem heutigen ist.
Range("AE1506:BB1506").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
End Sub
Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 15:24:00
Klaus
wie kopple ich den code an das systemdatum?
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 15:42:00
Dieter
Hi,
dann kannst du die daten natürlich nicht im Block kopieren, nur in Schleife und bei jedem
Durchlauf testen, ob das Datum der Bedingung entspricht.
mfg dieter
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 16:46:00
Klaus
schon klar, aber wie mache ich das? Kannst du mir den Befehl dazuschreiben?
Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 16:54:00
Matthias
Hallo Klaus,
da Du bei der macroaufzeichnung noch diverse scrolls im Code belassen hast gehe ich mal davon aus, dass Dir der richtige Lösungsvorschlag von Dieter sicher Probleme bereiten wird.
Angehängt findest Du Dieters Idee in ein makro umgesezt.

Sub inhalte_ersetzen()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
If ActiveSheet.Cells(i, 30).Value


Das Makro arbeitet die Spalte AD (=spalte 30) vom ersten bis zum letzten eintrag ab. Ist der Wert kleiner oder gleich dem Tagesdatum (Date), dann wirt der entsprechende Wert auf sich selbst kopiert (die Verweise verschwinden damit) ansonsten wird nichts am wert geändert.
Falls Du in der Spalte AD eine Übershrift hast, kannst Du die schleife auch erst in der zwiten zeile beginnen mit
For i = 2 To ActiveSheet.....
Grüße
Matthias

Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 17:14:00
Klaus
Hallo Matthias,
das Makro läuft zwar problemlos ab, jedoch bleiben Verknüpfungen rechts der Datumsspalte AD (für Datumswerte) erhalten? Woran liegt's?
Kann ich das Makro zu einer bestimmten Uhrzeit laufen lassen ohne, dass die Datei geöffnet wird?
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 17:34:00
Jens
Hi,
"...Kann ich das Makro zu einer bestimmten Uhrzeit laufen lassen ohne, dass die Datei geöffnet wird?..."
Das kann nicht funktionieren, du Excelprofi.
mfg Jens
Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 17:56:00
Klaus
sicher, indem man eine "Meta.xls" erstellt, die diese Datei mitaktualisiert und den Befehl onTime.Applikation enthält. Aber ganz davon abgesehen? Funktioniert bei dir der Code von Matthias?
Er läuft superschnell und problemlos ab, nur die Verknüpfungen bleiben trotzdem erhalten.
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 17:56:00
Matthias
Hi Klaus,
sorry hätte Deinen Text etwas genauer lesen sollen - ich habe gedacht nur die entsprechenden Datumszellen sollen ersetzt werden.
Das geänderte macro sieht jetzt so aus:

Sub inhalte_ersetzen()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
If ActiveSheet.Cells(i, 30).Value


Das Makro zu bestimmten Zeiten laufen zu lassen ist zum einen schwierig - man müsste dazu bspw. das macro in Workbook_Open eintragen,
dann die datei von einem Taskplanner (externes Programm) geplant laufen lassen. Es gibt natürlich auch andere Lösungen - die Frage ist nur was bringts - denn das makro ist sehr schnell.
Grüße
Matthias

Anzeige
AW: Verknüpfungen durch Inhalte ersetzen
11.02.2009 18:54:00
Klaus
Super!! Es funktioniert.
Gut gemacht, Matthias!
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
SUMMENPRODUKT in VBA übersetzen
Olaf

Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
Dinge in Abhängigkeit ersetzen
sascha76er

Hallo,
ich möchte gerne in der Spalte B den Wert "[#p Stück]" durch -Links- oder -Rechts- in Abhängigkeit vom letzten Buchstaben in der Artikelnummer entsprechend ersetzen.
Kann mir jemand sagen wie dies lösen kann?
Hier meine Datei: https://www.herber.de/bbs/user/55000.xls
Gru...
28.08.2008 16:25:34
Thread-ID: 1005516
2 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Anzeige
Ersetzen mit Bedingung in VBA
bully

Hallo zusammen,
ich möchte mit VBA alle Werte in der Spalte G (Standardwert "300") mit einer 1 ersetzen, wenn in der gleichen Zeile der Spalte F eine 2 (Standardwert "1") steht.
Wie mache ich das am einfachsten.
Gruss bully
07.09.2008 20:41:15
Thread-ID: 1008002
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 19:55:29
Thread-ID: 1014539
7 Beiträge
Funktion "Ersetzen" von Zahlenwerten im Textformat
Zahlenwerten

Hallo liebe Excel-Freunde,
mein Problem bezieht sich auf die Funktion Suchen/Ersetzen in Excel.
In Text formatierte Zahlenwerte werden dabei nicht als Text, sondern als mathematische Zahlenwerte ausgegeben.
Konkret:
Ich habe eine Excel-Tabelle, in der zig Tausend verschiedene Ge...
06.10.2008 20:18:00
Thread-ID: 1014553
3 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Anzeige
Mail-Adressen ersetzen
dani

Hallo zusammen,
ich habe ein Excel-Problem - ich hoffe, jemand kann mir weiterhelfen :)
In einer Excel-Datei habe ich eine Spalte mit Mail-Adressen, z.B. max.mustermann@firma_x.de
Da sich die Firmierung geändert hat, müssen sämtliche Domainnamen geändert werden in max.mustermann@fir...
15.10.2008 09:39:22
Thread-ID: 1016481
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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