Prozent rechnen mit VBA

Forumthread: Prozent rechnen mit VBA

jens-claus

Hallo Excelfreunde,
ich habe eine Tabelle welche ich fortlaufend in Spalte C ergänze und dann die Endsumme unterhalb dieser Eingaben in Spalte C bilde.
Die Position dieser Endsumme ist daher bei jeder Dateneingabe weiter unten.
Diese Endsumme sind 100 %. Jetzt möchte ich für jede Eingabe ab C4 bis zur Position vor der Endsumme
die %-ualen Anteile in Spalte D rechnen.
Wer kann mir mit einem Makro helfen?
Besten Dank im voraus
Jens

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Prozent rechnen mit VBA

Rudi
AW: Prozent rechnen mit VBA

jens-claus

AW: Prozent rechnen mit VBA

25.11.2011 11:55:29

Rudi

Hallo,
so?

Sub xxx()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 3).End(xlUp).Row
With Range(Cells(2, 4), Cells(lngLast - 1, 4))
.FormulaR1C1 = _
"=RC[-1]/R" & lngLast & "C[-1]"
.NumberFormat = "0.00%"
End With
End Sub

Gruß
Rudi

AW: Prozent rechnen mit VBA

25.11.2011 12:15:39

jens-claus

Hallo Rudi,
klappt super.
Herzlichen Dank und schönen Tag
wünscht Jens

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die prozentualen Anteile in Excel zu berechnen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Füge den folgenden Code in das Modul ein:

Sub ProzentRechnen()
   Dim lngLast As Long
   lngLast = Cells(Rows.Count, 3).End(xlUp).Row
   With Range(Cells(4, 4), Cells(lngLast - 1, 4))
       .FormulaR1C1 = "=RC[-1]/R" & lngLast & "C[-1]"
       .NumberFormat = "0.00%"
   End With
End Sub

Schließe den VBA-Editor und kehre zu deiner Excel-Tabelle zurück.
Drücke ALT + F8, wähle ProzentRechnen aus und klicke auf Ausführen.

Jetzt werden die prozentualen Anteile für die Werte in Spalte C in Spalte D berechnet.

Häufige Fehler und Lösungen

Fehler: "Typenübereinstimmung"
- Lösung: Überprüfe, ob alle Zellen in Spalte C numerische Werte enthalten. Leere oder nicht-numerische Zellen können diesen Fehler verursachen.
Fehler: "Formel wird nicht berechnet"
- Lösung: Stelle sicher, dass die Zellen in Spalte D als Prozentformatiert sind. Du kannst dies manuell tun oder den .NumberFormat im VBA-Code anpassen.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Excel-Formel direkt in die Zellen eingeben:

Gehe zu Zelle D4 (oder der entsprechenden Zelle in Spalte D).
Gib die folgende Formel ein:
```
=C4/$C$<letzteZeile>
```
Ersetze <letzteZeile> durch die Zeilennummer der letzten Zelle in Spalte C, die deine Endsumme enthält.
Ziehe die Formel nach unten, um die Prozentsätze für die anderen Werte zu berechnen.

Praktische Beispiele

Angenommen, du hast folgende Werte in Spalte C:

C	D
50
30
20
100

Nach dem Ausführen des VBA-Skripts solltest du in Spalte D folgendes sehen:

C	D
50	50%
30	30%
20	20%
100	100%

Die Werte in Spalte D zeigen jetzt die prozentualen Anteile der Werte in Spalte C an.

Tipps für Profis

Nutze die Format-Funktion in VBA, um das Format der Zellen weiter anzupassen, falls nötig.
Experimentiere mit bedingter Formatierung, um die Zellen in Spalte D visuell hervorzuheben, wenn sie einen bestimmten Prozentsatz überschreiten.
Wenn du regelmäßig mit Prozentsätzen arbeitest, erwäge, eine benutzerdefinierte Funktion in VBA zu erstellen, die dir die Berechnung vereinfacht.

FAQ: Häufige Fragen

1. Wie kann ich die prozentualen Anteile ohne VBA berechnen?
Du kannst die Prozentsätze mit einer einfachen Formel in Excel berechnen, indem du den Wert durch die Gesamtsumme teilst und das Ergebnis mit 100 multiplizierst.

2. Was mache ich, wenn sich die Anzahl der Werte in Spalte C ändert?
Falls du das VBA-Makro verwendest, wird es automatisch die letzte Zeile finden und die Berechnung entsprechend anpassen. Bei der manuellen Formel musst du die Formel möglicherweise anpassen oder erweitern.

Beliebteste Forumthreads (12 Monate)