AW: Daten in Formular/Maske schreiben
17.01.2021 11:44:37
GerdL
Hallo Werner!
Die Zusammengehörigkeit ist hier nicht berücksichtigt.
Sub Unit()
Dim Fo As Worksheet, Spalte As String
Set Fo = Worksheets("Formular zum Ausdruck BTB")
If Cells(ActiveCell.Row, "C") Like "Anlage*" Then
If Cells(ActiveCell.Row, "B") = "SF" Then
Spalte = "D"
Else
Spalte = "E"
End If
Fo.Cells(7, "A") = Cells(ActiveCell.Row, "C")
Fo.Cells(10, Spalte) = Cells(ActiveCell.Row, "B")
Fo.Cells(12, Spalte) = Cells(ActiveCell.Row, "D")
Fo.Cells(13, Spalte) = Cells(ActiveCell.Row, "E")
Fo.Cells(14, Spalte) = Cells(ActiveCell.Row, "F")
Fo.Cells(17, Spalte) = Cells(ActiveCell.Row, "I")
If Spalte = "E" Then
Fo.Cells(15, Spalte) = Cells(ActiveCell.Row, "G")
Fo.Cells(16, Spalte) = Cells(ActiveCell.Row, "H")
Fo.Cells(18, Spalte) = Cells(ActiveCell.Row, "J")
Fo.Cells(19, Spalte) = Cells(ActiveCell.Row, "K")
Fo.Cells(20, Spalte) = Cells(ActiveCell.Row, "L")
End If
End If
Set Fo = Nothing
End Sub
Gruß Gerd