Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten an best. Stelle in anderer Datei einfügen

Daten an best. Stelle in anderer Datei einfügen
25.02.2016 15:25:46
Stina
Hallo zusammen,
ich bitte um eure Hilfe:
Ich habe einen Excel-Datensatz (Tabelle1), der sich monatlich ändert, also immer unterschiedlich viele Zeilen hat. Die Spaltenanzahl bleibt immer gleich (A-V).
Wenn in Spalte A ein bestimmter Name steht z.B. "Baum Rot", dann sollen alle Zeilen, in denen dies der Fall ist, ganz (A:V) kopiert werden und in einer bestehenden Vorlagendatei (Vorlage.xlsx) an der Stelle eingefügt werden, an der genau dieser Name in Spalte A steht.
Vorsicht: in der Vorlagentabelle steht nur einmalig der Name, die darunterliegenden Zeilen sind leer.
Das Ganze soll dann mehrmals für andere Namen wiederholt werden.
Könnt ihr mir helfen?
Danke und liebe Grüße
Stina

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten an best. Stelle in anderer Datei einfügen
25.02.2016 16:54:43
fcs
Hallo Stina,
schau mal, ob du mit dem folgenden Makro klar kommst.
Das Makro musst du in der Datei mit den Monatsdaten in einem allgemeinen Modul einbauen oder in deiner persönlichen Makroarbeitsmappe.
Die Vorlage-Datei sollte geschlossen sein. Das Verzeichnis der Datei musst du im Code anpasen.
Gruß
Franz 
Sub Transfer_Monatsdaten()
Dim wks_Q As Worksheet
Dim wkb_Z As Workbook
Dim wks_Z As Worksheet
Dim rngZiel As Range
Dim colA As New Collection, colItem
Dim Zeile As Long, Zeile_Z As Long
On Error GoTo Fehler
With Application
.ScreenUpdating = False
End With
'Quelltabelle setzen
Set wks_Q = ActiveWorkbook.Worksheets("Tabelle1")
'Vorlage schreibgeschützt Öffnen - Verzeichnis der Vorlage anpassen!!!!
Set wkb_Z = Application.Workbooks.Open("D:\Test\Vorlage.xlsx", ReadOnly:=True)
Set wks_Z = wkb_Z.Worksheets(1)
'Begriffe in Spalte A der Quelle sammeln ohne doppelte
With wks_Q
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1).Text  "" Then
colA.Add Item:=.Cells(Zeile, 1).Text, Key:=.Cells(Zeile, 1).Text
End If
Next
End With
'gefundene Begriffe abarbeiten
For Each colItem In colA
'Zeile mit Begriff in Zieltabelel (Vorlage) ermitteln
With wks_Z
Set rngZiel = .Range("A:A").Find(what:=colItem, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not rngZiel Is Nothing Then
Zeile_Z = rngZiel.Row
With wks_Q
'Zeilen mit Begriff in Quelle suchen und nach Ziel kopieren
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1).Text = colItem Then
.Range(.Cells(Zeile, 1), .Cells(Zeile, 22)).Copy wks_Z.Cells(Zeile_Z, 1)
Zeile_Z = Zeile_Z + 1
End If
Next
End With
Else
MsgBox "Eintrag """ & colItem & """ in Zieltabelle nicht gefunden!"
End If
Next
Fehler:
With Err
Select Case .Number
Case 0
Case 457
'Eintrag für Collection mehrfach
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
With Application
.ScreenUpdating = True
End With
End Sub

Anzeige

319 Forumthreads zu ähnlichen Themen

Gültigkeitsprüfung in Bezug auf andere Zelle
Erwin

Geschätztes Forum!
Ich möchte in Zelle A1 eine Gültigkeitsprüfung einfügen.
Die Gültigkeit soll mir dort Eingaben bis zur Höchstzahl der in A2 vorhandenen Zahl erlauben.
zB. Wenn in A2 die Zahl 5 steht, soll die Eingabe in A1 bis höchstens bis zur Zahl 5 (also 1,2,3,4,5) erlaubt sei...
14.08.2008 14:06:00
Thread-ID: 1001854
5 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
auf anderes sub zugreifen
Lars

Hallo,
ich möchte gerne eine Standardprozedur im sub "A" definieren, und es in anderen subs (z.B. "B") aufrufen, so dass es ausgeführt wird. Anschließend geht es in sub "B" weiter. Wie funktioniert das?
Danke
Gruß
Lars
03.09.2008 15:35:00
Thread-ID: 1007127
12 Beiträge
Anzeige
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Daten aus verschiedenen Dateien *HILFE*
Uwe

Guten Morgen
ich habe folgende Datei:
https://www.herber.de/bbs/user/55730.zip
ich umreiße kurz die Funktion, sowie den aktuellen Fehler:
Geschäftsablauf sieht folgendermaßen aus:
Kunde bestellt bei uns ein Produkt, welches der Vertrieb mit den vorliegenden Fahrzeugdaten -...
30.09.2008 08:16:45
Thread-ID: 1013242
7 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Datenimport, Zahlen aus .txt Datei
Tom

Hallo zusammen,
benötige mal wieder Euer Fachwissen.
Es geht um eine .txt-Datei mit 100.000 Zahlen a 13 Stellen, diese möchte ich in Excel importieren.
Hierzu nutze ich in Excel Daten_ Externe Daten importieren, funktioniert auch gut, nur das nicht alle Zahlen in ein Tabelleblatt pa...
20.10.2008 19:30:14
Thread-ID: 1017788
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
4
1
7
11
6
3
6
2
4
1
5
3
1
2
1
7
4
8
10
4
3
3
17
6
2