ich möchte alle Selects in meinen Daten entfernen .. da Excel beim Ausführen des Makros in die einzelnen Dateien springt.
Bei diesem Ausschnitt wird geschaut ob die Auftragsnummer (AufNr) in der Spalte A vorhanden ist.
Wenn nicht wird die Nummer in die Erste leere Zeile geschrieben
Wenn vorhanden geht es bei "Weiter" weiter ....
hier wir die gefundene Zelle mit select ausgewählt und dann in die Zeile geschrieben.
Das möchte ich nun ohne Select machen ..
kann mir da jemand helfen?
Dim c
Dim wksAuftrag As Worksheet
Set wksAuftrag = Workbooks("auftrag.xlsm").Sheets("Daten")
Set X = wksAuftrag.Columns(1)
'Set x da es mehr Möglichkeiten gibt .. hier nur eine variante
Set c = .Find(AufNr, LookIn:=xlValues, LookAt:=xlWhole, _
SearchDirection:=xlNext, MatchCase:=False)
If Not c Is Nothing Then
Application.Goto c
GoTo weiter
End If
With .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).EntireRow
.Cells(1, 1).Value = RechnungsNr
.Cells(1, 2).Value = KundenNr
.Cells(1, 3).Value = GeraeteNummer
.Cells(1, 4).Value = ExterneNummer
.Cells(1, 5).Value = AuftragsDatum
Application.Goto .Cells(1, 1)
End With
End With
weiter:
Application.EnableEvents = False
ActiveCell.Select
ActiveCell = AufNr
Selection.Offset(0, 1) = RechnungsNr
Selection.Offset(0, 2) = KundenNr
Selection.Offset(0, 3) = GeraeteNummer
Selection.Offset(0, 4) = ExterneNummer
Selection.Offset(0, 5) = AuftragsDatum
Liebe Grüße Tobi