Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in Datenbankliste überführen

Daten in Datenbankliste überführen
21.07.2018 16:59:27
Claudia
Guten Tag Zusammen,
vielleicht habe ich ja Glück und trotz des wunderbaren Wetters nimmt sich ein Profi meines Problems an:
Regelmäßig muss ich Daten in eine Datenbankliste eintragen. Die Datenbankliste ist sehr groß und daher der Aufwand sehr hoch.
Leider sind meine VBA-Kentnisse nur rudimentär und reichen für eine Lösung nicht aus.
Ich habe eine kleine Beispielmappe erstellt, welche die Aufgabenstellung vollkommen abbildet: https://www.herber.de/bbs/user/122819.xlsx
Vielen Dank für Eure Unterstützung
Claudia

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Datenbankliste überführen
21.07.2018 18:09:45
Barbaraa
Hallo Claudia,
so mal auf die Schnelle:
Kopiere folgenden Code in das Tabellenmodul "Werte"
  Sub Datenbank()
Dim lZ As Long, lS As Long
Dim rN As Range, rS As Range
Dim sN As String, sS As String
For lZ = 4 To Cells(Rows.Count, 2).End(xlUp).Row
For lS = 3 To Cells(3, Columns.Count).End(xlToLeft).Column
If Cells(lZ, lS)  "" Then
sN = Cells(lZ, 2): sS = Cells(3, lS)
With Worksheets("Datentabelle")
Set rN = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp)).Find(sN, _
, , xlWhole)
If rN Is Nothing Then
Set rN = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0)
rN = sN
End If
Set rS = .Range(.Cells(3, 2), .Cells(3, _
.Columns.Count).End(xlToLeft)).Find(sS, , , xlWhole)
If rS Is Nothing Then
Set rS = .Cells(3, .Columns.Count).End(xlToLeft).Offset(0, 1)
rS = sS
End If
.Cells(rN.Row, rS.Column).Select
.Cells(rN.Row, rS.Column) = Cells(lZ, lS)
End With
End If
Next lS
Next lZ
End Sub
Kommt in der Datentabelle gleiche Namen oder Spalten mehrfach vor, wird nur in der ersten ein Eintrag vorgenommen.
Neue Namen oder Spalten werden in der Datentabelle neu angelegt. Lösche zuvor Deine Einträge in Zeile 29 und 30.
LG,
Barbara
Anzeige
bleibt hängen
21.07.2018 18:40:07
Claudia
Hallo Barbara,
vielen Dank für Deinen Code.
Leider bleibt er bei mir mit der Fehlermeldung: Laufzeitfehler 1004 "Anwendungs- oder objektdefinierter Fehler" an der Stelle:.Cells(rn.Row, rS.Column).Select hängen!
In der Ziel Datentabelle kommen die Namen in Spalte B mehrfach vor und sollten, wenn möglich, auch alle die Werte erhalten. Die Überschriften sind immer eindeutig.
Vielen Dank für Deine Unterstützung und einen schönen Abend .
Claudia
AW: bleibt hängen
21.07.2018 18:48:29
Barbaraa
Hi Claudia,
dann muss man nach den Namen eben weiter suchen.
Soll bitte wer andere machen. Habe heute leider keine Zeit mehr.
Die Fehlerzeile mit "Select" bitte löschen, sie hat keine Bedeutung. Das habe ich vergessen.
Die würde nur funktionieren, wenn auch das Blatt Datentabelle zufällig aktiviert wäre.
LGB
Anzeige
weitersuchen fehlt noch
21.07.2018 18:57:11
Claudia
Hallo Barbara,
nach dem löschen der Zeile mit Select funktioniert es.
Nun wäre es toll, wenn das mit dem weiter suchen noch klappen würde.
Vielleich findet sich ja jemand im Forum?!
Vielen Dank
Claudia
Passt! Vielen Dank owT
21.07.2018 19:28:59
Claudia

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

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