Zellen aus zwei Zeilen kopieren
20.01.2010 19:20:06
Einzel
Hallo
brauch Hilfe bei einem Code.
Ich habe eine datenbank die ab A3 beginnt. (Tabelle1)
Und zwar soll es so ablaufen
Wenn in A3 "A" steht dann einlesen B3, D3, E3, G3,
weiter wenn in A4 "B" steht dann einlesen D3
Nun in tabelle2 einfügen ab A4 den Inhalt von Einlesen aus A3 und A4
und zwar in der Reihenfolge B3 aus Zeile 3, D3 aus Zeile 3, E3 aus Zeile 3, D3 aus Zeile 4 und wieder G3 aus Zeile 3.
Dann das ganze wiederholen aus A5 und A6. und in Tabelle2 in A5 einfügen das ganze bis zum Ende. ende umbekannt.
Habe es mal so angefangen aber es geht so nicht und er würde wenn auch nur einmal kopieren.
Sub einlesen()
Dim x As String
Dim y As String
Sheets("Tabelle1").Activate ' Datei auswählen / anpassen
x = [B2]
Range("A3").Select
If ActiveCell = A Then
Copy = [B3] & [D3] & [E3] & [G3]
End If
If ActiveCell = B Then
Copy = [D3]
End If
y = Copy
Sheets("Tabelle2").Activate
Range("A4").Select
ActiveCell = y
[B2] = x
End Sub
Hätte jemand eine Idee?Hier mal die Mappe dazu.
https://www.herber.de/bbs/user/67359.xlsm
MfG
Stephan