Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Excel, dynamisch Zellen auswerten.





Frage

Hallo, ich habe ein kleines Problem welches ich in Excel lösen möchte. Ich kann im Archiv leider nichts dazu finden, lasse mich aber gerne eines besseren belehren. Konrekt habe ich eine Liste mit Nummern. Die Nummern haben keine bestimtme Reihenfolge und können nicht sortiert werden. Sie werden nach und nach eingetragen. In A1-A999 sind beispielsweise die Nummern, in B1-B999 ein Kommentar und in C1-C999 ein Status zu den Nummern. Jetzt habe ich eine zweite Liste. Dort sind die gleichen Nummern, in einer anderen Reihenfolge. Auch dort befindet sich ein der x-ten Spalte der Status dieser Nummer (Text). Die zweite Liste ist aktuell, wird kopiert. Ich muss nun in die erste Liste den Status der jeweiligen Nummer aus der zweiten Liste übernehmen. Wie mache ich das? Von VBA habe ich keien Ahnung :o( Beispiel: Liste 1: 1 NEU 2 ALT 3 NEU 4 NEU 5 ALT Liste2: 5 XXX 2 YYY 3 XXX 4 XXX 1 XXX Liste 1 nach Übertrag: 1 XXX 2 YYY 3 XXX 4 XXX 5 XXX Habe ich mich verständlich ausdrückt? Schönen Gruß

Antwort 1 von Biene1984

Im Prinzip soll sich der gesuchte Excel-Befehl auf die Suche nach "1" in der Liste 2 machen und dann das Ergebnis in Liste 1 eintragen.

Antwort 2 von Biene1984

Ich hab's rausgefunden!

siehe Antwort aus anderem Threat.

Zitat:
Hallo,

Schreib mal in A171

=HEUTE()-WOCHENTAG(HEUTE();3)

dann hast du immer den aktuellen Montag

und in B175

=SVERWEIS($A$171;$B$92:$N$147;SPALTE(B1);0)

und wie gehabt rüberziehen

Gruß

Helmut


Antwort 3 von Marie

Bitte entsprechend ändern, falls notwendig: Ich habe Liste 1 in Tabelle1, Liste 2 in Tabelle2, Nummern jeweils in Spalte 1 und Status jeweils in Spalte 2:

Sub ErsetzeSpalte2()

Dim zeileL1 As Integer
Dim zeileL2 As Integer
Dim strStatus As String


zeileL2 = 1
' solange Spalte 1 Nummer nicht leer.
' Liste 1 habe ich in Tabelle 1 Spalte 1 und 2, Liste 2 in Tabelle 2 Spalte 1 und 2
While Tabelle2.Cells(zeileL2, 1) <> ""
zeileL1 = 1
Do Until Tabelle1.Cells(zeileL1, 1) = ""
If Tabelle1.Cells(zeileL1, 1) = Tabelle2.Cells(zeileL2, 1) Then
'Status aus Tabelle 2 in Tabelle 1 eintragen
Tabelle1.Cells(zeileL1, 2) = Tabelle2.Cells(zeileL2, 2)
Exit Do
End If
zeileL1 = zeileL1 + 1
Loop
zeileL2 = zeileL2 + 1
Wend

End Sub


Kopiere den Code in Visual Basic und probier es aus.

Gruß marie

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: