Vielen Dank für die schnelle Antwort und sorry, falls es undeutlich war:
Also die Erste Zeile ist die Zeile der Überschriften (A1: Vermittler B1: Sparte C1: VSNR D1: Vorname E1: Nachname etc.)
Quellblatt sollte "Tabelle1" heißen, Zielblatt "Tabelle2"
Nun soll z.B. Vermittler aus A1 in Tabelle1 zu C1 in Tabelle 2 werden, außerdem soll Vermittler nun Vermittler-ID heißen. Alle Werte die unter A1 stehen (also z.B. A2:A100) sollen mitkopiert werden (also in Tabelle2 zu C2:C100 werden). Wie viele Daten in einer Reihe stehen kann ich aber nicht vorhersagen - es können mal 100 und mal 5 sein.
Aus Sparte in Tabelle1 B: soll Tabelle2 N: werden.
Die Werte in Tabelle1 Reihe C sollen in Tabelle2 in Reihe F stehen usw. usw.
Die eingegebenen Werte sind alles nur Strings (Datum,Zahlenreihe oder Name) und sollen auch einfach als diese wieder ausgegeben werden.
Prinzipiell will ich einfach nur "Tabelle1" zu "Tabelle2" kopieren und dort dann die Reihen in eine gewünschte Reihenfolge verschieben. Ich habe mal weiter dran gearbeitet und die Fehler bereinigt. Hier ist also wie die einzelnen Werte heißen, wo sie sind und wohin sie sollen.
A: Vermittler soll zu C
B: Sparte N
C: VSNR zu F
D: Vorname zu H
E: Name zu G
F: Courtage zu Y
G: Courtageart zu Z
H: Courtagesatz zu AC
I: Courtagebasis zu X
J: Fälligkeit zu A und zu B
K: Beginn zu Q
L: Ablauf zu R
M: Makler zu D
PS: Vielen Dank für die Hilfe!!
PPS: Hier der Code:
Option Explicit
Sub Inhalt_verschieben()
Dim temp As String
Dim iRow As Long
Dim iCol As Long
Dim swapCol As Long
Dim A As Long
zeroTest As Integer
Application.ScreenUpdating = False
With ActiveSheet
.Copy After:=Sheets(Worksheets.Count)
.Name = "Tabelle" & Worksheets.Count + 1
End With
For zeroTest = 2 To 15 '65536
A = Cells(zeroTest, 1).Value
If A = " " Then
Exit For
End If
Next zeroTest
iRow = 1
iCol = 1
swapCol = 3
For iRow = 1 To 15
temp = Cells(iRow, iCol)
Cells(iRow, iCol) = Cells(iRow, swapCol)
Cells(iRow, swapCol) = temp
Next iRow
Application.ScreenUpdating = True
End Sub
|