Userform Multiseite Page ein-/ausblenden?

Hallo,

ich habe eine Multiseite mit 10 Seiten (ANPage1 - ANPage10). Beim öffnen der Multiseite wird bereits die richtige Anzahl an Pages ausgegeben (Anzahl geht aus Tabelle 2 A10 hervor.

Wenn ich nun über ein anderes Steuerelement (hinzufügen oder entfernen) auf dem Userform den Wert für A10 um +/- 1 ändere (je nach Steuerelement), soll auch entsprechend die Page .Pages("ANPage").Visible = True gesetzt werden.

Beispiel:
in A10 steht die Zahl "5". Es wird mit öffnen der Multiseite 5 Pages ausgegeben. Drücke ich nun auf den Button "hinzufügen", dann wird der Wert in A10 "6". entsprechend soll nun die ANPage6 auf Visible = True gesetzt werden.

Wenn ich nun auf den Butten "entferne" drücke, dann wird aus A10 die Zahl "5" und entsprechend soll die ANPage6 auf Visible = false gesetzt werden.

Ich weiß, es sind zwei verschiedene Befehle und wird wahrscheinlich eine Schleife? sein, jedoch habe ich da keine Ahnung, wie ich dies umsetze. Das drumherum im Befehl steht bereits.

Wahrscheinlich denke ich auch zu kompliziert.

Gruß

1 Antwort

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

31.10.2020, 01:59

Anstatt zu ermitteln welche Pages du auf Visible = True oder False zu setzen sind würde ich einfach eine Schleife machen.

For i = 1 to 10
If i <= [A10] Then
Visible = True
Else
Visible = False
Next

Woher ich das weiß:Berufserfahrung

RobinM66

Fragesteller

31.10.2020, 17:40

Danke schonmal für deine Antwort, aber bei der Zeile:

Visible = True

weiß doch Excel gar nicht, welche Page aus/eingeblendet werden soll. Die richtige Anfangsmenge (A10) wird wiedergegeben. Aber wenn ich, während die Userform offen ist, die Zahl durch eine andere Schaltfläche verändere, soll entsprechen ein/ausgeblendet werden.

RobinM66

Fragesteller

31.10.2020, 17:54

Also ich habe es jetzt, auch wenn es dumm und unvorteilhaft ist, mit 10 If-Abfragen gearbeitet. So kann ich aber bei jeder Zahl jede Page einzeln bestimmen.

Hallo, liebe GF-Community,

seit der Umstellung auf Microsoft Office 365 mit dem entsprechenden Microsoft Office 2016 (vorher hatte ich Microsoft Office 2010) ist mein Kalendersteuerelement in meinen UserForms verschwunden, die ich in meinen Makros für Microsoft Word verwende.

Auch existiert der Microsoft Date and Time Picker 6.0 (ich glaube so hieß das Steuerelement) bei den Steuerelementen nicht mehr.

Weiß jemand, wo ich dieses Kalender-Steuerelement für die UserForms wieder herbekommen kann? Ich habe bereits alle entsprechenden Versuche hinter mir, das Steuerelement für Excel 2016 zu registrieren, wie hier beschrieben:

https://www.gutefrage.net/frage/excel-2016-office-365-ein-kalendersteuerelement-einfuegen

Allerdings blieben auch diese Versuche ohne Erfolg, obwohl die entsprechenden Meldungen der Registratur positiv ausfielen. Das Steuerelement bleibt (auch in Excel) verschwunden.

Vielen Dank im Voraus. Die hilfreichste Antwort wird ausgezeichnet.

Gruß, BerchGerch

...zur Frage

Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

...zur Frage

Bukkit Plugins AsyncPlayerChatEvent Befehle?

Hi Leute!

Wie kann man in einem AsyncPlayerChatEvent Befehle wie zb +gm 1 ausführen. Also dass nichts ausgegeben wird, sondern der Spieler nur in diesem Fall in den gm1 gesetzt wird.

if (msg.startsWith("+")) {
				if (msg.contains("gm 1")) {
					p.setGameMode(GameMode.CREATIVE);
					p.sendMessage("§lDu bist nun im GM 1");
					e.setCancelled(true);
				} else if (msg.contains("gm 0")) {
					p.setGameMode(GameMode.SURVIVAL);
					p.sendMessage("§lDu bist nun im GM 0");
					e.setCancelled(true);
				}
			}

Ich hoffe man kann mir helfen! ;P

...zur Frage

Mit C# Word-Dokument bearbeiten ohne dass Word sich öffnet?

Hallo, ich versuche gerade ein docx-Dokument zu bearbeiten, das hier ist mein Code:

using Microsoft.Office.Interop.Word;
[...]
Application wordApp = new Application();
wordApp.Visible = false;
Document wordDoc = wordApp.Documents.Open([pfad], ReadOnly: false, Visible: false);
wordDoc.Activate()
Range rng = wordDoc.Range(0, 2);
            rng.Text = "Some Text";
wordApp.Documents.Save(NoPrompt: true, OriginalFormat: true);
wordApp.Documents.Close(SaveChanges: true, OriginalFormat: false, RouteDocument: false);
Console.WriteLine("Finished");
Console.ReadLine();

Aber obwohl ich die Visible-Vairable auf false gesetzt habe, öffnet sich Word. Nicht normal, sondern so:

Kann mir da jemand helfen?

...zur Frage

Ausgeblendetes Tabellenblatt einblenden und dann aktivieren möglich?

Und wieder eine Frage:

Ich habe ausgeblendete Tabellenblätter und möchte nun über einen Command-Button, dass sich die Userform schließt, ein bestimmtes Tabellenblatt eingeblendet, dann aktiviert und dann eine Userform öffnet. Im Debug-Modus klappt es, aber wenn ich es direkt versuche, wird zwar die Userform geschlossen aber das Tabellenblatt nicht eingeblendet und aktiviert. Wenn ich die Userform schließe, dann aber wird das Tabellenblatt eingeblendet.

Habe wohl eine falsche Reihenfolge in diesem Code:

Private Sub CMD_More_Click()
    CMD_More.TakeFocusOnClick = False
    Unload Me
    Worksheets("Fertigungsprüfplan Seite 2").Visible = True
    Call change1
End Sub

Public Sub change1()
    Worksheets("Fertigungsprüfplan Seite 2").Select
    Range("A1").Select
    Load UserFormInspectionFeature2
    UserFormInspectionFeature2.Show
End Sub

Kann da auch jemand helfen? Danke im Voraus. Ich möchte es nur verstehen...

...zur Frage

Was ist an diesem Code falsch?

Bin noch neu im Umgang mit Python, habe 2 Fragen zu dem Code hier. Soll ein Vokabeltrainer werden, allerdings 1. Warum/Wie kann die Antwort RICHTIG oder Falsch direkt nach dem Wort ausgegeben werden, und nicht erst nachdem die anderen Wörter fertig sind. Und 2. Wieso funktioniert der Befehl or bei input nicht? Würde halt gerne Begriffe als True erlauben auch wenn diese z.B. Klein oder Groß geschrieben worden sind. Sonst müsste man ja immer dazu schreiben ob der jenige den Begriff groß oder klein schreiben muss. Geht das irgendwie mehrere Begriffe zu erlauben? Es gibt ja z.B auch Mehrere Richtige antworten für die Übersetzung von Worten, wenn ich dann nur Plane als richtig nehmen kann, und jemand Airplane oder sowas schreibt wird ja gesagt: "Leider nicht......". Danke im vorraus.

...zur Frage

[VBA] - Multipage Userform eingaben in Excel übertragen?

Servus Leute,

Ich habe ein Userform in Excel mit Multipage erstellt.

Nun möchte ich auf der letzten Multipage Seite einen Button einbauen. Auf Knopfdruck sollen dann alle Eingaben die vom User auf den einzelnen Multipageseiten gemacht worden sind in ein Excel Tabellenblatt übertragen werden.

Mein Ansatz war dem Button folgenden Code zu geben:

    Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
    If CheckBox1.Value Then
      sheet2.Cells(maxRow2 + 1, 9).Value = "ja"
      Else
        sheet2.Cells(maxRow2 + 1, 9).Value = "nein"
        End If
              sheet2.Cells(maxRow2 + 1, 13).Value = TextBox4.Value

Das funktioniert leider nicht wie ich es mir erhofft habe, auf Knopfdruck werden keine Daten übertragen. Ich habe die vermutung, dass nicht auf die Felder wie z.B. TextBox4 zugegriffen werden kann, weil die auf einer anderen Seite im Multipage sind.

Wie schaffe ich es an die Variablen ranzukommen. Ich hatte noch überlegt, im Code der jeweiligen Seite den Wert aus der Textbox in eine Variable zu setzen, die z.B. Global ist. Aber da bin ich auch schon wieder überfragt wie man das macht.

Außerdem habe ich noch eine Frage zu den Checkboxen.

Es soll folgende Möglichkeiten geben:

Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
Wenn Checkbox angeklickt ist und variable x befüllt, dann kann man zur nächsten Kategorie (Nächste Seite im Multipage)

Für eine Checkbox habe ich das schon hinbekommen, aber wie mach ich das wenn es mehrere Checkboxen gibt. Weil ich glaube wenn ich das so mache wie bisher, dann wird das eine endlose anreihung von if bedingungen.

Diesen Code habe ich dann auf den Button gelegt, mit dem man zur nächsten Kategorie kommen soll oder eben halt nicht.

  Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
   
    If CheckBox3.Value Then
    If Test = False Then
    MsgBox ("Kein Pfad angegeben")
    Else
  Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
    End If
    Else
    Dim iNextPage2 As Long
    With Me.MultiPage1
        iNextPage2 = .Value + 1
        If iNextPage2 < .Pages.Count Then
            .Pages(iNextPage2).Visible = True
            .Value = iNextPage2
        End If
    End With
    End If

Und als letztes würde ich gern noch wissen ob es möglich ist, zu unterbinden, dass der User oben im Multipage die Kategorie direkt anklicken kann und man halt nur über den "weiter" button zur nächsten kategorie kommt.

Gruß Chris

...zur Frage

Programmieren Reverse text umgedreht?

Hallo eine Frage, meine übung lautet :Schreiben Sie ein Programm Reverse , welches eine beliebige Anzahl an Argumenten von der Konsole entgegennimmt und diese in umgekehrter Reihenfolge auf der Standardausgabe ausgibt. Jedes Argument soll in einer einzelnen Zeile ausgegeben werden. Wenn kein Argument übergeben wird, soll nichts ausgegeben werden.

Also quasi, schreibe ich im Befehl ein : Hallo wie gehts ? und mein Programm soll mir : ? gehts wie Hallo, zurück geben.. ich möchte eine for schleife dafür an wenden aber ich weiss nicht wie ich anfangen kann damit ich beliebig an Anzahl von Argumenten schreiben kann. Ich kenn nur den Trick System.out.println(args[0]); aber da kann ich doch nur ein Argument übergeben ;(

...zur Frage

Pygame hängt sich bei while True: loop auf?

Hallo,

ich programmiere gerade ein Spiel in Pygame. Auf jeden Fall möchte ich den Ninja Wurfsternen (&anderen Waffen)Ammo geben, dass man eine bestimmte Anzahl von diesen hat und diese nicht spammen kann. Wenn man Space drückt, wird der Ammo Variable eins abgezogen und wenn der Ammo (heißt es der Ammo? ) höher als 0 ist, wird der Befehl self.shoot() ausgeführt. Jetzt mein Problem: Egal, welche Nummer die Variable hat (außer Null), kann ich einmal schießen und danach nicht mehr, auch wenn ich Space drücke. Ich weiß nur nicht wieso. Wenn ich es in einen while True, loop packe, hängt sich pygame auf. Nur wie kann ich das fixen, dass ich öfter als 1 Mal schießen kann. Hier mein benötigter Code (ohne den While True loop):

class Player(pg.sprite.Sprite):

def __init__(self, game, x, y):

self.weapon = 'blowpipe'

self.shurikan = False

self.blowpipe = False

self.xp = PLAYER_XP

self.shoot_ammo = True

self.BLOWPIPE_AMMO = 5

self.SHURIKAN_AMMO = 5

def get_keys(self):

keys = pg.key.get_pressed()

if keys[pg.K_SPACE]:

if self.weapon == 'blowpipe' and self.shoot_ammo == True:

self.BLOWPIPE_AMMO -= 1

if self.BLOWPIPE_AMMO < 0:

self.BLOWPIPE_AMMO = 0

if self.BLOWPIPE_AMMO == 0:

self.shoot_ammo = False

if self.BLOWPIPE_AMMO > 0:

self.shoot()

if self.weapon == 'shurikan' and self.shoot_ammo == True:

self.SHURIKAN_AMMO -= 1

if self.SHURIKAN_AMMO < 0:

self.SHURIKAN_AMMO = 0

if self.SHURIKAN_AMMO == 0:

self.shoot_ammo = False

if self.SHURIKAN_AMMO > 0:

self.shoot()

def shoot(self):

if self.shoot_ammo == True:

now = pg.time.get_ticks()

if now - self.last_shot > WEAPONS[self.weapon]['rate']:

self.last_shot = now

dir = vec(1, 0).rotate(-self.rot)

EinegleicheListegibtesfürBlowpipe.

pos = self.pos + BARREL_OFFSET.rotate(-self.rot)

self.vel = vec(-WEAPONS[self.weapon]['rate'], 0).rotate(-self.rot)

for i in range(WEAPONS[self.weapon]['count']):

spread = uniform(-WEAPONS[self.weapon]['spread'], WEAPONS[self.weapon]['spread'])

Blowpipe(self.game, pos, dir.rotate(spread))

Außerdem gibt es eine Weapons Liste in einem anderen File:

WEAPONS['blowpipe'] = {'img': 'blowpipe.png',

'speed': 500,

'lifetime': 600,

'rate': 300,

'kickback': 0,

'spread': 5,

'damage': 3,

'size': 'blowpipe',

'count': 1}

Eine ähnliche Liste benutze ich für den Shurikan. Thx

...zur Frage

Wie kann mit Hilfe einer Excel Formel in einer Zelle etwas ausgegeben werden in Abhängigkeit von Werten in einer anderen Zelle?

Nehmen wir an, dass in Excel Zellen immer der Wert 1 oder 2 ausgegeben wird in Abhängigkeit von Werten in anderen Zellen. Es sind also entsprechende Formeln hinterlegt. So steht beispielsweise in den Zellen A1 bis A5 immer 1 in A6 steht dann aber plötzlich 2. Wenn so ein Wechsel erfolgt hätte ich gerne, dass in den Zellen A7 bis A10 auch 2 steht und dass es nicht schon wieder eine Wechsel gibt. D.h. für diese vier Zellen sollten die Formeln, mit denen ermittelt wird ob die Ausgabe 1 oder 2 ist, außer Kraft gesetzt. Ab A11 sollen die dahinterliegenden Formeln wieder aktiv sein.

Weiß jemand wie man das realisieren kann?

...zur Frage

VBA mehrere Textboxen außer XY auf Inhalt prüfen?

Hallo zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

...zur Frage

Sortieren in verschiedenen Tabellen?

Hallo zusammen,

ich habe momentan ein Problem, ich möchte, dass ich verschiedenen Tabellen auf einem Tabellenblatt habe.

Es soll jede Tabelle im Reiter "Kundengruppe" von A->Z (Aufsteigend) sortiert werden, ohne, dass das VBA direkt einen Zellenbezug herstellt, da die höhe und tiefe der Tabellen mal nach Anzahl der Eintragungen variieren kann.

Hier der Link zur Datei:

https://www.herber.de/bbs/user/147794.xlsm

Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Add2 Key:=Range( _

"Q16:Q18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("OP").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Das ist der aktuelle Code, der Bereich mit <b>Range( _"Q17:Q18")</b> soll im besten fall weg, da das der punkt ist, wo die höhe der Tabelle variieren kann..

Der Range(Selection, Selection.End(xlDown)).Select befehl, sucht ja in dem fall schon den richtigen anfang, und ab da soll dann der Filter gesetzt werden und gefiltert werden

Ich hoffe man versteht es einigermaßen...

Danke & LG

Chris

...zur Frage

Wie bekomme ich die Label.Caption zum Blinken?

Hallo,

vielleicht seit ihr wieder schneller als ich, ich suche schon länger. Ich möchte dass der Text unter einem bestimmten Umstand blinkt. Etwa so:

    If Not wks.Cells(Zeile, abschlussd).Value = "erledigt" Then
    Me.TimerInterval = 500
    Else
    End If

Der Code steht im userForm Initialize

Ich möchte diesen Code sozusagen aufrufen:

Private Sub Timer_Timer()
    Me.Label37.Visible = Not Me.Label37.Visible
End Sub

Mit Timern habe ich noch nie gearbeitet und ich verstehe nicht den Aufbau.

Vielleicht kann jemand helfen und die Lücken schließen?

Danke.

...zur Frage

Tabelle in Arrays in POWERSHELL?

Wie kann man Array als Tabelle formatieren in Powershell?

Ich will z.b drei Spalten haben [PCName, Ping(True or False), Zugriffszeit].

Ich habe noch ein Skript, das die drei Antworten zurückgeben. Diese will ich in die entsprechende Spalte hinzufügen können. Wie kann man diese machen?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen