Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates.
x
ich bin schon eine Weile auf der Suche und wäre unglaublich froh, wenn mir hier eine/r helfen könnte.
Folgendes Problem habe ich: Ich habe zwei Tabellenblätter. Tabellenblatt 1 (Export) enthält Informationen und Daten, Tabellenblatt 2 (Auszug) ist leer. Zeile 1 ist in beiden Tabellenblättern gleich. Sobald in Spalte I des Tabellenblattes 1 der Wert "unknown" oder "unavailable" auftaucht, soll die Zeile mit diesem Wert in Tabellenblatt 2 kopiert werden. Zeilen ohne diese Werte sollen nicht kopiert werden. Zusätzlich umfasst Tabellenblatt 1 ca. 2.500 Einträge - dies wäre der Bereich, der abgedeckt werden sollte.
Ich dank dir schon jetzt so sehr. Vielen Dank und einen schönen Abend euch noch.
22.04.2019, 20:13 (Dieser Beitrag wurde zuletzt bearbeitet: 22.04.2019, 20:14 von Hilfesuchender1512.)
Das habe ich schon versucht - wichtig wäre hier vielleicht noch die Information, dass ein einfach Filtern zwar möglich wäre, aber ein automatisierter Vorgang einfacher. Parallel zu diesem Befehl muss, sobald ein Wert in Spalte A des Tabellenblattes 2 gleich einem Wert in Spalte A Tabellenblatt 3 ist rot hinterlegt werden.
Dies wird durch eine bedingte Formatierung möglich sein, richtig?
eine einfache Methode wäre, die Daten entsprechend zu filtern. Dann kannst Du sie einfach kopieren und in der anderen Tabelle einfügen. Dafür könnte man auch ein kleines Makro schrieben, im Prinzip so:
Code:
Sub Makro2() 'Spalte I als letzte Spalte festlegen Const iCol As Integer = 9 'Variable fuer letzte belegte Zeile Dim iRow As Integer 'Letzte belegte Zeile anhand Spalte I festlegen iRow = Cells(Rows.Count, 9).End(xlUp).Row 'Mit dem Bereich A1 bis I.. letzte belegte Zeile With Range(Cells(1, 1), Cells(iRow, iCol)) 'Autofilter setzen (ggf. code erweitern und pruefen, ob schon gesetzt) .AutoFilter 'Nach SPalte I filtern .AutoFilter Field:=9, Criteria1:= _ "=*unavailable*", Operator:=xlOr, Criteria2:="=*unknown*" 'gefilterte Daten nach Tabelle 2 Zelle A1 kopieren .Copy Sheets("Tabelle2").Range("A1") 'Autofilter aufheben .AutoFilter 'Ende Mit dem Bereich A1 bis I.. letzte belegte Zeile End With End Sub
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Hallöchen, Habe gerade anhand Günters Tabellenausschnitt gesehen, dass Deine Daten bis Spalte J gehen. Dann musst Du in meinem Code zum Kopieren Die Spalte mit 10 definieren. Der Vorschlag von Jörg mit PowerQuery würde natürlich auch mein Makro ganz gut ersetzen, damit wird ja auch eine Kopie der Daten angelegt. :19:
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
