Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
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
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in einer Datenbank zuordnen

Daten in einer Datenbank zuordnen
14.07.2020 14:14:28
Michael
Guten Tag zusammen,
in einer sehr großen Datenbank muss ich (via Makro), aus bestimmten Datensätzen, Werte aus einer Spalte anderen Datensätzen zuordnen.
Ich habe eine kleine Dummy-Datei angelegt, welche die Aufgabe abbildet.
Da ich das mit VBA selber nicht hinkriege, benötige ich Eure Unterstützung.
Hier der Dummy: https://www.herber.de/bbs/user/139037.xlsx
Vielen Dank für Eure Unterstützung.
Michael

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in einer Datenbank zuordnen
14.07.2020 15:37:56
Werner
Hallo,
und warum mit Makro und nicht mit Formel?
Gruß Werner
AW: Daten in einer Datenbank zuordnen
14.07.2020 15:44:22
Michael
Hallo Werner,
in der "realen" DB werden die Werte eingetragen.
Darum wollte ich die Werte der Filialen via Makro zuordnen.
Gruß
Michael
P.S.: die DB ist sehr groß. (ca. 85 Spalten und ca. 85.000 Zeilen)
Leider nicht
14.07.2020 17:11:41
Michael
Hallo Armin,
vielen Dank für Deinen Beitrag.
Leider funktioniert es in der realen DB nicht. Das liegt wahrscheinlich an den Nummern in meiner Dummy-Datei (1, 2, 3,4 usw).
In der realen DB ist die Nr. zwar aufsteigend, aber mit großen Lücken ( 4, 7, 11, 16, 23, 35,36 usw.).
Ware auch eine Lösung ohne Funktion möglich?
Vielen Dank und gruß
Michael
Anzeige
AW: Leider nicht
14.07.2020 17:24:40
Werner
Hallo,
noch mal: Warum nicht mit Formel
Und vorab: Ich halte es für merkwürdig zwei verschiedene Datentypen in einer Tabelle zu haben.
Verschieb doch deine Rabattsätze aus deiner intelligenten Tabelle auf ein separates Tabellenblatt und pflege die dort.
In der intelligenten Tabelle dann einfach zwei Formeln in den letzten beiden Spalten.
Sobald du die intelligente Tabelle nach unten erweiterst, erweitern sich die Formeln doch auch automatisch.
Hast du in deiner originalen Datei denn noch "unzählige" weitere Formeln drin, oder weshalb unbedingt Makro?
https://www.herber.de/bbs/user/139047.xlsx
Gruß Werner
Anzeige
AW: Leider nicht
14.07.2020 17:37:52
Michael
Hallo Werner,
die Zielspalte für das Makro ist eine Spalte für die manuelle Eingabe der Werte. Dort eine Formel zu hinterlegen ist nicht so einfach möglich (eigentlich gar nicht).
Des weiteren ist die DB sehr groß, in den meisten Spalten sind schon sehr volantile Funktionen hinterlegt.
Darum wäre eine Makro-Lösung ideal.
Gruß
Michael
AW: Leider nicht
15.07.2020 10:17:08
Werner
Hallo,
meinst du so? 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim raFund As Range
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Or Target.Column = 3 Then
If Target.Row > 7 Then
If Cells(Target.Row, "A")  "" And Cells(Target.Row, "C")  "" Then
If Cells(Target.Row, "C") = "Filiale" Then
Set raFund = Range(Cells(2, "A"), Cells(8, "A")) _
.Find(what:=Cells(Target.Row, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
Cells(Target.Row, "E") = raFund.Offset(, 4)
Cells(Target.Row, "F") = raFund.Offset(, 5)
End If
End If
End If
End If
End If
Set raFund = Nothing
End Sub
Der Code gehört ins Codemodul des Tabellenblattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Das Makro startet automatisch bei Änderungen in Spalte A und in Spalte C
Gruß Werner
Anzeige
Funktioniert!
15.07.2020 15:35:41
Michael
Hallo Werner,
Hallo Armin,
Eure Makros funktionieren tadellos!
Vielen Dank für Eure Unterstützung.
Gruß
Michael
Gerne u. Danke für die Rückmeldung. o.w.T.
15.07.2020 16:24:03
Werner

87 Forumthreads zu ähnlichen Themen

Zugriff auf eine MySQL-Datenbank
Thomas

Hallo,
was ich mit einem VBA-Makro realisieren will klingt relativ simpel:
Ich will auf eine MySQL-Datenbank zugreifen können, alle Daten dort rausholen (in Excel natürlich) und danach alle Einträge in der Datenbank löschen.
Ich hab nur leider keine Ahnung wie - VBA-Kenntnisse sind...
09.06.2009 14:24:39
Thread-ID: 1080164
5 Beiträge
Anzeige
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 Beiträge
Datenreihen automatisch in Diagramm einfügen
volkimaus

Hallo zusammen,
ich komme mal wieder mit einem Problem. Ich habe ein große Excel-Datei mit ca. 100 Arbeitsblättern. Nun möchte ich aus bestimmten Arbeitsblättern, die ich vorher markiere, jeweils eine separate Datenreihe mit immer den gleichen X-Werten ($C$8:$C$508) und Y-Werten ($AK$8:$AK$...
17.06.2010 11:46:11
Thread-ID: 1162427
3 Beiträge
Anzeige
Daten auslesen und in WB einfügen - Indexfehler
Michael

Hallo, liebe Profis!
Ich doktere seit Jahren mit Excel+VBA herum, um mir meine täglichen Arbeiten zu erleichtern. Nun habe ich länger nichts mehr machen müssen und stehe bei folgendem Makro vor einem Problem: Private Sub CommandButton1_Click() meister = "Kalkulationsnummern MASTER.xls" woch...
11.01.2011 16:53:36
Thread-ID: 1195055
9 Beiträge
per Makro Daten in eine Datenbank schreiben
Heiß

Hallo
ich bin Anfänger und hätte eine Frage:
Ich habe 3 Exceldateien
A
B
C
und eine Datenbank
Wenn ich jetzt in der Datei auf Datenbank öffnen gehe, dann öffnet mir das Makro auch die enstprechende Datei. Ich kann jetzt Daten dort ergänzen/ändern. Ich kann auch die...
01.02.2011 22:29:58
Thread-ID: 1198512
2 Beiträge
neuer Datensatz in Datenbank
max

Hallo Excelperten,
habe im Tabellenblatt2 eine Tabelle „Datenbank“ (je Datensatz 4 Felder: Periode, Konto, Betrag, Text) angelegt. Wenn ich in der Zeile nach der Tabelle einen Datensatz eingebe wird dieser automatisch der Tabelle angefügt.
Kann ich das über vba automatisieren?
Im...
04.08.2011 13:30:51
Thread-ID: 1224895
7 Beiträge
Daten in einem bestimmten Bereich einfügen
Roger

Hallo zusammen
Ich würde gerne in einem Excelblatt ab einem bestimmten Bereich etwas einfügen. Das heisst ab B1:D10 steht ein vorgegebner Text1. Ab B11:D15 wird ein bestimmter Text2 eingeben. Ab B16 steht wieder ein anderer Text3. Nun möchte ich aber bei B15 die von B11:D15 kopierten Zellen...
15.12.2011 06:55:34
Thread-ID: 1241920
3 Beiträge
ergänzende Daten in zweite Tabelle einfügen
Fritz_W


Hallo Forumsbesucher,
mit dem nachfolgenden Code werden – zur Datensicherung – bestimmte Zellbereiche der Tabelle2 in der ( gleichstrukturierten ) Tabelle2b gesichert.
Sub Daten_sichern() Dim i As Long With Sheets("Tabelle2") For i = 2 To 268 Step 19 Sheets("Tabelle2b").Range("C"...
23.02.2012 11:20:18
Thread-ID: 1252034
25 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
4
1
4
2
3
8
1
6
2
24
1
2
1
5
1
5
1
4
5
5
3
3
2
6
1