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

Excel Tabelle in einzelne Exceldateien

Forumthread: Excel Tabelle in einzelne Exceldateien

Excel Tabelle in einzelne Exceldateien
15.01.2021 13:21:07
Addi
Hallo Zusammen,
ich hatte diesen Beitrag am 08.01.2021 eingestellt und netterweise von Nepumuk auch eine Antwort drauf erhalten. Die war generell schon sehr gut, allerdings hat sich leider an Umständen was geändert.
@Nepumuk: Ich muss die Daten aus der Quelldatei in eine bestimmte Zieldatei eintragen, sprich es gibt dazu ein Template...das würde ich Dir mal hier anhängen...die Daten aus der Quelldatei wären dann auch fix Zellen in diesem Template zugeordnet, so soll dann z.B. aus der Quelldatei der Wert aus A2 in das Template Zelle C5. Im Template habe ich das Mapping zu der Quelldatei hinterlegt...
...nun müsste jede Zeile aus der Quelldatei in das Template eingetragen werden (pro Zeile eine neue Datei).
Wenn Du mir dabei noch helfen könntest wäre ich Dir sehr dankbar.
Du brauchst natürlich nicht jedes Mapping zu programmieren, wenn ich Beispiele habe wie es funktioniert kann ich die Masse auch hinterlegen - ist ja sicherlich immer das gleiche Coding...
Vielen Dank schon mal vorab!!
Viele Grüße Addi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Du solltest Deinen Vorgängertread verlinken ...
15.01.2021 13:29:17
neopa
Hallo Addi,
... den Link findest nur Du am einfachsten. Dazu musst Du nur den Button [Deine Beiträge] aktivieren.
Gruß Werner
.. , - ...
AW: Nepumuk wird da sicherlich weiterhelfen, ...
16.01.2021 09:59:13
neopa
Hallo Addi,
... wenn er wieder online ist. Ich hab den thread als offen gekennzeichnet, damit er leichter darauf aufmerksam werden kann.
Gruß Werner
.. , - ...
AW: Du solltest Deinen Vorgängertread verlinken ...
17.01.2021 00:26:01
fcs
Hallo Addi,
hier das Makro von Nepumuk angepasst an die neuen Vorgaben.
LG
Franz
Public Sub DatenAufteilen()
Dim lngInputRow As Long, lngOutputRow As Long, lngColumn As Long
Dim objInputSheet As Worksheet, objOutputSheet As Worksheet
Dim objWorkbook As Workbook
Application.ScreenUpdating = False
Set objOutputSheet = ActiveSheet
'Vorlage schreibgeschützt öffnen - Verzeichnis und/oder Name der Vorlage anpassen !!!
Set objWorkbook = Application.Workbooks.Open(ThisWorkbook.Path & "\Vorlage_Addi.xlsx", _
ReadOnly:=True)
Set objInputSheet = objWorkbook.Worksheets(1)
With objOutputSheet
For lngOutputRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
'Inhalte in Eingabe-Zellen der Vorlage löschen
'          objInputSheet.Range("C4:C77").ClearContents
For lngInputRow = 5 To 73
Select Case lngInputRow
Case 5, 8, 15, 21, 27, 30, 33, 36, 40, 43, 46, 49, 52, 55, 58, 64, 67, 73
objInputSheet.Cells(lngInputRow, 3).ClearContents
End Select
Next
For lngColumn = 1 To 18 'A bis R
lngInputRow = 0
'Zeilennummer im Zielblatt der Spalte zuordnen
Select Case lngColumn
Case 1: lngInputRow = 5 'Name der Gesellschaft A2
Case 2: lngInputRow = 8 'Neuanlage, Änderung, Löschung B2
Case 3: lngInputRow = 15 'Angabe zur Kundenart  C2
Case 4: lngInputRow = 21 'Vorname D2
Case 5: lngInputRow = 27 'Zusatzname E2
Case 6: lngInputRow = 30 'Rechtsform F2
Case 7: lngInputRow = 33 'Suchbegriff G2
Case 8: lngInputRow = 36 'UST-ID Nr. Kunden H2
Case 9: lngInputRow = 40 'steuerliche Ansässigkeit des Kunden I2
Case 10: lngInputRow = 43 'Straße/Hausnummer J2
Case 11: lngInputRow = 46 'Postleitzahl/Ort  K2
Case 12: lngInputRow = 49 'Land L2
Case 13: lngInputRow = 52 'Sprache M2
Case 14: lngInputRow = 55 'E-Mail des Kunden N2
Case 15: lngInputRow = 58 'E-Mail des Ansprechpartners O2
Case 16: lngInputRow = 64 'Gesellschaft / Buchungskreis  P2
Case 17: lngInputRow = 67 'Rechnungsversand Q2
Case 18: lngInputRow = 73 'Name des internen Antragstellers  R2
End Select
If lngInputRow > 0 Then
objInputSheet.Cells(lngInputRow, 3).Value = _
.Cells(lngOutputRow, lngColumn).Value
Select Case lngInputRow
Case 55, 58 'E-Mail des Kunden / E-Mail des Ansprechpartners
objInputSheet.Hyperlinks.Add objInputSheet.Cells(lngInputRow, 3), _
"mailto:" & .Cells(lngOutputRow, lngColumn).Text
End Select
End If
Next
Call objWorkbook.SaveCopyAs(Filename:=ThisWorkbook.Path & "\" & _
objOutputSheet.Cells(lngOutputRow, 1).Text & ".xlsx")
Next
End With
'Vorlage wieder schliessen
objWorkbook.Close savechanges:=False
Set objOutputSheet = Nothing
Set objInputSheet = Nothing
Set objWorkbook = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Du solltest Deinen Vorgängertread verlinken ...
18.01.2021 08:53:24
Addi
Hallo Franz, schon mal vielen Dank für Dein Feedback.
Ich werde versuchen heute das Coding zu testen und gebe dann natürlich nochmal Feedback!!
Viele Grüße
Addi
AW: Du solltest Deinen Vorgängertread verlinken ...
18.01.2021 14:50:56
Addi
Weltklasse!!
Vielen Dank für dieses Coding - das hat mir jetzt sehr viel Arbeit erspart!!
Macht genau das was ich mir vorgestellt habe!!!
Viele Grüße
Addi
Anzeige
;

Forumthreads zu verwandten Themen

suchmaschin mit Dialog Feld in Excel Tabelle
Qi,An

Morgen Zusammen,
tages lang hab ich versucht, ein Suchmaschin mit einer Excel Tabelle zu verbinden, damit man in diser Tabelle nach sitmmte Item suchen kann. Ergebnis wird in zweiter Tabelle gezeigt. aber es hat bis jetzt noch nicht geklappt.
ich würde sehr dankbar sein, wenn jemand a...
25.08.2008 10:30:00
Thread-ID: 1004390
2 Beiträge
Drücken des Button öffnet ander Excel Tabelle und.
Benny

Hallo kann mir jemand helfen?
Wie kann man mit betätigen eines Button eine andere Excelltabelle öffnen und bestimmte Felder übertragen?
07.10.2008 13:14:34
Thread-ID: 1014695
17 Beiträge
Excel Tabellen verknüpfen
marti

Guten Morgen, ich möchte ein Finanz- Reporting mit 6 Betriebsabteilungen aufbauen. Das gibt eine Exceltabelle in der grösse einer A4 Seite. Wenn ich für jeder Abteilung eine seperate Tabelle erstelle und später zb eine Zeile oder Beschreibung des Kopfes ändere, wie erstelle ich die tabellen, da...
09.10.2008 08:37:00
Thread-ID: 1015213
2 Beiträge
Anzeige
excel tabellen vergleichen?
thosrten1896

Hallo,
gibt es eine möglichkeit 2 excel tabellen auf gleichheit zu testen?
datei tabelle 1.xls
diff
datei tabelle 2 .xls
erg. unterschied der datei Tabellen.xls z.B. auf 2 wird der unterschied farblich markiert.
vielen Dank
20.10.2008 09:21:00
Thread-ID: 1017576
2 Beiträge
excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 Beiträge
Excel Tabelle
Conny

Hallo, suche dringend jemanden, der mir ziemlich schnell eine Excel-Tabelle schreiben kann, da ich es selbst nicht hinbekomme. Ich würde auch gern ein paar Euros dafür bezahlen.
Und zwar gehts um folgendes:
Ich muss einen Stamm fester Mitarbeiter eingeben können sowie extra für Mitarbe...
22.03.2009 18:06:10
Thread-ID: 1062680
10 Beiträge
Anzeige
in der Excel tabelle Fehlermeldung "wenn" Aufnahme
harry

=WENN(AF6="";"";WENN($AF$6=5;$D$6;WENN($AF$8=5;$D$8;WENN($AF$10=5;$D$10;WENN($AF$12=5;$D$12; WENN($AF$14=5;$D$14;WENN($AF$16=5;$D$16;WENN($AF$18=5;$D$18;0))))))))
Ergänzung
=WENN(AF6="";"";WENN($AF$6=5;$D$6;WENN($AF$8=5;$D$8;WENN($AF$10=5;$D$10;WENN($AF$12=5;$D$12; WENN($AF$14=5;$D...
03.04.2009 09:54:26
Thread-ID: 1066577
3 Beiträge
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Sharepoint import von Excel tabellen
Excel

Ich kann keine Tabellen aus Excel in Sharepoint exportieren bzw. keine Kalkulationstabelle aus Excel in sharepoint importieren. Fehlermeldung: "Ein unerwarteter Fehler ist aufgetreten" Woran kann das liegen?
Danke
04.08.2009 12:33:12
Thread-ID: 1093401
4 Beiträge
text auslesen in excel tabellenblatt
Michael

Public Sub aufruf() Dim IE Dim Quelltext As String Set IE = CreateObject("internetexplorer.application") IE.navigate "http://www.spotlight.de/" Quelltext = IE.Document.documentElement.outerHTML MsgBox Quelltext IE.Quit End Sub Hallo!
Der text soll im Tabellenblatt 1 als Text ausgebeben w...
04.09.2009 18:23:41
Thread-ID: 1100679
4 Beiträge
Excel Tabelle transportfähig machen?
Benjamin

Wenn sich aus mehreren Tabellen (Dateien) eine Zusammensetzt, zum Beispiel als Zusammenfassung etc. dann kann man dies ja über automatische Zellbezüge erstellen (ich hoffe es ist der richtige Ausdruck dafür).
Wenn ich jetzt allerdings die Zusammenfassung oder was auch immer mal auf einem an...
29.10.2009 00:03:56
Thread-ID: 1112922
3 Beiträge
Anzeige
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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