Kopieren und einfügen, verschiedene Sheets
24.04.2019 14:04:47
NSchub
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!
Anzeige