Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren wenn der Wert sich ändert

Zeilen kopieren wenn der Wert sich ändert
11.01.2007 12:45:20
Uwe
Hallo erstmal,
bin neu hier und habe auch gleich mal eine Frage.
Ich habe ein Liste aus 10 Zeilen mit Werten die von extern nach Excel eingelesen werden. Die Werte in Spalte D sind Taktzeiten.
Nun möchte ich den Wert jedesmal in eine andere Tabelle kopieren sobald er sich ändert.
Also ich habe z.b. 5 verschiedene Zeiten untereinander stehen. Jedesmal wenn Zeit 1 sich ändert in eine die neue Zeit in eine neue Tabelle kopieren. Wenn diese sich dann wieder ändert auich wieder kopieren und unter die andere Zeit in die neue Tabelle einfügen...
hoffe es kann mir jemand helfen.
Ein Dank im vorraus an jedem der sich bemüht.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
11.01.2007 14:36:43
Dani
Hallo Uwe,
ich schicke dir mal einen Ansatz. Folgender Code ist der Quelltabelle zu hinterlegen.
Wenn sich der Inhalt der Zelle A1 ändert wird die neue Zeit in der Tabelle2 in der Spalte A nachgeführt. Ich hoffe ich habe dich richtig verstanden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Tabelle1.Range("A1").Copy
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial
End If
End Sub

Gruss
Daniel
AW: Zeilen kopieren wenn der Wert sich ändert
11.01.2007 16:35:59
Uwe
Also du hast mich richtig verstanden sobald sich in A1 die Zeit ändert dann die Änderung nach Tabelle 2 kopieren und die nächste dann in Tabelle 2 auf B1 kopieren usw.
Aber deine Lösungscheint nicht zu funktionieren.
Als ich deinen Vorschlag kopiert und eingefügt habe dann konnte ich das Makro nicht abspielen.
Was mache ich falsch.... Stimmt vielleicht in der ersten Zeile die Anweisung in der Klammer nicht ganz?
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
11.01.2007 19:37:15
Dani
Hallo Uwe,
ich hab es nochmal getestet wenn du ein neues Excel-File aufmachst und dann zB. mit der rechten Maustaste in den VB-Editor einsteigst kannst du den Code dort hineinkopieren...
Es würde mich trotzdem interessieren wie du es probiert hast.
Gruss Daniel
AW: Zeilen kopieren wenn der Wert sich ändert
11.01.2007 19:59:04
Uwe
Hallo Daniel,
Also ich habe es jetzt auch geschafft. Hatte es vorher nicht nach Tabelle1 kopiert sondern versucht damit nen neuen Makro zu machen und das hat nicht funktioniert.
Ist echt super. Danke.
Mich würde jetzt nur noch interessieren wie das aussehen würde wenn ich die Zeit welche ich bekommen dann in Abhängigkeit von i.O. und N.i.O. welches ich z.B. in der Tabelle 1 in Zeile C1 angezeigt bekommen dann in zwei verschiedene Tabellen kopiert bekomme.
Ich hoffe du verstehst was ich meine...
Danke schonmal für die ganze Hilfe...
Gruß
Uwe
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
11.01.2007 23:29:36
Dani
Hallo Uwe,
um den gleichen Ansatz weiterzuverfolgen und die Zelle C1 einzubeziehen zB. so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Offset(0, 2).Value = "i.O." Then
Tabelle1.Range("A1").Copy
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial
End If
If Target.Offset(0, 2).Value = "N.i.O." Then
Tabelle1.Range("A1").Copy
Tabelle3.Range("A" & (Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial
End If
End If
End Sub

Gruss Daniel
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 07:30:14
Uwe
Hallo Daniel,
also dein weitere Lösungsansatz hört sich echt gut an.
Das ist genau das was ich brauche.
Habe nun mal Versucht es in mein Projekt zu laden.
Wenn ich manuell jetzt den Wert in Zeile A1 ändere dann kopiert er diesen Wert auch genau so wie ich es vorhabe. Wenn der Wert in A1 jetzt aber eine Summe einer Addition ist dann macht er es nicht. Obwohl dieser Wert sich auch jedesmal ändert.
Ich denke das hängt wie beim kopieren dieser Zelle zusammen das man den Wert und nicht die Formel kopieren muß. Nur wie macht man das...
Gruß
Uwe
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 07:45:02
Dani
Hallo Uwe,
wenn in der Zelle A1 eine Formel steht wird der Code nicht ausgeführt wenn der Angezeigte Wert sich ändert (Die Formel bleibt ja gleich). Der Code wird ausgeführt wenn sich etwas auf dem Tabellenblatt ändert UND dies in der Zelle A1 ist
(If Target.Address = "$A$1" Then...) Du musst diese Zeile ändern und statt $A$1 die Zelle/n eingeben von welcher der Wert in A1 abhängig ist.
Gruss Dani
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 08:26:26
Uwe
Hallo Daniel,
das habe ich mir so ja auch schon gedacht. Nur ich kann nicht die anderen Zeilen eingeben. Da ich mir den Wert schon aus einem anderen Programm hole. dies Geschicht halt schon über eine Formel. Ist es nicht möglich das ich wie beim kopieren nur den Wert und nicht die Formel kopiere. Also wenn ich die Zeile kkopieren und dann woanders nur den Inhalt einfüge dann kann ich mir dann nur den Wert aussuchen und der Wird dann kopiert.
Ich hoffe du verstehst was ich meine.
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 08:52:57
Dani
Hallo Uwe
ich habe heute leider keine Zeit, aber versuch mal etwas mit dem Ereigniss "Calculate" dies tritt auf wenn ein Wert sich ändert durch einen Formelbezug..
Kopieren nur Werte: .PasteSpecial Paste:=xlPasteValues
Gruss
Daniel
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 08:52:15
Uwe
Hallo Daniel,
so habe es jetzt geschafft das er mir das Ergebnis und nicht die Formel kopiert. :-)
Jetzt habe ich aber noch ein letztes Problem. Wie soll es auch anders sein...
Ich hole mir die Daten über eine DDE Kopplung nach Excel. Wenn sich der Wert von der DDE Kopplung nun ändert wird meine berechnete Zeile nicht kopiert. Sie wird erst kopiert wenn ich die Zeile dann mittels F2 bearbeite und dann enter drücke...
Wie kann ich es anstellen das der Wert der sich automatisch ändert dann kopiert wird.
Gruß
Uwe
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
12.01.2007 12:42:10
Dani
Hallo Uwe,
ich habe mir in der Mittagspause noch was ausgedacht. Mit einer Statischen Variablen und dem Calculate Ereigniss kannst du vielleicht etwas anfangen:

Private Sub Worksheet_Calculate()
Static Zellwert As Date
If Tabelle1.Range("A1").Value <> Zellwert Then
If Tabelle1.Range("C1").Value = "i.O." Then
Tabelle1.Range("A1").Copy
Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial Paste:=xlPasteValues
End If
If Tabelle1.Range("C1").Value = "N.i.O." Then
Tabelle1.Range("A1").Copy
Tabelle3.Range("A" & (Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial Paste:=xlPasteValues
End If
End If
Zellwert = Tabelle1.Range("A1")
End Sub

Ich hoffe ich habe dich richtig verstanden..
Gruss
Dani
Anzeige
AW: Zeilen kopieren wenn der Wert sich ändert
13.01.2007 08:59:14
Uwe
Hallo Daniel,
super genau das habe ich gebraucht.
Hatte zwar auch noch gestern Abend ne andere Lösung gefunden, aber deine gefällt mir mit Abstand viel besser. Sie ist für mich als Laie auch sehr gut nachzuvollziehen.
Also vielen, vielen Dank für deine Hilfe...
DANKE !!!!!!!!!!!!!!!!!!!!!!!

49 Forumthreads zu ähnlichen Themen

Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
Anzeige
wenn Wert in Zeile dann Spalte kopieren
Valeri

Hallo liebes Excelforum,
ich möchte von mappe1.xls alle Spalten ab Spalte C, in die mappe2.xls kopieren bei denen in der Zeile 1 oder 2 (sollte einstellbar sein) der Wert größer 0 ist. Die anderen Spalten sollen nicht mitkopiert werden.
Könnt ihr mir dabei helfen?
26.08.2011 19:40:08
Thread-ID: 1227663
5 Beiträge
Wenn dann Zellen kopieren
Bon

Hallo,
ich habe folgendes Problem:
Wenn eine Zahl in B82 bis B93 auftaucht, dann soll in B15 bis B27 nachgeschaut werden, ob die Zahl identisch ist.
Wenn ja, dann sollen die nächsten 4 Zeilen rechts davon kopiert werden (Zieltort:neben B82-B93)
Freue mich über jeden Vorschlag!
16.09.2012 15:30:13
Thread-ID: 1278830
4 Beiträge
Anzeige
wenn bestimmtes Zeichen dann kopieren
Fischer

Ich bin neu hier im Forum, und konnte bisher all meine Excel Probleme durch ein wenig im Internet stöbern selber lösen. Doch nun bin ich auf eure Fähigkeiten angewiesen, da ich nichts passendes finden konnte. Ich habe folgendes Problem:
Wenn in der Überschrift der Text "Position" steht, da...
09.04.2013 10:35:51
Thread-ID: 1307891
13 Beiträge
VBA Wenn sich ein Zellwert ändert, dann
Peter

Hallo an Alle,
hier mein Hilferuf:
Wenn "B1" sich ändert, dann sollen die Zellen A6:G6 mit einer Null gefüllt werden.
Seit Tagen experimentiere ich mit dem Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Das Ausfüllen mir der Null habe ich mit dem Macrore...
19.05.2013 11:14:42
Thread-ID: 1313868
2 Beiträge
VBA Wenn dann Zelle 5x kopieren in nächste Leere
Max

Hallo *,
ich würde mich freuen, wenn ihr mir weiterhelfen könnt.
Wenn in Zelle A1 beispielsweise etwas steht, dann würde ich gerne die Zellen A1,B1,D1,E1 und G1 auf ein neues Tabellenblatt kopieren. Aber nicht nur einmal, sondern 5x untereeinander.
In Zeile 2 meiner Tabelle steht na...
29.07.2014 08:57:02
Thread-ID: 1372823
2 Beiträge
Wenn berechneter Zellwert sich ändert dann Makro
Stefan

Hallo liebe Leute,
ich hänge seit Tagen fest, komme nicht weiter, langsam frage ich mich ob das überhaupt funktioniert? Aufgabe: Wenn sich ein Zellwert (A3) ändert, soll ein Makro aufgerufen werden. Das Besondere, der Zellwert A3 wird berechnet (=A1+A2). Ich habe mit "Worksheet_Calculate" r...
16.11.2014 07:20:33
Thread-ID: 1392614
9 Beiträge
Wenn Zeile identisch dann kopieren
Dominik

Hallo,
ich habe folgendes Problem und brauche hierfür ein Makro:
Werte Daten
a 1
a 2
b 3
b 4
c 5
d 6
e 7
e 8
Ich möchte, dass die Tabelle nach dem Makro wie folgt aussieht:
Werte Daten Daten2
a 1 2
b 3 4
c 5
d 6
e 7 8
We...
30.07.2015 12:44:00
Thread-ID: 1439387
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
5
1
4
3
1
12
1
1
8
1
3
5
3
7
2
2
6
1
2
14
6
3
5
4
3