Option Explicit
Private Type tDatensatz
sText(1 To 6) As String
End Type
Sub uebertragDBmod()
Dim tRecord As tDatensatz
If Not (Range("F8").Value = vbNullString) And IsError(Application.Match(Range("F8").Text, Worksheets("Datenbank").Range("A:A"), 0)) Then
With tRecord
.sText(1) = Range("F8").Text
.sText(2) = Range("H8").Text
.sText(3) = Range("J8").Text
.sText(4) = Range("F15").Text
.sText(5) = Range("J15").Text
.sText(6) = Range("N15").Text
End With
With Worksheets("Datenbank").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0).Resize(1, UBound(tRecord.sText)).Value = tRecord.sText
End With
Else
MsgBox "Datensatz vorhanden." & vbNewLine & "Vorgang abgebrochen.", vbInformation + vbOKOnly, "Autor informiert:"
End If
End Sub