Hallo,

Also ich möchte, dass ein Teil der Daten ins Testprotokoll kopiert werden und alle Daten gesamt in das Tabellenblatt mit dem selben Namen wie das Thema. Ich habe das aber jetzt hinbekommen und habe nur noch ein kleines Problem.

Ich möchte noch die Funktion einbinden, dass wenn die Daten kopiert werden und die Zeilen im Ziel-Tabellenblatt bereits belegt sind, diese untereinander geschrieben werden.

Hast du da zufällig eine Idee? Ich schreibe den neuen Code nochmal schnell hier rein.

Sub Daten_zu_Protokoll()
Dim Test_ID As String
Dim Testbezeichnung As String
Dim Thema As String
Dim Release As String
Dim Sprint As String
Dim Vorbedingung As String
Dim Testschritte As String
Dim Ergebnis As String
Dim Nachbedingung As String

Worksheets("Eingabe").Select
Test_ID = Range("C3")
Testbezeichnung = Range("C5")
Thema = Range("C7")
Release = Range("C9")
Sprint = Range("C11")
Vorbedingung = Range("C13")
Testschritte = Range("C15")
Ergebnis = Range("C17")
Nachbedingung = Range("C19")

Worksheets("Testprotokoll").Select
Worksheets("Testprotokoll").Range("A1").Select
If Worksheets("Testprotokoll").Range("A1").Offset(1, 0) <> "" Then

Worksheets("Testprotokoll").Range("A1").End(xlDown).Select

End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Test_ID
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Testbezeichnung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Thema
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Release
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sprint

If Cells(7, 3).Value = "Flotte" Then
    Worksheets("Flotte").Select
    Worksheets("Flotte").Range("B8").Select
End If

If Cells(7, 3).Value = "Mitarbeiter" Then
    Worksheets("Mitarbeiter").Select
    Worksheets("Mitarbeiter").Range("B8").Select
End If

If Cells(7, 3).Value = "Accountverwaltung" Then
    Worksheets("Accountverwaltung").Select
    Worksheets("Accountverwaltung").Range("B8").Select
End If

If Cells(7, 3).Value = "Loginprozess" Then
    Worksheets("Loginprozess").Select
    Worksheets("Loginprozess").Range("B8").Select
End If

If Cells(7, 3).Value = "Registrierungsprozess" Then
    Worksheets("Registrierungsprozess").Select
    Worksheets("Registrierungsprozess").Range("B8").Select
End If

If Cells(7, 3).Value = "Unternehmensverwaltung" Then
    Worksheets("Unternehmensverwaltung").Select
    Worksheets("Unternehmensverwaltung").Range("B8").Select
End If

If Cells(7, 3).Value = "Kontrollen" Then
    Worksheets("Kontrollen").Select
    Worksheets("Kontrollen").Range("B8").Select
End If

If Cells(7, 3).Value = "Berichte" Then
    Worksheets("Berichte").Select
    Worksheets("Berichte").Range("B8").Select
End If

If Cells(7, 3).Value = "Notfall" Then
    Worksheets("Notfall").Select
    Worksheets("Notfall").Range("B8").Select
End If

If Cells(7, 3).Value = "Rechnung" Then
    Worksheets("Rechnung").Select
    Worksheets("Rechnung").Range("B8").Select
End If

If Cells(7, 3).Value = "Vorfinanzierung" Then
    Worksheets("Vorfinanzierung").Select
    Worksheets("Vorfinanzierung").Range("B8").Select
End If

If Cells(7, 3).Value = "Timocom" Then
    Worksheets("Timocom").Select
    Worksheets("Timocom").Range("B8").Select
End If

If Cells(7, 3).Value = "Tanken & Waschen" Then
    Worksheets("Tanken & Waschen").Select
    Worksheets("Tanken & Waschen").Range("B8").Select
End If

If Cells(7, 3).Value = "SSO Wedolo Familie" Then
    Worksheets("SSO Wedolo Familie").Select
    Worksheets("SSO Wedolo Familie").Range("B8").Select
End If

If Cells(7, 3).Value = "Magazin & Logxikon" Then
    Worksheets("Magazin & Logxikon").Select
    Worksheets("Magazin & Logxikon").Range("B8").Select
End If

If Cells(7, 3).Value = "Admin Funktionen" Then
    Worksheets("Admin Funktionen").Select
    Worksheets("Admin Funktionen").Range("B8").Select
End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Test_ID
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Testbezeichnung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Thema
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Release
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sprint
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorbedingung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Testschritte
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Ergebnis
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Nachbedingung


End Sub

Private Sub CommandButton1_Click()

End Sub