Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA "Wenn, dann sonst"

Forumthread: VBA "Wenn, dann sonst"

VBA "Wenn, dann sonst"
20.10.2007 15:52:00
walpe
Geschätztes Forum
Da ich ein absoluter Anfänger im VBA bin, jedoch weiss, dass es machbar ist, frage ich euch an.
Ich muss einen bestimmten Zellbereich drucken, wenn in einer bestimmten Zelle der Wert grösser als 95 ist.
Wie lautet der VBA-Beschreib - oder wie auch immer man dem sagt?
Für euch Profis ist das sicher lächerlich, aber wie gesagt, jeder fängt mal klein an :-)
Vielen Dank für eure Hilfe.
Gruss Peter

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA "Wenn, dann sonst"
20.10.2007 15:56:21
Josef
Hallo Peter,
wenn die zu überprüfende Zelle A1 ist, dann so.

If Range("A1") > 95 Then
'Dein Druckbefehl
End if


Gruß Sepp

AW: VBA "Wenn, dann sonst"
20.10.2007 15:58:00
Chaos
Servus,
so z.B.:

Sub tt()
If Range("XY").Value > 95 Then
Range("A1:B1").PrintOut Copies:=1, Collate:=True
End if
End Sub


gruß
chaos

Anzeige
AW: VBA "Wenn, dann sonst"
20.10.2007 16:02:24
BorisHendrik
Hallo Peter,
der Code könnte folgendermassen lauten:

Sub Drucken()
If Range("A1").Value > 95 then
Range("Druckbereich").PrintOut
End If
End Sub


Wobei Du A1 durch die Zelle ersetzt, anhand der Du die Prüfung durchführen möchtest und du dem Bereich der gerdruckt werden soll, den Namen "Druckbereich" zuweisen musst.
Gruss
Boris

Anzeige
AW: VBA "Wenn, dann sonst"
20.10.2007 16:39:00
walpe
Hey Leute
Vielen Dank für eure Hilfe und noch ein schönes Wochenende
Gruss Peter

Forumthreads zu verwandten Themen

erkennt leere Zellen nicht
Ceci

Hallo zusammen,
ich habe ein, meiner Meinung nach, mysteriöses Problem.
Ich möchte einfach nur wenn eine Zelle in einer Zeile leer ist, diese Zeile überspringen. Aber mein Programm erkennt die leere Zelle einfach nicht mit:
WSAlle.Cells(Intx + 2, 5).Value = 0
ich habe auch ansta...
30.06.2005 13:17:48
Thread-ID: 631080
2 Beiträge
Zelle --> leer wenn Berechnung 0
Walter
Hallo,
für folgendes Problem finde ich leider keine Lösung, vielleicht kann mir jemand behilflich sein:
Ich möchte, dass eine Zelle, die eine Formel beinhaltet und das Ergebnis 0 ist,leer ist. Sofern das Ergebnis größer Null soll der ermittelte Wert angegeben werden.
Folgende Formel steh...
23.08.2006 16:31:04
Thread-ID: 794732
4 Beiträge
Zählenwenn Funktion
Marzena

Hallo Forum,
Ausgangssituation:
Ich habe 25 Arbeitsmappen in denen ich in jeder Mappe bestimmte Zellen z.B. E14:E31 auswerten will. Steht in den Zellen ein Wert größer als 0 soll dieser in Anzahlsumme aufgenommen werden.
Die Funktion Zählenwenn scheint mir die Richtige zu sein, nur...
15.01.2012 12:25:33
Thread-ID: 1246232
3 Beiträge
Fehler in einer Formel
Frank

Hallo Zusammen!!!
Wollte folgende Formel nutzen:
=WENN(ODER(BI40="";BK40="";BI41="";BK41="");"";WENN(UND(BH41<>"";BI41>BK41);BP41;BP40; WENN(BY40>BY41;BP40;BP41)))
Es kommt aber die Fehlermeldung: Sie haben zu viele Argumente zu dieser Funktion eingegeben!
Wer kann...
29.03.2012 22:16:29
Thread-ID: 1257077
4 Beiträge
Einträge mittels Verweis erzeugen.
Ronald

Moin,
ich habe eine Tabelle in der die Ein- und Ausgänge einer Türschließung von BKS verwaltet werden.
Ich habe die Spalten A bis M und Zeilen von 1 bis 5800 und mehr.
Die Spalten A bis J werden aus dem BKS Programm übernommen.
Die Spalten K bis M sind für die Überwachung der A...
19.06.2019 14:03:58
Thread-ID: 1698491
7 Beiträge
2 Fragen (Filter und Formel)
ahoy

stößt Excel an seine Grenzen?
Frage1: Ich möchte aus einer ca. 46000 Zellen enthaltenden Tabelle (Tagesdaten einer Wetterstation 1881 bis 2005) den Mittelwert jedes einzelnen Tages berechnen. 29.Februar wurde erstmal aussortiert, ist also kein Problem. Jetzt müßte ich ja nur eine Formel er...
26.08.2006 13:11:26
Thread-ID: 795790
12 Beiträge
Anzeige
Summewenn anwenden bei 'DIV/0! Fehlerwert in Summenspalte
Exc-Neuling
Hallo! Nachdem ich im Netz keine Antwort auf meine Frage gefunden habe (auch nicht in diesem Forum), stelle ich sie nun hier:

Ich will die Werte einer Spalte (B) summieren, aber nur die Werte, bei denen in der entsprechenden Spalte A (gleiche Zeile) ein bestimmter Wert steht. Dafür würde ic...
07.01.2024 19:47:42
Thread-ID: 1959719
3 Beiträge
Formel verkürzen
Jenny

Weil ich einen Teil davon nicht mehr brauche-
Ich hatte ursprüngliche Formel, welche funktioniert hat:
=WAHL(1+MIN(5;1*ODER(WENNFEHLER(SVERWEIS(G1;Movies!A:D;4;);)="";WENNFEHLER(SVERWEIS(G1;Movies!A:D;4;) ;)="E")+2*UND(ODER(WENNFEHLER(SVERWEIS(E1;Movies!A:D;4;);)="E";WENNFEHLER(SVERWEI...
29.03.2017 13:25:42
Thread-ID: 1550030
3 Beiträge
Anzeige
Pop-Up Hinweise bei benutzerdefinierter Excel Funktion
Stefan

Hallo,
ich habe folgendes Problem:
Ich habe eine Funktion im VBA, z.B.
Function Volumen(laenge As Double, breite As Double, hoehe as Double) As Double Volumen = laenge * breite * hoehe End Function
Diese Funktion kann ich ja im Excel nun aufrufen, z.B. in Zelle A3 "=Volumen(8...
22.11.2019 16:19:41
Thread-ID: 1725017
5 Beiträge
Mittelwert
Erik

Hallo zusammen,
ich steh mal wieder vor einem problem an dem ich einfach net vorbei komme.
Ich möchte aus 5 Werten einen Mittelwert bilden. Man kann aber in die Zellen eine Zahl, "n.b." oder "n.e." eintragen. Am Anfang steht überall "n.b." drin. Nun soll es sich ändern wenn man "n.e." i...
29.02.2012 12:45:48
Thread-ID: 1252888
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum