Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1540to1544
1540to1544
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Spalte mit Bedingung

Forumthread: Letzte Spalte mit Bedingung

Letzte Spalte mit Bedingung
17.02.2017 10:23:12
Sergej
Guten Morgen,
wie kann ich bitte per VBA die letzte benutzte Splate in der Zeile 10 ermitteln?
Bedingung: Der Zellwert muss ein Zahl sein oder Schriftfarbe rot haben.
Gruß,
Sergej
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Spalte mit Bedingung
17.02.2017 10:31:03
ChrisL
Hi Sergej
Sub Makro1()
Dim letzteSpalte As Long, i As Long
With ActiveSheet
letzteSpalte = .Cells(10, Columns.Count).End(xlToLeft).Column
For i = letzteSpalte To 1 Step -1
If IsNumeric(.Cells(10, i)) Or .Cells(10, i).Font.Color = vbRed Then Exit For
Next i
End With
MsgBox i
End Sub

cu
Chris
Anzeige
AW: Letzte Spalte mit Bedingung
17.02.2017 10:40:15
Sergej
Hallo Chris,
prima - es funktioniert. Danke!
Und wie kann ich bitte in der Zeile 10 die erste Spalte ermitteln, die als Zellwert ein Zahl hat oder die Schriftfarbe rot ist?
Beste Grüße,
Sergej
AW: Letzte Spalte mit Bedingung
17.02.2017 10:44:00
ChrisL
gähn... ;)
For i = letzteSpalte To 1 Step -1
For i = 1 To letzteSpalte
cu
Chris
Anzeige
AW: Letzte Spalte mit Bedingung
17.02.2017 10:52:44
Sergej
Bekomme ich immer als Ergebnis die "1". Es müsste aber "24" sein :-)
Was mache ich falsch?
Sub Makro2()
Dim letzteSpalte As Long, i As Long
With ActiveSheet
letzteSpalte = .Cells(10, Columns.Count).End(xlToLeft).Column
For i = 1 To letzteSpalte
If IsNumeric(.Cells(10, i)) Or .Cells(10, i).Font.Color = vbRed Then Exit For
Next i
End With
MsgBox i
End Sub

Anzeige
AW: Letzte Spalte mit Bedingung
17.02.2017 11:01:38
ChrisL
Hi Sergej
Meine Kristallkugel flüstert mir, dass du eine leere Zelle hast...
Sub Makro2()
Dim letzteSpalte As Long, i As Long
With ActiveSheet
letzteSpalte = .Cells(10, Columns.Count).End(xlToLeft).Column
For i = 1 To letzteSpalte
If Not .Cells(10, i) = "" And _
(IsNumeric(.Cells(10, i)) Or .Cells(10, i).Font.Color = vbRed) Then Exit For
Next i
End With
MsgBox i
End Sub

cu
Chris
Anzeige
AW: Letzte Spalte mit Bedingung
17.02.2017 11:19:38
Sergej
Das stimmt :-) Danke!!
;

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Anzeige
Summewenn und weitere Bedingungen
Marika

Hallo,
ist es möglich die Funktion Summewenn mit weiteren Bedingungen zu verknüpfen?
Zum Beispiel das auch ein Datum mit berücksichtigt werden kann.
In der folgenden Datei ist ein Beispiel hinterlegt. Die obere Tabelle soll als Basistabelle dienen und in der unteren Tabelle sollen...
26.09.2008 10:23:00
Thread-ID: 1012531
5 Beiträge
Werte zählen mit Bedingung
Hugo

Hallo,
in Spalte K sollen die in Spalte H aufeinderfolgenden Werte unter Bedingung gezählt werden. Habe händisch eingetragen wie gezählt werden soll. Auch ein kommentar beschreibt wie ich mir denken könnte wie es zu definieren ist. Andere Ideen sind natürlich willkommen.
Danke und Grus...
02.10.2008 18:53:00
Thread-ID: 1013949
4 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Anzeige
Zählenwenn und Summewenn - 2 Bedingungen
Susi

Hallo liebe Excelfreunde,
in der beiliegenden Datei
https://www.herber.de/bbs/user/58105.xls
habe ich eine kleine Beispieltabelle eingefügt, in der in der Spalte F mit der Formel (=WENN(ZÄHLENWENN(B2:B8046;B2)größer*1;"";SUMMEWENN(B:B;B2;D:D))) jeweils die Summe der Spalte D gebild...
06.01.2009 10:13:45
Thread-ID: 1037162
3 Beiträge
Absolute Werte addieren mit VBA
Peter

Guten Abend
Mit der Formel
=SUMMENPRODUKT(ABS(BenannterBereich))
ermittle ich den absoluten Wert aller Zahlen im Bereich "BenannterBereich".
Leider lässt sich diese Formel in VBA mit WorksheetFunction. nicht verwenden.
Wer kennt einen alternativen Lösungsansatz?
Danke fü...
06.02.2009 21:30:35
Thread-ID: 1047925
6 Beiträge
Anzeige
Kriterien bei Summewenn mit 2 Bedingungen
Hendryk

Hallo,
hab eine SummeWenn-Formel mit 2 Kriterien wie folgt (als Array-Formel, finde nur das runde-Klammer-auf-nicht auf der Tastatur...) eingegeben:
=SUMME(WENN((Umsatz_Monat_actual!A1:A60000="400400");WENN(Umsatz_Monat_actual!F1:F60000="7127107-04"; Umsatz_Monat_actual!O1:O60000))...
11.03.2009 16:58:32
Thread-ID: 1059201
4 Beiträge
Summe wenn mit Bedingungen geht nicht
Andreas

Hallo,
ich habe folgendes Problem. Es existieren 2 Tabellenblätter. Auf einem der Tabellenblätter findet eine Art Auswertung statt. Das Haupttabellenblatt hat 12 benutzte Spalten, von denen ich nun Spalte B und F auf eine Übereinstimmung abprüfen will. Dazu habe ich auch ein Beispiel gefun...
25.03.2009 15:30:11
Thread-ID: 1063848
5 Beiträge
Summe wenn Bedingung erfüllt
Roger

Hallo zusammen
Ich möchte gerne in der Zelle E1 die Summe der Spalte P. Aber nur die Werte bei welche in der Spalte G in der gleichen Zeile ein "ja" steht. Die Werte in welchen in der Spalte G ein "nein" oder nichts steht, sollen nicht zusammengezählt werden. Ich könnte das mit einer zusätz...
27.04.2009 17:29:02
Thread-ID: 1071449
3 Beiträge
Summewenn mehrer Bedingungen versch. Blätter
Aquestor

Hallo zusammen,
ich habe folgendes Problem:
Ich möchte im Datenblatt Whiteboard in Zelle C11 überprüfen, ob in den Datenblättern Ma_1....Ma_18 Zelle C11 ein Wert steht. Steht in einer der 18 Zellen die überprüft werden ein Wert, so sollen Ma1!C11+Ma_2!C11+.....Ma_18!C11 summiert werden....
26.05.2009 11:23:28
Thread-ID: 1077310
9 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