Office: Schwieriges Such- und Anzahlproblem in Excel

huhu, sorry, hab bisher net viel mit excel gemacht :)

wie geht bedingte formatierung, weil meine VBA lösung

zelle aktivieren, prüfen ob leer, wenn nicht, formatieren
....


solange bis leere zelle in spalte A

dauert EWIGKEITEN bei 2000 zeilen

10 zeilen pro sekunde oder so

 

ebenso das rahmen ziehen, das dauert auch ca. 1 minute.

nur jedesmal wenn ich das dokuemnt aufmache und dann 5 min warten bis der alles abgearbeitet hat ist ja auch net grad die lösung

ich hab jetzt meine datei wie ich sie wollte aber die performance ist mehr als schlecht

 

Hallo!

Wenn ich dein Makro richtig interpretiere, dann soll Spalte A einen Rahmen links und Spalte H einen Rahmen rechts bekommen, wenn in Spalte A ein Wert vorhanden ist.
Markiere also Spalte A und wähle Menü Format > Bedingte Formatierung
Zellwert ist ---- ungleich ---- =""
Über den Button "Format..." legst du den linken Rahmen fest.
Das gleiche mit Spalte H und dem rechten Rahmen.

 

die performance ist immer noch schlecht:


habe es es so gemacht, dass er aus datei1 nicht die ganze spalte a kopiert, sondern immer zelle für zelle einzeln, solange dort nicht "leer" drin ist, das ganze dauert aber auch ganz schön lang :)

ich werd noch versuchen, gleich eine abfrage einzubauen, ob das in datei 2 auch vorkommt, ansonsten soll er es net kopieren.

weil ich hab probleme mit dem autofilter, der funktioniert zwar wunderbar, aber trotzdem hat meine tabelle dann 3000 zeilen ca. und da verlangsamt halt alles, da ist wohl der autofilter egal, der arbeitet auch die zellen ab, welche der autofilter ausgeblendet hat.

ich denke wenn ich in meiner datei3 wirklich nur die 100 datensätze drin hab, die in datei2 auch vorkommen, wird das mit anzahl berechnen und rahmen ziehen und so deutlich schneller gehen.

 

kann du mir sagen wieso dieser code zum laufzeitfehler führt:

Dim intRow As Integer
Dim intRow2 As Integer

intRow = 2
intRow2 = intRow + 8
Workbooks.Open Filename:="D:\test.xls"
Workbooks("test.xls").Worksheets("Sheet1").Activate
Range(Cells(intRow, 1), Cells(intRow, 1)).Select


bei Range.... sagt er laufzeitfehler, ich versteh absolut net wieso

 

Hallo!

Wenn dein Bereich eh nur eine Zelle umfasst, dann reicht auch "Cells(intRow, 1)" statt "Range(Cells(intRow, 1),Cells(intRow, 1))".
Teste mal

ActiveSheet.Cells(intRow, 1).Select