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