Thema Datum  Von Nutzer Rating
Antwort
Rot Werte finden und ersetzen
13.10.2022 10:54:22 Gast234
NotSolved
13.10.2022 14:36:09 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast234
Datum:
13.10.2022 10:54:22
Views:
685
Rating: Antwort:
  Ja
Thema:
Werte finden und ersetzen

Hey Leute,

ich habe ein kleines Problem und komme nicht weiter.

Ausgangssituation:

Haupt Aufgelöst
test-v1 test-t1
test-v1 test-v2
test-v1 test-v3
test-v2 test-t8
test-v3 test-v2
test-v3 test-t2
test-v3 test-t1

Ich habe hier verschiedene Werte in Spalte A (Haupt), diese enthalten die werte in Spalte B (Aufgelöst).

Sprich: test-v1 = {test-t1,test-v2,test-v3} | test-v2 = {test-t8, test-v2} | test-v3 = {test-t2,test-t1}

Meine Aufgabe ist es nun, wenn in der Spalte "Aufgelöst" noch ein v-Eintrag ist, diesen weiter aufzulösen, sodass schließlich nur noch t-Einträge in Spalte B stehen.

Dazu habe ich zunächst geschaut, ob ein v-Eintrag vorliegt:

For Each item In arrAufgelöst
     If IsError(Application.match(item, arrHaupt, 0)) Then
            Cells(i, 3).Value = "t"
     Else
            Cells(i, 3).Value = "v"
     End If

 Next item

Demnach stehe ich nun an diesem Punkt:

Haupt Aufgelöst t
test-v1 test-t1 t
test-v1 test-v2 v
test-v1 test-v3 v
test-v2 test-t8 t
test-v3 test-v2 v
test-v3 test-t2 t
test-v3 test-t1 t

Jetzt muss ich die Zeilen mit den v-einträgen löschen und ersetzen durch die t-einträge der v-einträge...

Sprich die Rote Zeile wird gelöscht, da Sie ein v-Eintrag ist. Dann wird an diese Stelle ein neuer eintrag erstellt, mit dem Wert in Spalte A unverändert, aber dafür wird geschaut, welche einträge hat test-v2 und dem entsprechend der aufgelöste Wert von test-v2 eingefügt.

Haupt Aufgelöst t
test-v1 test-t1 t
test-v1 test-v2 v
test-v1 test-t8  
test-v1 test-v3 v
test-v2 test-t8 t
test-v3 test-v2 v
test-v3 test-t2 t
test-v3 test-t1 t

 

Ich hoffe ich konnte es irgenwie verständlich erklären... Komme dort einfach nicht weiter

 


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 Werte finden und ersetzen
13.10.2022 10:54:22 Gast234
NotSolved
13.10.2022 14:36:09 ralf_b
NotSolved