Festmeter berechnen mit VBA

Forumthread: Festmeter berechnen mit VBA

06.05.2005 21:25:13

Korl

Hallo,
ich versuche mich daran, über VBA eine Berechnung durchzuführen.
Über Excel ist mir auch schon alles gelungen, möchte mich aber so langsam an VBA heran tasten.
Mein Code den ich mir hierfür gebastelt habe funktioniert auch schon, allerdings nicht ganz nach meinen Vorstellungen, denn er berechnet nicht selbst, sondern fügt nur die Formel in die Zelle ein.
In meinen Beispiel geht es um die Erfassung von Baumstämmen.
In Spalte "A" werden die Längen in (m), Spalte "B" wird der Durchmesser in(cm) eingetragen. In Spalte "C" sollen die Festmeter errechnet werden.
Dies ist mein Code:


Sub Festmeter()
Dim r%
Columns("C:C").NumberFormat = "#,##0.000"
For r = 2 To Range("B65536").End(xlUp).Row
Cells(r, 3) = "=POWER(RC[-1]/200,2)*PI()*RC[-2]"
Next r
'    ActiveCell.FormulaR1C1 = "=POWER(RC[-1]/200,2)*PI()*RC[-2]"
End Sub

Könnte mir bitte jemand auf die Sprüngen helfen?
Gruß Korl

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Festmeter berechnen mit VBA

06.05.2005 22:04:15

Jörg
AW: Festmeter berechnen mit VBA

06.05.2005 22:21:11

Korl

AW: Festmeter berechnen mit VBA

06.05.2005 22:04:15

Jörg

Hallo Korl,
hier ein Versuch von mir Anfänger, ist bestimmt verbesserungswürdig, aber funktioniert.


Sub FestmeterJGr()
Dim r%
Dim PI As Double
PI = 3.14159265358979
Columns("C:C").NumberFormat = "#,##0.000"
For r = 2 To Range("B65536").End(xlUp).Row
Cells(r, 3) = (Cells(r, 2) / 200) ^ 2 * PI * Cells(r, 1)
Next r
'ActiveCell.FormulaR1C1 = "=POWER(RC[-1]/200,2)*PI()*RC[-2]"
End Sub

Gruß Jörg

AW: Festmeter berechnen mit VBA

06.05.2005 22:21:11

Korl

Hallo und guten Abend Jörg Gradert,
Danke für Deine Unterstützung, es klappt wunderbar.
Da weis ich ja nun endlich wie ich in Zukunft solcherlei Berechnungen angehen kann.
Besten Dank nochmal!
Gruß Korl

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Festmeter in Excel zu berechnen, kannst du VBA nutzen, um die Berechnung automatisiert durchzuführen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und erstelle eine neue Tabelle.
Erstelle eine Tabelle mit den Spalten:
- Spalte A: Länge (in m)
- Spalte B: Durchmesser (in cm)
- Spalte C: Festmeter (errechnet)
Öffne den VBA-Editor:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke im Menü auf Einfügen > Modul.

Füge den folgenden Code ein:

Sub Festmeter()
   Dim r%
   Dim PI As Double
   PI = 3.14159265358979
   Columns("C:C").NumberFormat = "#,##0.000"
   For r = 2 To Range("B65536").End(xlUp).Row
       Cells(r, 3) = (Cells(r, 2) / 200) ^ 2 * PI * Cells(r, 1)
   Next r
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus:
- Drücke ALT + F8, wähle Festmeter aus der Liste und klicke auf Ausführen.

Jetzt solltest du die Festmeter in der Spalte C berechnet haben. Diese Methode nutzt die Formel für die Festmeter-Berechnung und die Konstante Pi in VBA.

Häufige Fehler und Lösungen

Fehler: "Typenkonflikt"
- Lösung: Stelle sicher, dass alle Werte in den Spalten A und B numerisch sind. Leere Zellen oder Text können zu diesem Fehler führen.
Fehler: "Zelle zeigt Fehler #DIV/0!"
- Lösung: Überprüfe, ob in der Tabelle Werte vorhanden sind. Wenn die Durchmesserwerte gleich null sind, führt dies zu einer Division durch null.
Fehler: "Makro funktioniert nicht"
- Lösung: Stelle sicher, dass Makros in den Excel-Einstellungen aktiviert sind. Gehe dazu auf Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.

Alternative Methoden

Wenn du keine VBA-Programmierung nutzen möchtest, kannst du auch die Excel-Formel direkt in die Zelle eingeben:

Wähle die Zelle C2 aus.
Gib die folgende Formel ein:
```
=(B2/200)^2*PI()*A2
```
Ziehe die Zelle nach unten, um die Formel auf die anderen Zeilen anzuwenden.

Diese Methode ist einfacher, benötigt jedoch manuelles Eingreifen für jede Zeile.

Praktische Beispiele

Hier ist ein Beispiel, wie die Tabelle aussehen könnte:

Länge (m)	Durchmesser (cm)	Festmeter (m³)
5	30	1.178
7	40	2.536
10	50	4.908

In Spalte C wird die Berechnung für Festmeter automatisch durchgeführt, sobald du das VBA-Makro oder die Excel-Formel anwendest.

Tipps für Profis

Nutze benannte Bereiche, um deine Daten besser zu organisieren und die Lesbarkeit deines VBA-Codes zu verbessern.
Überlege, die Berechnung in eine benutzerdefinierte Funktion (UDF) zu kapseln, wenn du dieselbe Berechnung häufig benötigst.
Achte auf die Formatierung der Zellen, um sicherzustellen, dass die Ergebnisse als Zahlen und nicht als Text formatiert sind.

FAQ: Häufige Fragen

1. Wie kann ich die Berechnung für mehrere Baumstämme gleichzeitig durchführen? Um mehrere Baumstämme gleichzeitig zu berechnen, stelle sicher, dass du die Daten in den Spalten A und B entsprechend ausfüllst und dann das Makro ausführst.

2. Was ist der Unterschied zwischen VBA und Excel-Formeln für die Festmeter-Berechnung? VBA automatisiert den Prozess und kann anpassbare Berechnungen durchführen, während Excel-Formeln direkt in den Zellen angewendet werden und weniger flexibel sind.

3. Kann ich die Ergebnisse in eine andere Tabelle exportieren? Ja, du kannst die Ergebnisse in eine andere Tabelle exportieren, indem du im VBA-Code die Zielzellen anpasst.

Beliebteste Forumthreads (12 Monate)