Thema Datum  Von Nutzer Rating
Antwort
Rot Find-methode Zeile des Treffers wiedergeben
 25.10.2016 15:23:39 Maximilian
NotSolved
25.10.2016 16:08:54 Gast95033
NotSolved

Ansicht des Beitrags:
Von:
Maximilian		 Datum:
25.10.2016 15:23:39		 Views:
1245		 Rating:
     
Antwort:
  Ja
Thema:
Find-methode Zeile des Treffers wiedergeben
Hallo zusammen, leider habe ich ein Problem womit ich nicht weiter komme. Ich würde gerne durch eine Suche überprüfen ob der Inhalt in Spalte A bereits in Spalte B vorhanden ist. Ist der Inhalt noch nicht vorhanden soll er in der nächsten freien Zeile in B ergänzt werden. Ist der Inhalt jedoch bereits vorhanden soll das aktuelle Datum in der Spalte C bei dem jeweiligem Wert eingetragen werden. Der erste Teil funktioniert soweit auch schon Prima. Nur der zweite nicht. Leider kann ich wohl nicht einfach die Zeilennummer bei einem Treffer über das Kommando Find.Row aufrufen. Über ein wenig Hilfe wäre ich dankbar. [Code] Sub CUSTOMER_RELEASE() Dim lastZ As Integer Dim AktuellesDatum As Date Dim wert As String Dim z As Integer Dim Bereich As Range Dim Letzte As Long anzSTPA = Application.WorksheetFunction.CountIf(Worksheets("Quelle").Columns("B"), "STPA") MsgBox anzSTPA Select Case anzSTPA Case Is = 0 lastZ = Worksheets("Auswertung1").UsedRange.SpecialCells(xlCellTypeLastCell).Row Worksheets("Auswertung1").Range("A2:C" & lastZ).ClearContents lastZ = Worksheets("Ttcr").Range("A65536").End(xlUp).Row + 1 Worksheets("Ttcr").Range("B" & lastZ) = 0 Worksheets("Ttcr").Range("C" & lastZ) = 0 Exit Sub Case Is >= 0 'STPA auslesen Application.ScreenUpdating = False A = 2 For i = Sheets("Quelle").Cells(65536, 1).End(xlUp).Row To 1 Step -1 With Worksheets("Quelle") If .Cells(i, "B") = "STPA" Then Worksheets("Auswertung1").Cells(A, 1).Value = Worksheets("Quelle").Cells(i, 1).Value A = A + 1 Else End If End With Next i Application.ScreenUpdating = True End Select 'Überprüfung ob WBS element vorhanden ist lastZA = Worksheets("Auswertung1").Range("A65536").End(xlUp).Row lastZB = Worksheets("Auswertung1").Range("B65536").End(xlUp).Row For i = 2 To lastZA wert = Sheets("Auswertung1").Cells(i, 1) Set Bereich = Sheets("Auswertung1").Range("B2:B" & lastZB) _ .Find(wert, lookat:=xlWhole) If Bereich Is Nothing Then lastZ = Worksheets("Auswertung1").Range("B65536").End(xlUp).Row + 1 Worksheets("Auswertung1").Range("B" & lastZ).Value = wert Worksheets("Auswertung1").Range("C" & lastZ).Value = 1 Else Sheets("Auswertung1").Cells(Find.Row, "C").Value = Date End If Next End Sub [/Code]

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Find-methode Zeile des Treffers wiedergeben
 25.10.2016 15:23:39 Maximilian
NotSolved
25.10.2016 16:08:54 Gast95033
NotSolved