Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen kopieren wenn wert gößer als...

zeilen kopieren wenn wert gößer als...
10.09.2004 16:25:47
Lars
hi, kaum ist das letzte problem gelöst (danke schmitti!), tut sich schon wieder ein neues auf...
ich suche nach einem makro, dass alle zeilen (spalte 1-8) in einem tabellenblatt (bestand) kopiert, in denen das ergebnis der division des wertes in spalte 8 durch den wert in spalte 1 größer ist als 49,99. diese kopierten zeilen sollen dann in ein neues tabellenblatt (hochwerte) eingefügt werden, am besten ohne leerzeilen.
platz für eine hilfszeile (für die formel) habe ich leider nicht...
hier mal ein bespiel:
spalte1______spalte8
2___________100
1___________80
in beiden fällen ist (spalte8 durch spalte1)größer 49,99 - beide zeilen müssten also kopiert werden...
wäre toll, wenn mir da wer helfen könnte, aus eurem 1a forum!
der lars

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeilen kopieren wenn wert gößer als...
PeterW
Hallo Lars,
dieses Makro sollte die Aufgabe erledigen:

Sub Hochwerte()
Dim lgQuell As Long, lgZiel As Long
For lgQuell = 1 To Range("A65536").End(xlUp).Row
If Cells(lgQuell, 8) / Cells(lgQuell, 1) > 49.99 Then
lgZiel = lgZiel + 1
Rows(lgQuell).Copy Sheets("Hochwerte").Rows(lgZiel)
End If
Next
End Sub

Gruß
Peter
danke!
Lars
hallo peter, vielen dank für den code. läuft super!
vg lars
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige