Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA Code Subtraktion

Mitglied: ITSITS

ITSITS (Level 1) - Jetzt verbinden

25.10.2013, aktualisiert 28.10.2013, 1841 Aufrufe, 4 Kommentare

Hallo,

hier ist ein Codeschnipsel, der zur Berechnung einer Summe dient. Wie kann man dafür sorgen, dass eine Subtraktion statt findet?

m_whOutputSheet.Range(IndexOutputColumnAS & lWriteIndex).Formula = "=SUM(" & IndexOutputColumnA1 & lWriteIndex _
& "," & IndexOutputColumnA2 & lWriteIndex _
& "," & IndexOutputColumnA3 & lWriteIndex _
& "," & IndexOutputColumnA4 & lWriteIndex _
& "," & IndexOutputColumnA6 & lWriteIndex _
& "," & IndexOutputColumnA7 & lWriteIndex _
& "," & IndexOutputColumnA8 & lWriteIndex _
& "," & IndexOutputColumnA9 & lWriteIndex _
& ")"
m_whOutputSheet.Range(IndexOutputColumnAS & lWriteIndex).NumberFormat = AllowanceSumFormat

Vielen Dank schon mal im Voraus!

Mit freundlichen Gruß
ITSITS
Mitglied: colinardo
25.10.2013 um 17:41 Uhr
Hallo ITSITS,
von was willst du denn abziehen ?? Dazu brauchst du ja einen Referenz- bzw. Startwert dann setzt du alle anderen Felder die davon abgezogen werden hintereinander zusammen mit einem "-".
Beispiel:
m_whOutputSheet.Range(IndexOutputColumnAS & lWriteIndex).Formula = "=" & ReferenzwertZelle & " - " & IndexOutputColumnA1 & " - " & IndexOutputColumnA2
Grüße Uwe
Bitte warten ..
Mitglied: ITSITS
28.10.2013 um 09:14 Uhr
Hallo Uwe,

vielen Dank für dein Feedback, die Werte werden in indexOutputColumnA1, A2 usw gespeichert. Es sind Zwischensummen, die jeweils von A1 subtrahiert werden sollten.

Gruß
ITSITS
Bitte warten ..
Mitglied: colinardo
28.10.2013, aktualisiert um 09:48 Uhr
Wo liegt das Problem ?
m_whOutputSheet.Range(IndexOutputColumnAS & lWriteIndex).Formula = "=A1" & " - " & IndexOutputColumnA1 & lWriteIndex &  " - "  & IndexOutputColumnA2 & lWriteIndex & " - " & IndexOutputColumnA3 & lWriteIndex
usw.

Grüße Uwe
Bitte warten ..
Mitglied: ITSITS
28.10.2013 um 12:05 Uhr
Hallo Uwe,

das Problem liegt daran, dass es Fehler bei der Ausgabe gibt. Es soll in einer Spalte das Ergebnis dieser Rechnung ausgegeben werden.
Leider habe ich anscheint irgendwo einen Fehler im Code gemacht ....
Im genannt Code Schnipsel wird ja eine Variable AllowanceSumFormat genutzt. Ich denke, dass es da noch ein Problem gibt, welches ich erst lösen muss, damit ich hier weiter komme ...

Gruß
ITSITS
Bitte warten ..
Ähnliche Inhalte
Datenbanken
Syntaxfehler VBA
gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich bräuchte Hilfe beim folgenden VBA Code(für Button in Access): Könnte mir bitte jemand erklären was ich ...

Microsoft Office
VBA Automatisierung
gelöst Frage von clockingMicrosoft Office3 Kommentare

Hallo Community, freut mich euch beigetreten zu sein. Ich werde auf folgendes Problem in allen großen Sprachen im WWW ...

VB for Applications
VBA Programmierung
Frage von specialuserVB for Applications4 Kommentare

Hallo zusammen, der Wert aus Zelle L30 und N30 soll ins wb2 kopiert werden funktionier so weit auch ganz ...

VB for Applications
VBA . PasteSpecial
gelöst Frage von ActaresVB for Applications8 Kommentare

Hallo VBA Sezialisten, In sache VBA bin ich noch ein Anfänger und ich versuche aus eine Excel Sheet Inhalte ...

Neue Wissensbeiträge
Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 2 TagenDatenschutz1 Kommentar

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 2 TagenSicherheit1 Kommentar

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 3 TagenInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 4 TagenWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Heiß diskutierte Inhalte
Hyper-V
Hyper-V Manager startet, jedoch keine VM
Frage von NaleorHyper-V14 Kommentare

Hallo zusammen, auf meinem Windows 10 (Build 1703) Notebook von der Arbeit scheint Hyper-V plötzliche nicht mehr zu funktionieren. ...

Windows Server
Sonntagsfrage: Welchen Sinn seht Ihr noch im Server 2019 Essentials
Frage von ashnodWindows Server13 Kommentare

Guten Morgen, ich habe gestern den Windows Server 2019 Essentials als Trial in einer VM installiert um mir das ...

DNS
50 EUR für Telekom-, Unitymedia- und Vodafone-Kunden
Frage von Zorro1199DNS13 Kommentare

Hallo zusammen, wie evaluieren gerade das korrekte Einhalten von DNS-TTLs durch verschiedene Provider. Aktuell suchen wir noch Kunden der ...

Windows 10
Windows 10 PC kein Ping möglich von anderen PCs
Frage von babylon05Windows 108 Kommentare

Hallo, ich habe 2 neue PC's in einer Windows 2008 Domän. Diese haben Windows 10. Die anderen PC's sind ...