Option
Explicit
Sub
QuelldatenNachZieldaten()
Dim
QuellTabelle
As
Object
Dim
Zieltabelle
As
Object
Dim
Zeile
As
Long
Dim
Spalte
As
Long
Dim
ZeileZiel
As
Long
Dim
Abteilung
As
String
Dim
Geschlecht
As
String
Dim
Spalte1
As
String
Set
QuellTabelle = Application.Worksheets(
"Quelldaten"
)
Set
Zieltabelle = Application.Worksheets(
"Zieldaten"
)
ZeileZiel = 1
Zieltabelle.Cells(ZeileZiel, 1).Value =
"Gemeindename"
Zieltabelle.Cells(ZeileZiel, 2).Value =
"Jahr"
Zieltabelle.Cells(ZeileZiel, 3).Value =
"Abteilung"
Zieltabelle.Cells(ZeileZiel, 4).Value =
"Geschlecht"
Zieltabelle.Cells(ZeileZiel, 5).Value =
"Anzahl"
ZeileZiel = ZeileZiel + 1
For
Zeile = 4
To
5
Spalte1 = QuellTabelle.Cells(Zeile, 1).Value
Abteilung = Mid(Spalte1, 1, InStr(1, Spalte1,
" "
))
Geschlecht = Mid(Spalte1, InStr(1, Spalte1,
" "
) + 1)
For
Spalte = 3
To
19
Zieltabelle.Cells(ZeileZiel, 1) = QuellTabelle.Cells(1, Spalte).Value
Zieltabelle.Cells(ZeileZiel, 2) = 2010
Zieltabelle.Cells(ZeileZiel, 3) = Abteilung
Zieltabelle.Cells(ZeileZiel, 4) = Geschlecht
Zieltabelle.Cells(ZeileZiel, 5) = QuellTabelle.Cells(Zeile, Spalte).Value
ZeileZiel = ZeileZiel + 1
Next
Next
End
Sub