title image


Smiley Re: Formel für folgende Aufgabe gesucht (Excel 2003)
Hallo Heinz,



mit einem Makro gehts so:



' Preise aus Preislisten suchen



Sub Preissuche()

'Dim Gewicht1 As Integer

Sheets("Tabelle2").Activate

Land = Range("B1")

Kunde = Range("B2")

Gewicht = Range("C3")

'Suche Kunde in Spalte 4

zeile = Application.WorksheetFunction.Match(Kunde, Range("D1:D100"), 0)

Zeile1 = zeile + 3

' Suche Land in Spalte 4

If Not Cells(Zeile1, 4) = Land Then

Do While Cells(Zeile1, 4).Value Land

Zeile1 = Zeile1 + 1

Loop

End If

'Suche Gewicht

Spalte = 4

Gewicht1 = Gewicht

Select Case Gewicht1

Case Is <= 1

Spalte = Spalte + 1

Case Is <= 2

Spalte = Spalte + 2

Case Is <= 5

Spalte = Spalte + 3

Case Is <= 10

Spalte = Spalte + 4

Case Is <= 50

Spalte = Spalte + 5

Case Is > 50

Spalte = Spalte + 6

End Select

Range("B4") = Cells(Zeile1, Spalte).Value

Range("B4").NumberFormat = "€ #,##0.00_)"

End Sub



Ich kann Dir die Musterdatei bei bedarf auch mailen.



Viele Grüße

Herby



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: