Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Tech07 vom 28.03.2021, 15:53 Options

berechnen und ausgeben von Zahlen

Hallo,

ich habe ein Problem und weiß leider nicht mehr weiter, könnt Ihr mir helfen?:-(
Ich habe in 2 Spalten (A und B) in denen ab der Zelle 37 jeweils ca. 30.000 Zahlen zu stehen. Diese sind Dezimalzahlen und können sowohl ein positives als auch ein negatives Vorzeichen haben.
Ich möchte diese beiden Spalten mit einem Button-Klick berechnen. Zudem kommt, dass jede der beiden Spalten mit einer anderen Konstanten berechnet werden soll
( z.B. Spalte A mit "s" und Spalte B mit "k")
Anschließend sollen alle multiplizierten Werte aus der Spalte A in der Spalte C stehen und die Werte aus der Spalte B in Spalte D stehen.

Wer kann mir helfen??

Danke
Tech07

Antwort schreiben

Antwort 1 von rainberg vom 28.03.2021, 16:19 Options

Hallo Tech07,

damit sollte es funktionieren.

Option Explicit

Sub berechnen()
    Dim dblS As Double, dblK As Double
    Dim rngC As Range
    dblS = 10: dblK = 20' Werte anpassen
    For Each rngC In Range("A7:B3000")
        If rngC.Column = 1 Then
            rngC.Offset(0, 2).Value = rngC * dblS
        Else
            rngC.Offset(0, 2).Value = rngC * dblK
        End If
    Next
End Sub

Gruß
Rainer

Antwort 2 von Tech07 vom 28.03.2021, 16:49 Options

Hallo Rainer,

nach ein paar kleinen Änderungen hat alles super funktioniert.

vielen Dank
Gruß Tech07

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken