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ß