Hi,
Ich sitze momentan an einem Makro, dass bestimmte Werte hat. Die erste Zeile ist mit Überschriften gefüllt, dannach folgen beliebig viele Reihen mit Werten, die zu der jeweiligen Überschrift gehören. Die Zahl der Werte kann hierbei variieren. Ich möchte nun die Reihen nun in eine weitere Tabelle (eine neue) kopieren (z.B. Tabelle1.(A1:A10) = Tabelle.(C1:C10). Außerdem soll daraufhin in der neuen Tabelle die Überschrift (also was im Beispiel bei C1 steht) durch einen vorgegebenen Wert (bei jedem Verschobenen variierenden) umbenannt werden. Also aus Name soll z.B. Vorname werden etc..
Mein verwendetes System ist Windows XP mit Office 2007.
Ich habe vorher noch nicht mit VBA gearbeitet, deshalb hier mein Code:
Option Explicit
Sub Inhalt_verschieben()
Dim temp As String
Dim iRow, iCol, swapCol As Integer
Application.ScreenUpdating = False
Sub swap(iRow As Integer, iCol As Integer, swapCol As Integer)
Do Until Cells(iRow, iCol) = " "
temp = Cells(iRow, iCol)
Cells(iRow, iCol) = Cells(iRow, swapCol) ' hier tausche ich noch Werte, so soll es aber nicht; es soll wie oben
Cells(iRow, swapCol) = temp ' geschrieben sein.
Loop
End Sub
Application.ScreenUpdating = True
End Sub
Es sollen also solange Zeilen verschoben werden, bis der zu kopierende Wert leer ist. Ich muss circa 20 Reihen kopieren und umbenennen,!
|