Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA: Wenn Zwei Bedingungen erfüllt, dann...

Per VBA: Wenn Zwei Bedingungen erfüllt, dann...
19.04.2004 23:00:15
Rainer
Hi,
ich möchte, wenn eine Zahl im Bereich C53:AC53 eingeben wird und in B53 noch keine Zahl steht, eine MsgBox erscheint.
For Each c In Worksheets("Montag").Range("C53:AC53")
If c <> "" And Cells("B53") = "" Then
MsgBox "Es wurde noch kein Preis für " & Cells("A53") & " eingegeben."
End If
Dieser Code bringt aber die Fehlermeldung
Laufzeitfehler 13: Typen unverträglich.
Was mach ich falsch?
Gruß Rainer

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA: Wenn Zwei Bedingungen erfüllt, dann...
19.04.2004 23:19:37
K.Rola
Hallo,
Option Explicit

Sub leer()
Dim c As Range
If Worksheets("Montag").[B53] <> "" Then
For Each c In Worksheets("Montag").Range("C53:AC53")
If c = "" Then
MsgBox "Es wurde noch kein Preis in " & c.Address(0, 0) & " eingegeben."
Exit For
End If
Next
End If
End Sub

Gruß K.Rola
Beantwortet die Frage nicht
19.04.2004 23:25:54
Jörg Gradert
Hallo K.Rola,
die Frage war "Was mach ich falsch".
Gruss Jörg
Hallo Rainer,
Cells(Rowindex, Columnindex)
also statt Cells("A53") Cells(53,1) statt Cells("B53") Cells(53,2)
Gruss Jörg
AW: Beantwortet die Frage nicht
19.04.2004 23:31:56
K.Rola
Hallo,
das meinst du jetzt aber nicht ganz ernst, oder?
Wenn doch, dann überleg, was da noch so falsch ist, da ist es
einfacher, eine Alternative anzubieten.
Gruß K.Rola
Anzeige
AW: Beantwortet die Frage nicht
19.04.2004 23:36:58
Beni
Hallo Rainer,
füge diesen Code in das Tabellenmodul ein.
Gruss Beni

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("C53:AC53"), Target) Is Nothing Then
If Cells(53, 2) = "" Then
MsgBox "Es wurde noch kein Preis für " & Cells(53, 1) & " eingegeben."
End If
End If
End Sub

AW: Ich würde es aber so machen...
19.04.2004 23:43:11
FP
Hallo Beni,
... denn Rainer wird doch sicher nicht nur in Zeile 53 Artikeldaten eingeben wollen, oder ???
Ich glaube sein Aufbau sieht so aus:
A - Artikelbezeichnung
B - Preis
C bis AC diverse Artikeldaten

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Column > 2 And .Column < 30 Then
If Cells(.Row, 2) = "" Then
MsgBox "Es wurde noch kein Preis für " & Cells(.Row, 1) & " eingegeben!"
Cells(.Row, 2).Select
End If
End If
End With
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
War als Hinweis für den Lernenden gedacht
19.04.2004 23:51:51
Jörg Gradert
Hallo K.Rola,
ich habe lediglich versucht mich in die Lage des Lernenden zu versetzen, der auch gern wissen will, warum sein Code einen Fehler auswirft.
Deine Alternative ist sicherlich gut, mir schien es nur zu schwer für Level VBA nein, zu erkennen, was die Ursache für die genannte Fehlermeldung war, das wollte ich herausstellen. War nicht böse gemeint, ich schätze deine Lösungen und lerne selbst daraus.
Gruss Jörg

AW: War als Hinweis für den Lernenden gedacht
20.04.2004 00:22:27
K.Rola
Hallo,
ja ok, so gesehen hast du natürlich Recht, nur, wie weit soll man da
gehen? Soll man übersehen, dass keine Variablen deklariert sind, oder
sind sie ja vielleicht deklariert, nur nicht mitgepostet? Oder wie
im konkreten Fall, soll man übersehen, dass er alle Zellen abfragt,
obwohl er schon bei der ersten leeren Zelle aussteigen müsste?
Gruß K.Rola
Anzeige
Danke für neue Lösung m. T.
20.04.2004 09:49:13
Rainer
Hallo K.Rola,
habe Deinen Code probiert. Haut hin, danke. Habe nur [B53] <> "" ändern müssen in [B53] = ""
Danke
Gruß Rainer
Danke an alle, m. T.
20.04.2004 09:55:31
Rainer
Hallo,
danke für die rasche Hilfe. Habe alle Lösungen probiert und an meine Bedürfnisse angepasst. Mit jeder Lösung komme ich zum Ziel. Habe viel dazu gelernt. Dafür möchte ich mich bedanken.
Gruß Rainer

24 Forumthreads zu ähnlichen Themen

Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Anzeige
Sumif mit zwei Bedingungen
jeron

Hallo liebe Excelfreunde,
ich habe einen Code für einen Export von Zahlen in eine andere Tabelle geschrieben und
brauche bitte Hilfe bei der Formulierung einer Variable.
Die Variable lngCnt gibt an wie oft eine Schleife ablaufen soll.
Momentan ist ihr noch ein zellwert zugeordn...
24.02.2010 16:32:55
Thread-ID: 1141148
8 Beiträge
VBA Formel If mit 2 Bedingungen
Sascha

Hallo zusammen. Was stimmt an meiner Formel nicht?
Ich möchte WENN Spalte D4:D1000 verändert wird, UND irgendwann mal das Blattregister "Tabelle2" aktiviert (angeklickt) wird, DANN soll es das Makro Test() ausführen.
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range) If...
14.09.2011 20:48:34
Thread-ID: 1229902
4 Beiträge
Anzeige
VBA: Summe mit 2 Bedingungen, Summenprodukt
Manfred

Hallo Excelfreunde,
ich komme trotz der Recherche nicht so richtig weiter und benötige wieder mal Hilfe.
Ich möchte in einer Zelle per VBA das Ergebnis einer Spalte einfügen. Es sollen aber 2 Bedingungen für die Aufsummierung erfüllt sein.
Ich ermittle zuerst die Anzahl der Datensät...
19.03.2013 10:34:49
Thread-ID: 1304705
3 Beiträge
Max if mit zwei Bedingungen
Sebastian

Hallo,
Ich würde gerne aus einem ListObject den Maximalen Wert bestimmen für den zwei in Nachbarranges Kriterien zutreffen. Also entsprechend einer SummeWenn() Funktion nur halt eben mit zwei Kriterien.
Ich stelle mir die Funktion so vor:
Maxif2 (Range1, Kriterium1, [Range2, Kriteri...
30.07.2013 15:28:34
Thread-ID: 1324893
4 Beiträge
VBA Sverweis mit zwei Bedingungen
Dip

Guten Tag Allerseits,
Gerne würde ich folgende Problemstellung in das Forum einbringen in der Hoffnung jemand kennt eine Lösung dazu.
Im folgenden Excel File
https://www.herber.de/bbs/user/90614.xlsx
befinden sich im Blatt "FC" Projektnummern und rechts davon die entsprechende...
10.05.2014 13:21:42
Thread-ID: 1360889
3 Beiträge
vba countifs mit 2 Bedingungen
Bjoern

Hallo zusammen,
ich habe eine Frage zur countifs-Funktion in vba. Ich habe in einer Excel-Tabelle zwei gefüllte Spalten, die mit countifs ausgewertet werden sollen.
Die Struktur der Tabelle ist folgende:
Spalte A Spalte B
....0..........LS.....
....0.............
09.03.2015 09:53:22
Thread-ID: 1413680
7 Beiträge
VBA Anfänger Schleife mit 2 Bedingungen
Celina

Hey, ich erkläre euch kurz mein Vorhaben.
Ich habe eine Excel Mappe mit 2 Tabellen.
Tabelle 1 :
Enthält 3 Spalten: (Datum,Betrag,Kategorie)
Durch eine Schaltfläche kann man Eingaben machen.
Durch eine zweite Schaltfläche habe ich eine Userform in der man eine Datumszeitspann...
25.08.2015 17:24:04
Thread-ID: 1444401
18 Beiträge

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
5
3
7
3
8
2
3
2
6
17
15
2
3
4
2
25
2
13
4
2
1
9
8
27