Hallo,
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
'"Gemeindename"
Zieltabelle.Cells(ZeileZiel, 1) = QuellTabelle.Cells(1, Spalte).Value
'"Jahr"
'Zieltabelle.Cells(ZeileZiel, 2) = Year(Now) - 1
Zieltabelle.Cells(ZeileZiel, 2) = 2010
'"Abteilung"
Zieltabelle.Cells(ZeileZiel, 3) = Abteilung
'"Geschlecht"
Zieltabelle.Cells(ZeileZiel, 4) = Geschlecht
'"Anzahl"
Zieltabelle.Cells(ZeileZiel, 5) = QuellTabelle.Cells(Zeile, Spalte).Value
ZeileZiel = ZeileZiel + 1
Next
Next
End Sub
Gruß
|