tja, ich habe eine abfrage geschrieben und am ende musste ich feststellen, dass die laenge(zeilen) des programms etwas ueberdimensional ist.vielleicht hat einer von euch 'ne bessere idee.
Sub ErrorExport()
Worksheets("Aus.Gr").Activate
If Range("G5").Value = "184" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "191" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "192" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "270" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "190" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "193" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "205" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "213" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "149" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "180" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "230" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "196" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "245" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "197" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "350" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "020" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "212" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "347" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
If Range("G5").Value = "010" Then
Sheets("Ges.Geradeauslauf").Range("C3") = Worksheets("Aus.Gr").Range("H5").Value
End If
End Sub
marc :-}