Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1688to1692
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
Inhaltsverzeichnis

Kopieren und einfügen, verschiedene Sheets

Kopieren und einfügen, verschiedene Sheets
24.04.2019 14:04:47
NSchub
Hallo,
ich würde gerne ein Makro schreiben, das folgendes Problem löst:
In Datei 1 wird das Makro ausgeführt, man gibt den Namen der Zieldatei ein und der Zellinhalt der Zelle B1 aus Datei 1 wird in die Zelle A1 des ersten Tabellenblatts kopiert, der Ihalt der Zelle B2 in die Zelle A2 des ersten Tabellenblatts etc.
Ich glaube ich muss lediglich eine Schleife in das Makro einbauen, scheitere aber leider daran.
Hier mein bisheriger Code:
Sub Probennameändern()
Dim x As Workbook
Dim y As Workbook
Dim copyToWrkbk As String
Set x = ActiveWorkbook
copyToWrkbk = InputBox("Name der Zieldatei")
Set y = ActiveWorkbook
For i = 1 To Sheets.Count
x.Activate
Sheets(i).Select
For iCounter = 1 To 200
Cells(iCounter, 1).Value = "B" & iCounter.Copy
y.Activate
Sheets(i).Select
Range("A2").PasteSpecial xlPasteAll
Next i
n = n + 1
End Sub

Danke im Voraus und beste Grüße!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und einfügen, verschiedene Sheets
24.04.2019 17:09:03
Dieter
Hallo NSchub,
wenn ich deine Anforderung richtig verstehe, dann könnte das Programm so aussehen:
Sub Probennameändern()
Dim datei2 As String
Dim fd As FileDialog
Dim i As Long
Dim pfad As String
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = ThisWorkbook
pfad = wb1.Path & "\"
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.InitialFileName = pfad '  wb2.Worksheets.Count Then
MsgBox "Anzahl der Blätter stimmt nicht überein."
Exit Sub
End If
For i = 1 To wb1.Worksheets.Count
wb1.Worksheets(i).Range("B1:B200").Copy _
Destination:=wb2.Worksheets(i).Range("A1")
Next i
wb2.Save
wb2.Close
End Sub
Ggf. musst du die Anforderung noch etwas präzisieren.
Viele Grüße
Dieter
Anzeige

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige