Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatische Aktualisierung von Daten

Automatische Aktualisierung von Daten
01.09.2004 16:07:34
WolfiL
Hallo!
Ich habe ein Fremdprogramm, von dem ich Daten in eine Excel-Tabelle stelle. Anschliessend sollen diesen Daten zur Aktualisierung auf einem anderen Tabellenblatt verwendet werden. Siehe Beispieldatei: Die Spalte F aus Tabelle 2 soll in die Spalte F von Tabelle 1 übertragen werden - allerdings nur bei Übereinstimmung der beiden Tabellen in der Spalte A. Dies würde ich mit einem Suchverweis noch hinbekommen - was mache ich aber, wenn die Tabelle 2 eine neue Zeile enthält, die zur Gänze in Tabelle 1 angefügt werden soll und beim nächsten mal auch "normal" aktualisiert - wie kann ich das machen?
Besten Dank für eure Unterstützung!!!
Wolfi
https://www.herber.de/bbs/user/10399.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatische Aktualisierung von Daten
01.09.2004 21:07:27
Beni
Hallo Wolfi,
füge dieses Makro in ein Modul ein.
Gruss Beni

Sub Aktualisierung_von_Daten()
For i = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1)
With Sheets("Tabelle2").Columns(1)
Set c = .Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then Cells(i, 6) = c(1, 6)
End With
Next i
End Sub

AW: Automatische Aktualisierung von Daten
02.09.2004 06:47:44
Wolfi
Hallo Beni,
tut mir leid, hab dein kleines Script ausgeführt - er aktualisiert die Spalte F in der Tabelle bei Übereinstimmung richtig! Aber leider wird die Zeile 4+5 nicht komplett in die Tabelle 1 geschrieben - dies brauche ich zusätzlich - es sollen nach der Aktualisierung immer soviele Zeilen in Tabelle 1 stehen wie in Tabelle 2 und die Spalte F soll bei Übereinstimmung von Spalte A in beiden Tabellen identisch sein.
Vielen Dank für deine bisherigen Bemühungen - ich hoffe du kannst mir auch für den zweiten Schritt noch etwas anbieten!
Wolfi
Anzeige
AW: Automatische Aktualisierung von Daten
02.09.2004 09:10:13
Beni
Hallo Wolfi,
Du schreibst, es müssen immer soviele Zeilen in Tabelle 1 stehen wie in Tabelle 2,
dss ist nicht möglich, weil die 86 ist in Tabelle 2 nicht vorhanden.
Das Makro kopiert die ganze Zeile nach Tabelle 1.
Gruss Beni

Sub Aktualisierung_von_Daten()
For i = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(i, 1)
With Sheets("Tabelle2").Columns(1)
Set c = .Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then Range(c(1, 1), c(1, 6)).Copy Cells(i, 1)
End With
Next i
End Sub

AW: Automatische Aktualisierung von Daten
02.09.2004 12:06:56
WernerB.
Hallo Wolfi,
erfüllt dieses Makro Deine Wünsche?

Sub Wolfi()
Dim c As Range, SuBe As Range
Dim s As String
Dim laR1 As Long, laR2 As Long
Application.ScreenUpdating = False
With Sheets(2)
laR2 = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range("A3:A" & laR2)
s = c.Text
With Sheets(1)
laR1 = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range("A3:A" & laR1). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
SuBe.Offset(0, 5).Value = c.Offset(0, 5).Value
Set SuBe = Nothing
Else
.Range("A" & laR1 + 1 & ":IV" & laR1 + 1).Value = _
Sheets(2).Range("A" & c.Row & ":IV" & c.Row).Value
End If
End With
Next c
End With
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige

237 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Automatische Aktualisierung von Werten
Werten

Hallo,
ich habe folgendes Problem mit einer Excel-Datei:
Die Datei aktualisiert die Ergebnisse von normalen Berechnungen wie z.B. "=I4+I5" nicht mehr von alleine.
Ich muss dafür in das entsprechende Feld klicken oben in die Zeile in der ich die Formel eingebe bzw. ändere klicken und...
02.05.2009 04:03:12
Thread-ID: 1072391
3 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Anzeige
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
Aktualisierung von Verknüpfungen automatisch für v
Verknüpfungen

Guten Tag, liebe Excel-Experten,
ich habe verschiedenen Tabellen (Dateien), die untereinander verknüpft sind. Ich habe in den Grunddaten etwas geändert und möchte, dass die Ergebnisse in den verknüpften Dateien (ca. 300) automatisch angepasst werden. Gibt es hierfür eine Möglichkeit?
Vi...
19.09.2011 17:06:38
Thread-ID: 1230577
8 Beiträge
Aktualisierung von Verknüpfungen in PowerPoint
Verknüpfungen

Moin,
ich habe eine PowerPoint Datei mit ca. 50 Folien, von denen fast alle Folien Daten erhalten, die auf verschiedenste Excel-Dateien (Diagramme aus Pivot) zugreifen und dort aktualisiert werden. Ich generiere also die Excel-Tabellen (die wiederum ihre Daten von einem SQL Server abholen)...
26.04.2012 03:27:46
Thread-ID: 1260743
2 Beiträge
VBA: externe Verknüpfungen aktualisieren
Frank

Hallo zusammen,
mit diesem Makro aktualisiere ich auf Knopfdruck externe Verknüpfungen (es handelt sich nur um eine Datei, die verknüpft ist). Die verknüpfte Datei ist geschlossen.
Sub linkupdate()
Application.ScreenUpdating = False
Worksheets("SUM_BY_CUST").Unprotect 'Wird zum...
13.07.2012 15:06:43
Thread-ID: 1270914
2 Beiträge
Automatische Aktualisierung von Dropdown Menüs
Dropdown

Guten Morgen,
ich habe Excel 2007 und ein Problem mit Dropdown Menüs.
Ich soll von der Schule aus eine Datei erstellen, bei der man zwischen Sprachen switchen kann. Dies habe ich mit Wverweisen gelöst.
D.h. es gibt ein Dropdown Menü mit der man die Sprache wechseln kann und dann ist...
14.11.2012 08:55:04
Thread-ID: 1286570
5 Beiträge

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
1
2
2
2
1
1
7
1
1
4
2
3
3
1
4
5
4
2
2
2
6
2
1
1
3