Spalten berechnen



Excel-Version: 97
  

Re: Spalten berechnen

von: Hajo
Geschrieben am: 13.04.2002 - 19:57:12


Hallo Christian

wenn die Werte in Spalte A stehen folgender Ansatz


Sub VK()
    Dim Letzte As Long
    Dim As Long
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    On Error Resume Next
    For I = 1 To Letzte
        Select Case Cells(I, 1)
            Case Is <= 1
                Cells(I, 2) = Cells(I, 1) * 3
            Case Is <= 5
                Cells(I, 2) = Cells(I, 1) * 2.5
'       usw.
        End Select
    Next I
End Sub

Gruß Hajo

  

Re: Spalten berechnen

von: KLaus-Dieter
Geschrieben am: 13.04.2002 - 20:08:35


Hallo Christian,

hier ein Makro für Deine Berechnungen:

Sub vk_preis()
' Berechnet Verkaufspreise aus Einkaufspreisen
' Unter Berücksichtigung der Höhe des EK-Preises
' Klaus-Dieter Oppermann

z = 2
Do While Cells(z, 1) <> ""
pr = Cells(z, 3)
Select Case pr
    Case Is > 1
        pr = pr * 1.5
        Cells(z, 4) = pr
    Case Is <= 1
        pr = pr * 2.5
        Cells(z, 4) = pr
    End Select
z = z + 1
Loop
End Sub

Wenn es noch weitere Abstufungen gibt, muß das noch angepaßt werden.

Gruß Klasu-Dieter

http://www.klaus-dieter-2000.de
(Excel und VBA speziell für Einsteiger)

nach unten

Betrifft: Spalten berechnen
von: Christian Schmitt
Geschrieben am: 13.04.2002 - 19:38:30

Hallo !
Ich habe folgendes Problem :
Ich habe eine Exel-Datei mit den Feldern : ArtNr, Bezeichnung, EK-Preis
Mein Problem ich muss jetzt die EK-Preise in VK-Preise umrechnen, in eine neue Spalte aber in verschiedenen Schritten so müssen Artikel bis 1,00 Euro z.B. mit 2,5 multipliziert werden Artikel bis 5,00 Euro z.B. mit 1,5 multipliziert werden.
Wie bewerkstellige ich dies am besten ?

Gruss und Danke

Christian

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Spalten berechnen"