Verwandte Themen

ChrisFragtGern
07.01.2019, 17:45
[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:

  1. Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
  2. Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
  3. 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

Computer, Microsoft Excel, VBA, Button, UserForm
1 Antwort
KingAstor
26.11.2018, 17:47
Mit Bildern
Mit Links
Optimierung zum Sägen über Excel?

Hey,

ich habe so eine ähnliche Frage hier gefunden:

https://www.gutefrage.net/frage/wie-berechne-ich-den-optimalen-verbrauch-ueber-excel

Ich brauche es auch für die Arbeit und es geht in die Richtung weswegen ich anhand eines Lösungsvorschlages eines Kommentars eine kleine Tabelle erstellt habe.

Mein Problem ist nur, dass ich beim Sägen von bestimmten Aluteilen als Bestand immer Teile von 6000 mm habe, aber viele verschiedene Größen und Anzahl zum Sägen.

Jetzt ist meine Frage:

Wie kann ich eine Excel Tabelle erstellen, die mir anzeigt, wie ich am besten Sägen soll, um so wenig Rest wie möglich am Ende zu haben?

Im Bild seht ihr ein kurzes Beispiel und mein Problem ist, dass ich von den 6000 mm 2 Stück von 2200 sägen kann, dann habe ich einen Rest von 1600 übrig und gibt es ne Möglichkeit, die Formel so zu setzen, dass es mir dann anzeigt, dass ich mit dem Stück dann die 1590 mm sägen soll? Und dann so weiter, dass es mir danach anzeigt dass noch 1 von 2200 übrig ist und wie viele ich von 6000 Teilen insgesamt brauche?

Habe es heute auf der Arbeit recherchiert und probiert und bin auf die Frage von wie es der Zufall so will von gestern darauf getroffen.

Ich bin mit meinem Latein am Ende.

Hoffe jemand kann mir helfen.

Liebe Grüße

auf dem Bild fehlt die Angabe, dass ein Teil 6000 mm Länge hat

und das mit der benötigten Länge war nur eine Denkhilfe für mich selbst, brachte mir aber nix

Bild zum Beitrag
Computer, Microsoft Excel, optimierung
5 Antworten
LukeatWork
26.09.2018, 11:22
Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

Computer, Microsoft, Microsoft Excel, Excel 2010, Technik, Programm, programmieren, Makro, VBA, Technologie, Spiele und Gaming
4 Antworten

Meistgelesene Beiträge zum Thema Microsoft Excel
Mehr meistgelesene Fragen zu Microsoft Excel