Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if Range("x - y") > 0 then

if Range("x - y") > 0 then
28.02.2005 13:06:45
Steve2
Hi,
Ich will überprüfen ob die Zellen von "D18 bis Ende" grösser Null sind.
Weiss jemand wie man das macht?
CH - Gruss
Steve

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

Betreff
Datum
Anwender
Anzeige
AW: if Range("x - y") > 0 then
WernerB.
Hallo Steve,
zwei Verständnisfragen:
1. Was heißt "bis Ende" (D18 - bis D65536 oder D18-IV18 oder ... ?)?
2. Wie soll das Ergebnis der Überprüfung aussehen?
Gruß
WernerB.
AW: if Range("x - y") > 0 then
Steve2
Hi Werner
Eine kleine Übersicht:
Die Zeilen 18 - 52 haben Werte die von der Spalte D an beginnen und können bis zur Spalte Z oder sogar bis ZZ und mehr gehen. Deshalb möchte ich eigenlich nur überprüfen ob minimum eine Zelle von "z.B der Reihe 18" grösser Null ist. Dies reicht mir schon um der CheckBox für die Reihe 18 den Zustand "Enable = True" zu setzen. Anders wäre es wen keine Zelle der Zeile 18 grösser wäre (Enable = False).
Hilf dir das weiter? ;o) Sonst nur fragen!
Nun meine Frage: Geht das?
PS: Die CheckBoxen sind auf einer UseForm
Anzeige
Geht nicht hmm?
28.02.2005 14:12:38
Steve2
Geht wohlt nicht... bin selber nicht darauf gestossen wies funktionieren könnte.
Ich schau mal im Archiv ob ich da was finden kann...
AW: Geht nicht hmm?
WernerB.
Hallo Steve,
in Sachen UserForm bin ich nicht so fit.
Aber das nachstehende Makro kannst Du sicher für Deine Zwecke entsprechend umbauen, indem Du die MsgBoxes durch entsprechendes Hakensetzen bzw. Hakenentfernen in Deinen CheckBoxes ersetzt.

Sub Steve()
Dim c As Range, _
laC As Integer, i As Integer, _
Pruef As Boolean
For i = 18 To 52
laC = Cells(i, Columns.Count).End(xlToLeft).Column
If laC >= 4 Then
Pruef = False
For Each c In Range(Cells(i, 4), Cells(i, laC))
If c.Value > 0 Then
Pruef = True
Exit For
End If
Next c
If Pruef = True Then
MsgBox "In Zeile " & i & " ist mindestens ein Wert > 0"
Else
MsgBox "In Zeile " & i & " ist kein Wert > 0"
End If
Else
MsgBox "In Zeile " & i & " ist kein Wert > 0"
End If
Next i
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: if Range("x - y") > 0 then
Martin
Hallo Steve,
Level "VBA-gut". Dann sollte folgender Tip reichen. Ermittle zuerst die letzte besetzte Spalte mit
s = Range("IV18").End(xlToLeft).Column
Prüfe dann mit einer Schleife alle Zellen im Bereich D18:Ds, ob sie größer als 0 sind. Wenn eine Zelle gefunden, Schleifenabbruch mit Exit.
Gruß
Martin Beck
Super Super Danke
28.02.2005 15:03:48
Steve2
Ja hat mir sehr geholfen.
Thanks a lot!
Man kann halt nicht alles wissen. :o))
Gruss Steve

17 Forumthreads zu ähnlichen Themen

If Range(.Offset(2, 0)) = 0 Then
Karsten

Hallo,
ich möchte den Inhalt 2 Zellen unter der Aktiven überprüfen, Klappt aber nicht.
Liege ich mit diesem Code richtig?
If Range(.Offset(2, 0)) = 0 Then
Makro1
End if
Danke und
Gruß
Karsten
05.10.2010 22:44:13
Thread-ID: 1180857
6 Beiträge
Anzeige
If Range("BI29").FormulaR1C1 > 0 Then
Harald


Hallo miteinander,
komme leider nicht weiter.
In BI29 wird laut u. st. Formel 1 oder 0 angezeigt.
=WENN(BK29+BM29=2;1;0)
Ein VBA-Code soll nun die Prüfung vornehmen. So, wie ich es probiere wird auch bei 0 "Weiche_1" durchlaufen.
If Range("BI29").FormulaR1C1 > 0 Then...
30.03.2014 17:30:46
Thread-ID: 1355469
2 Beiträge
VBA IF(ISERROR) .Formula
Robert

Hallo Zusammen,
ich habe auf folgende Weise meinen SVerweis in ein Tabellenblatt eingefügt Sub vba_sverweis1() [AA2:AA426] = WorksheetFunction.VLookup([A2:A426], Sheets("ZP1").[A2:y123], 2, False) End Sub
anschließend wollte ich auf gleiche Weise die IF(ISERROR Funktion benutzen. Sub...
19.02.2015 12:01:45
Thread-ID: 1410393
6 Beiträge
Anzeige
Spalte Pivottabelle per VBA markieren, Error 1004
Michael

Hallo zusammen,
ich habe ein Excelsheet mit einer Pivottabelle. Gerne würde ich per VBA die erste Spalte auswä _ hlen. Dazu habe ich diesen Ablauf mit dem Macro-Recorder aufgezeichnet. Dabei entsteht folgender Code: ActiveSheet.PivotTables("PivotTable1").PivotSelect _ "'[Importdatei].[Vers...
16.12.2016 17:27:25
Thread-ID: 1530566
2 Beiträge
If newDate <= 30 Then
Erik

Hallo zusammen,
ich habe diesen Code: If newDate <= 30 Then~f~
benötige aber 2 Funnktionen wenn kleiner und gleich 30 und größer als 0
~f~If newDate <= 30 & >0 Then
funktioniert nicht
:-)
Wie muß es korrekt heißen ?
Danke
und Gruß
Erik
29.11.2017 13:45:45
Thread-ID: 1594403
3 Beiträge
SVERWEIS / VLookUp unter VBA mit IFISERROR
Luggas

Hallo,
ich habe das Problem, dass ich gerne einen Button einrichten möchte, sobald man diesen anklickt, soll meine SVERWEIS / VLookUp Funktion in eine bestimmte Zelle geschrieben werden.
Mein SVERWEIS sieht wie folgt aus (am Beispiel der Zelle C7):
=WENN(ISTFEHLER(SVERWEIS(C7;[test....
10.08.2018 14:34:50
Thread-ID: 1638729
5 Beiträge
VBA: if date endet in runtime error 13 mismatch
Tom

Hallo Experten
Werde nicht schlau, vielleicht einer der es direkt sieht. Ich nutze einen Datumsabgleich in einem Makro, um darüber eine Trial für das Excel zu machen. Also, ich gebe ein Datum im Makro vor und prüfe es im Vergleich zum heutigen Datum. An sich funktioniert es, wird das Excel...
17.06.2019 12:30:58
Thread-ID: 1698111
3 Beiträge
If InStr(Target.Address, ":") > 0 Then Exit Sub
Franz W.

Hallo Fachleute,hab vor kurzem in einem Code diese Zeile bekommen:If InStr(Target.Address, ":") > 0 Then Exit Subbevor es dann mit der eigentlichen Schleife losgeht:If Target.Column = 10 Then
If UCase(Target.Value) = "x" Then
...
...
...Wofür steht diese Zeile? Was fängt die ab? Ich...
02.04.2003 22:22:02
Thread-ID: 239602
6 Beiträge

Links zu Excel-Dialogen

CheckBox UserForm

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
2
1
5
13
1
2
4
2
5
9
4
2
4
4
8
3