title image


Smiley Hier mal ein Makro zum Testen
Hallo Joachim,



das Beispiel von vorhin soll dir zeigen, wie man ohne das ganze Select etc.

auskommt, und so der Code schneller wird.



Hab mal ein kleines Makro geschrieben, das, hoffe ich zumindest, dein

Problem lösen könnte.



Die Select Case Anweisung filtern die Werte der 1. und 2. Spalte.

Bei der 2. Select Case Anweisung habe ich mal von 24 to 32 genommen.

Das mußt du dann noch zu 1 to 99 ändern.

Falls es das nicht ist, melde dich noch mal

Ach ja und Kopiert wird bei mir von 1. Tabellenblatt ins 3.

Dies kannst du ändern wenn du am anfang bei

Set s1 = ActiveWorkbook.Sheets(1)

die 1 durch "EUROPLUS" bzw. "EUROPLUS (2)" ersetzt.











      

Dim i1 As Long, i2 As Long

Dim lastRow As Long

Dim s1 As Worksheet

Dim s3 As Worksheet

Set s1 = ActiveWorkbook.Sheets(1)

Set s3 = ActiveWorkbook.Sheets(3)



i2 = 1

lastRow = s1.Cells(Rows.Count, 1).End(xlUp).Row



For i1 = 1 To lastRow

    Select Case s1.Cells(i1, 1).Value

        Case 4, 5, 35

            Select Case s1.Cells(i1, 2).Value

                Case 24 To 32

                    s3.Rows(i2).Value = s1.Rows(i1).Value

                    i2 = i2 + 1

        End Select

    End Select

Next i1

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: