Microsoft Excel

Herbers Excel/VBA-Archiv

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

Betrifft: zeilen kopieren wenn wert gößer als... von: Lars
Geschrieben am: 10.09.2004 16:25:47

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

  


Betrifft: AW: zeilen kopieren wenn wert gößer als... von: PeterW
Geschrieben am: 10.09.2004 16:38:32

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


  


Betrifft: danke! von: Lars
Geschrieben am: 10.09.2004 18:50:53

hallo peter, vielen dank für den code. läuft super!
vg lars


 

Beiträge aus den Excel-Beispielen zum Thema "zeilen kopieren wenn wert gößer als..."