Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei Makro wenn leere Zellen

Forumthread: Fehler bei Makro wenn leere Zellen

Fehler bei Makro wenn leere Zellen
26.06.2004 15:47:09
Daniel
Hallo Zusammen,
ich habe folgendes Problem:
In der beigefügten Datei möchte ich eine Berechnung durchführen. Ab und an kommt es vor, dass Zellen nicht gefüllt sind. Dann kommt es zu Problemen mit dem Makro das ich bisher nutze, da die Ergebnisse dann verschoben sind.
Für eine genauere Beschreibung und damit man sich überhaupt vorstellen kann um was es geht, hier die Datei:
https://www.herber.de/bbs/user/7754.xls
Für Hilfe bin ich sehr dankbar!
Grüße
Daniel
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Makro wenn leere Zellen
Ulf
Bitte Datei zippen!
Ulf
AW: Fehler bei Makro wenn leere Zellen
26.06.2004 17:46:11
Daniel
Warum, ich habe außerdem kein WinZip installiert. Nur rar und das geht hier nicht.
Daniel
AW: Fehler bei Makro wenn leere Zellen
Ulf
Weil mir z.B. die Datei zum download zu groß ist.
Ulf
Anzeige
einfachere Schlaufe
27.06.2004 00:32:23
Hans
Hallo Daniel
Versuch es mal mit diesem Schluss:
lngE = IIf(IsEmpty(.Range("B65536")), .Range("B65536").End(xlUp).Row, 65536)

On Error Resume Next
For c = 2 To maxc
For lngRow = 2 To lngE
wsROCs.Cells(lngRow + 1, c) = (wsData.Cells(lngRow + 1, c) / wsData.Cells(lngRow, c)) - 1
Next lngRow
Next c
End With
End Sub
Mit "On Error Resume Next" musst du nicht auf leere Zellen testen, da diese einen Fehler auslösen und einfach übersprungen werden. Durch Verwendung von "For ... Next" anstelle von "For Each ... Next" bist du auf beiden Blättern immer auf der gleichen Zeile.
Gruss
Hans T.
Anzeige
Ok, noch zwei kleine Dinge
27.06.2004 09:57:49
Daniel
Hallo Hans!
Ok, das sieht schon deutlich besser aus.
Zwei Dinge müssten jedoch noch geändert werden:
- Wenn ein Tag ohne Daten vorkommt, dann soll an die Veränderung zum Vortag Null betragen und zum nächsten Tag auch Null.
- Es wird eine Zeile am Ende zu viel berechnet. Es darf nur bis zur letzten gefüllten Spalte der Daten gehen.
Hier nochmal die Datei mit Markierung.
https://www.herber.de/bbs/user/7766.xls
Besten Dank für die Hilfe und viele Grüße,
Daniel
Anzeige
AW: Ok, noch zwei kleine Dinge
27.06.2004 11:53:17
Hans
Hallo Daniel
Mir war nicht klar, was du eigentlich berechnen willst. Jetzt verstehe ich die Aufgabe besser.
Wenn du die Veränderung zum Vortag berechnen und eintragen willst, dann musst du auch den aktuellen Tag mit dem Vortag vergleichen und das Resultat am aktuellen Tag eintragen.
On Error Resume Next
For c = 2 To maxc
For lngRow = 2 To lngE
If IsEmpty(wsData.Cells(lngRow, c)) Or IsEmpty(wsData.Cells(lngRow - 1, c)) Then
wsROCs.Cells(lngRow, c) = Empty
Else
wsROCs.Cells(lngRow, c) = wsData.Cells(lngRow, c) / wsData.Cells(lngRow - 1, c) - 1
End If
Next lngRow
Next c
End With
End Sub
Mit "Empty" bleiben Zellen leer. Das ist vermutlich übersichtlicher als 0-Werte einzufüllen.
Gruss
Hans T.
Anzeige
Ok, das ist gut so
27.06.2004 12:21:09
Daniel
Hallo Hans,
danke für die Hilfe. So ist es gut.
Schönen Sonntag!
Daniel
;

Forumthreads zu verwandten Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Formatierung Zelle auf "1 M" statt "1.000"
Chris

Hallo Leute,
Ich habe eine Frage bezüglich einer Zellformatierung.
Ich habe einet Tabelle in der Mengen an Großen Zahlen stehen.
Diese Tabelle würde ich gerne ohne die Werte durch 1000 zu teilen so Formatieren (benutzerdefiniert, das anstatt "1.234.567" nur noch "1.235 M" (gerundet)...
14.11.2008 16:50:09
Thread-ID: 1024652
5 Beiträge
wenn/dann/sonst???
m-andi

Hallo zusammen,
in VBA bin ich noch ein Depp,
ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
15.11.2008 13:30:42
Thread-ID: 1024753
4 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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