Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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!!

299 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
4
3
5
2
5
3
4
2
8
8
4
5
3
7
3
4
3
2
12
3
1
5