|
Servus,
ich will von VBA eine Tabelle in Tabellenblatt1, die alle Aufträge erfasst auf einen Wert aus Tabellenblatt2 prüfen lassen, um auszugeben. ob der Auftrag bereits erfasst ist oder nicht.
Falls nicht soll die letzte leere Zelle ausgewählt und der Wert übernommen werden.
Allerdings stört sich VBA noch an meinen Bezeichnungen und Datentypen und gibt den "Laufzeitfehler '1004' Anwendungs- oder Objektorientierter Fehler" zurück.
Pls help!
__________________________________________________________________
Sub NeuerAuftrag()
Sheets("2. Kostenträger").Activate
Dim letzte
Dim Hauptauftragsnr
Set Hauptauftragsnr = Worksheets("Tabellenblatt2").Range("C3")
With Worksheets("Tabellenblatt1").Activate
For letzte = 2 To Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
If Cells(letzte, 3) = "" Then
Cells(letzte, 3).Value = Worksheets("Tabellenblatt2").Cells(letzte, 3)
Cells(letzte, 3) = Worksheets("Tabellenblatt2").Range(3, 3)
End If
Next
End With
End Sub
|