Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1816to1820
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
Inhaltsverzeichnis

VBA Formulierung

VBA Formulierung
01.03.2021 20:12:17
Milan
Hallo Forum,
Ich möchte untere Formelfunktion umsetzen in VBA nur ich weis es nicht wie
Formel ist eine Textfunktion die mir Abfrage realisiert, nur drucken und nicht drucken brauche ich nicht
(=WENN(ZAHLENWERT(Tabelle1!E54)>1;"DRUCKEN";"NICHT DRUCKEN")~f~
So in etwa ist meine Formulierung, aber funktioniert nicht.
Daswegen brauche ich Erste Anfang von obere Formel
Mein VBA-Code funktioniert so nicht, das ist meine Baustelle
~f~If Range("E54") > 1 Then - <b>Funktioniert nicht</b>
CheckBox29.Value = True
CheckBox30.Value = True
CheckBox31.Value = True
CheckBox32.Value = True
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$68"
Else
CheckBox29.Value = False
CheckBox30.Value = False
CheckBox31.Value = False
CheckBox32.Value = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$48"
End Sub
Kann mir jemand helfen womit ich mich beschäftigen kann?
Gruß

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Formulierung
01.03.2021 20:18:13
Hajo_Zi
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren


Anzeige
AW: VBA Formulierung
01.03.2021 20:30:15
AlterDresdner
Hallo Milan,
wenn ich Dich richtig verstanden hjabe:
Dim E54Gr1 As Boolean
E54Gr1 = CDbl(Range("E54")) > 1
CheckBox29.Value = E54Gr1
CheckBox30.Value = E54Gr1
CheckBox31.Value = E54Gr1
CheckBox32.Value = E54Gr1
ActiveSheet.PageSetup.PrintArea = IIf(E54Gr1, "$A$1:$J$68", "$A$1:$K$48")

Gruß der AlteDresdner

AW: VBA Formulierung
02.03.2021 03:02:28
Milan
Hallo alte Dresdner,
leider das funktionirt nicht, beim E54Gr1=Falsch und beim CDbl=Typen unverträglich, ausserdem
ich wollte CheckBoxen auf True setzen ansonst auf False.
Ich habe mühsam eine Mappe ungefähr als Beispiel hinterlegt und ich höffe es ist ersichtlich was ich ereichen möchte
https://www.herber.de/bbs/user/144359.xlsx
Gruß

Anzeige
AW: VBA Formulierung
02.03.2021 10:22:59
Herbert_Grom
Hallo Milan,
ändere mal deine Formeln in der Spalte E von so
=WENN(R4="";"";R4)
auf so
=WENN(R4="";0;R4)
Servus

AW: VBA Formulierung
02.03.2021 18:29:59
Milan
Hallo,
leider, ich brauche das formel in VBA, If....
Es funktioniert in meiner und deiner Version.
Mir ist wichtig Erkennung ob Betrag grösser ist als null, damit kann ich Seitenzahl beim ausdrucken begrenzen.
Eigentlicher Problem ist ich glaube, dass in der Zelle Formel mit Text liegt und dasswegen kann kein Zahl erkönnen
Gruß

AW: VBA Formulierung
02.03.2021 18:44:03
Milan
Ich meine ich brauche komplett funktion im Sinne wenn Bedingung da ist es solte mir CheckBoxen
und PrintArea regeln

Anzeige
AW: VBA Formulierung
02.03.2021 18:46:28
Milan
Bei der letzte Nachricht habe ich CheckBox als Ungelöst nicht aktiviert

AW: VBA Formulierung
03.03.2021 01:47:11
Milan
Danke,
Ich habe endlich selbst gelöst
Gruß

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige