Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte faktorisieren

Forumthread: Werte faktorisieren

Werte faktorisieren
09.04.2009 09:32:28
Hansi
Hallo Leute,
ich habe eine Tabelle in der in verschiedenen Spalten Werte faktorisiert werden müssen (um 15% höher).
Diese Werte befinden sich in den Spalten D bis H.
Wie ihr in der Testmappe sehen könnt, befinden sich Überschriften darüber, so dass ich nur schwer Hilfszeilen bilden kann.
Da die Mappe bis zur Zeile 1529 geht, möchte ich mir das spätere Verrücken der Überschriften sparen.
hier liegt die testmappe: https://www.herber.de/bbs/user/61098.xls
Ich hoffe Ihr habt eine Idee.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte faktorisieren
09.04.2009 09:44:50
Ptonka
Hallo Hansi,
mit dem VBA-Script sollte es klappen:

Sub faktorisieren()
For i = 16 To 1529
For j = 4 To 8
wert = Cells(i, j).Value
If wert = "" Then GoTo weiter
Zahl = IsNumeric(wert)
Select Case Zahl
Case Is = True
Cells(i, j).Value = wert * 1.15
Case Is = False
Cells(i, j).Value = wert
End Select
Next j
weiter:
Next i
End Sub


Gruß,
Ptonka

Anzeige
AW: Werte faktorisieren
09.04.2009 10:20:00
Hansi
Hi,
das funktioniert schon sehr gut Ptonka.
Allerdings kann es vorkommen, dass im Bereich D bis H nur ein Zahlenwert vorhanden ist.
Deine Routine funktioniert wenn alle fünf Bereiche einen Zahlenwert haben.
Ich habe nur die fünf Möglichkeiten:
1. entweder D bis H (also alle)
2. oder E bis H (4)
3. oder F bis H (3)
4. oder G bis H (2)
5. oder nur H (1)
hast du dafür noch eine Idee?
Anzeige
AW: Werte faktorisieren
09.04.2009 15:13:46
Ptonka
Hallo Hansi.
mein Fehler.
Tausche einfach die Zeilen NextJ und weiter: aus, also:

Sub faktorisieren()
For i = 16 To 1529
For j = 4 To 8
wert = Cells(i, j).Value
If wert = "" Then GoTo weiter
Zahl = IsNumeric(wert)
Select Case Zahl
Case Is = True
Cells(i, j).Value = wert * 1.15
Case Is = False
Cells(i, j).Value = wert
End Select
weiter:
Next j
Next i
End Sub


Dann sollte es klappen.
Gruß,
Ptonka

Anzeige
AW: Werte faktorisieren
09.04.2009 09:49:18
Mike
Hey Hansi,
mal davon ausgehend, dass Du die bestehenden Werte nicht mehr benötigst,
- vom Blatt als Sicherheit eine Kopie ziehen -
... kopierst Du die Zelle h16 in einen leeren Bereich,
... schreibst 1.15 rein
... kopierst diese Zelle
... markierst die Zielbereiche D16:H19
... wählst BEARBEITEN - Inhalte einfügen - multiplizieren
und Deine Werte sind angepasst.
Gruss
Mike
Anzeige
;
Anzeige

Infobox / Tutorial

Werte faktorisieren in Excel


Schritt-für-Schritt-Anleitung

Um Werte in Excel um 15% zu faktorisieren, kannst du die folgende VBA-Routine verwenden. Diese Anleitung ist für Excel-Versionen geeignet, die VBA unterstützen.

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul ein: Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub faktorisieren()
        For i = 16 To 1529
            For j = 4 To 8
                wert = Cells(i, j).Value
                If wert = "" Then GoTo weiter
                Zahl = IsNumeric(wert)
                Select Case Zahl
                    Case Is = True
                        Cells(i, j).Value = wert * 1.15
                    Case Is = False
                        Cells(i, j).Value = wert
                End Select
    weiter:
            Next j
        Next i
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Drücke ALT + F8, wähle faktorisieren und klicke auf Ausführen.

Diese Schritte helfen dir, die Werte in den Spalten D bis H um 15% zu erhöhen.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nur, wenn alle Zellen in D bis H einen Wert enthalten.
    Lösung: Tausche die Zeilen Next j und weiter: im VBA-Skript, um sicherzustellen, dass das Makro die Werte auch bei unvollständigen Zellen korrekt behandelt.

  • Fehler: Es passiert nichts, wenn ich das Makro ausführe.
    Lösung: Stelle sicher, dass du die richtige Excel-Datei und die entsprechenden Zellen ausgewählt hast. Überprüfe auch, ob das Makro aktiviert ist.


Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch eine Excel-Formel nutzen:

  1. Schreibe in eine leere Zelle (z.B. Zelle J16) den Wert 1.15.
  2. Kopiere die Zelle J16.
  3. Markiere den Bereich D16:H19.
  4. Wähle in der Menüleiste Bearbeiten > Inhalte einfügen und wähle die Option Multiplizieren.

Diese Methode ist eine einfache Möglichkeit, Werte in Excel ohne VBA zu faktorisieren.


Praktische Beispiele

Angenommen, du hast folgende Werte in den Zellen D16 bis H16:

D16 E16 F16 G16 H16
100 200 300 400 500

Nach der Anwendung des Faktorisierungs-Makros oder der Alternativen Methoden erhältst du:

D16 E16 F16 G16 H16
115 230 345 460 575

Tipps für Profis

  • Backup: Erstelle immer eine Sicherungskopie deiner Excel-Datei, bevor du Makros ausführst.
  • Debugging: Nutze den Debugger im VBA-Editor, um Probleme im Code zu finden, falls das Makro nicht wie gewünscht funktioniert.
  • Modularität: Überlege, verschiedene Module für unterschiedliche Aufgaben zu erstellen, um den Code übersichtlich zu halten.

FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Werte verwenden?
Ja, du kannst den Multiplikator im Code leicht anpassen, um andere Prozentsätze zu faktorisieren.

2. Was passiert, wenn die Zellen Text enthalten?
Das Makro ignoriert Zellen, die keinen numerischen Wert enthalten, und lässt sie unverändert.

3. Muss ich das Makro jedes Mal neu eingeben?
Nein, du kannst das Makro in der Datei speichern, sodass es beim nächsten Öffnen verfügbar bleibt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige