Hallo,
ich würde gerne von einem Tabellenblatt Daten in ein anderes Tabellenblatt übertragen, aber in andere Zellen bzw. eine markierte Zeile. Ich hatte aus der Vergangenheit ein Makro, welches es umgedreht gemacht hat (siehe unten).
Beispiel:
- Tabelle1 (A1) in Tabelle2 (A & markierte Zeile)
- Tabelle1 (A4) in Tabelle2 (B & markierte Zeile)
- Tabelle1 (B5) in Tabelle2 (C & markierte Zeile)
- Tabelle1 (C7) in Tabelle2 (D & markierte Zeile)
- ...
Ich bin leider ein VBA Anfänger und meine Versuche sind leider gescheitert.
Das damalige Makro (damals aus einer anderen Datei):
Dim r As Long, c As Long
Dim sPfad As String
Dim sDatei As String
Dim sName As String
Dim w As Integer
sPfad = "X:\Test"
sDatei = "Testziel.xlsx"
On Error Resume Next
Workbooks.Open Filename:=sPfad & sDatei, Editable:=False
If Err.Number <> 0 Then
MsgBox sDatei & " nicht gefunden !", vbCritical
GoTo Ende
End If
sName = ActiveWorkbook.Name
ThisWorkbook.Activate
With Selection
r = .Row
c = .Column
End With
With Workbooks(sName).Worksheets("Tabelle1")
.Range("A1") = Range("B5")
.Range("Z2") = Range("C" & r)
.Range("A2") = Range("D" & r)
.Range("E3") = Range("E" & r)
.Range("E2") = Range("G" & r)
.Range("T6") = Range("H" & r)
.Range("A3") = Range("L" & r)
.Range("Z3") = Range("O" & r)
.Range("Z1") = Range("P" & r)
End With
Ende:
On Error GoTo 0
End Sub |