Wie übergebe ich in Excel.VBA einen Varablenwert aus einem UserForm global in ein Arbeitsblatt?

Ich habe bereits versucht die Variable als "Public" zu deklarieren, doch ist sie bei der Rückkehr aus dem UserForm in das Arbeitsbaltt leider leer.

3 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

27.06.2015, 22:45

Beim Schließen eines Userforms wird es nicht wirklich geschlossen. Es wird nur versteckt. Du solltest auf die Steuerelemente des Forms zugreifen können und auch auf publics der Form.

Workarounds sind unschön, aber du könntest in das Userform versteckte Steuerelemente legen, auf die du zugreifen könntest, falls du auf Variablen des Forms nicht zugreifen kannst oder du musst halt die Daten in einem Hilfssheet zwischenablegen.

Leider habe ich hier kein Excel zur Verfügung, sonst würde ich es ausprobieren und konkreter werden können.

Baujahr1970

Fragesteller

27.06.2015, 23:11

Werde es mal mit der Tag-Eigenschaft des UF versuchen.
Wenn Du noch eine Idee hast, immer her damit. ;-)

maximilianus7

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

27.06.2015, 22:24

global in ein arbeitsblatt - was soll das heissen?

wenn du ein formularfeld mit einer Zelle verbinden willst, kannst du das über die Feldeigenschaft ControlSource tun, also die Zell-Adresse (z.B. A1) dortselbst eintragen.

Baujahr1970

Fragesteller

27.06.2015, 22:41

VBA

Iamiam

28.06.2015, 12:45

@Baujahr1970

DH! (das ist das Schöne hier: man lernt immer wieder was dazu!)

ich hätte versucht, das Formular per Makro aufzurufen, und (ggf. über eine Zwischenvariable) die Globale Variable umzudefinieren - Bin aber mit Formularfeldern ohnehin nicht mehr vertraut-zu lange her.

eddi0102

28.06.2015, 14:38

In UserForm (CommandButton_OK_Click()) z. B.:

Me.Tag = Me.TextBox_URL (Me steht für UserForm_GoogleSuche)

In der aufrufenden Prozedur:

Rückgabewert = UserForm_GoogleSuche.Tag
Unload UserForm_GoogleSuche
Set UserForm_GoogleSuche = Nothing

Hi,

habe mal wieder ein Problem mit VBA.

In einer Userform deklariere ich eine globale Variable, die von verschiedenen Prozeduren in dieser und einer anderen Userform genutzt werden soll. In der zweiten Userform ist diese Variable jedoch unbekannt. Was mache ich falsch?

Die Variable ist deklariert per:

Public NAME As TYP

gleich unter Option Explicit...

Danke und Gruß Philip

...zur Frage

Excel VBA, Userform an Zelle binden / in Zelle anzeigen?

Ich habe in Excel eine kleine Userform erstellt, mit 4 Textboxen, in 3 werden Werte eingetragen und in der 4. ein Ergebnis ausgegeben.

Diese Userform wird jetzt als eigenständiges Fenster über dem eigenlichen Arbeitsblatt angezeigt.

Was ich gerne hätte ist, dass die Userform in einer Zelle angezeigt wird, so dass ich sie in mein Arbeitsblatt integrieren kann und zB in der Zelle A4 dann die Userform angezeigt wird.

Ist soetwas realisierbar?

...zur Frage

VBA ListBox abfragen?

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

...zur Frage

Excel Userform geschlossen?

Hallo,

Ich habe ausversehen bei einer Userform oben rechts aufs X geklickt.

Wie bekomme ich die nun wieder zurück?

Erstellt mir immer nur neue Userforms, sprich Userform2 Userform 3 etc.

Marius

...zur Frage

Java Variable zwischen Klassen übergeben

Moin

Ich möchte gerne wissen wie ich in Java meine Varieble die ich in einer Klasse erzeugt habe in eine Andere Klasse übergebe. Ich wäre echt dankbar wenn mir jemand eine Erklärung / Erklärungsseite oder so geben lönnt. Ich würds so probieren aber das geht nicht:

in Klasse1:

public int i = 25;

In Klasse2:

public int i = Klasse1.i;

aber das geht ja eben nicht...

Lg DerGlückliche

...zur Frage

VBA | Abbrechen des Hineinschreibens bei Überschreitung der TxBOX der UserForm?

Hallo miteinander.

Ich bräuchte unbedingt mal ein paar Profi-Tipps.

Ich habe einen Code, welcher eingetragene Daten aus der UserForm abspeichert und in verschiedene Tabellen übernimmt.

Soll die Textbox jedoch einen höheren Wert als 100 beinhalten, soll das hineinschreiben und alle weiteren Befehle abgebrochen werden.
Eine weitere UserForm soll als popup auftauchen. bzw. mit popup.show

Die frage, welche ich mir stelle ist:

Wie bekomme ich es hin, dass sich das Popup-Fenster öffnet und das Eintragen der Textbox in die Tabellen gar nicht erst stattfindet.

...zur Frage

UserForm durch CommandButton schließen

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If

End Sub

...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

VBA-Excel Fehler: Zahl ist ungültig?

Hallo, ich arbeite zurzeit an einer Excel:

Ich versuche Daten aus einer Tabelle durch eine Abfrage der Nummern in einer UserForm auszugeben.

Mein Problem: Ich habe mir ein Tutorial angeschaut, doch dort wurde int benutzt, meine Nummer beinhaltet jedoch auch Buchstaben; das Ändern in String geht jedoch nicht.

Fehlermeldung bei der Eingabe = Zahl ungültig.

Tutorial: https://www.youtube.com/watch?v=HQ01Mt0CPRg

Wäre super, wenn mir das jemand definieren könnte.

Devo

...zur Frage

UserForm Textboxen mit Werten aus Excel Datei füllen?

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu:

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

...zur Frage

VBA userform Passwort Abfrage?

Hallo, ich möchte in excel eine Passwortsbfrage machen mit userform.

In Tabelle 1 stehen in Spalte A2 bis A30 Mitarbeiter usernamen.

in Spalte B2 bis B30 die dazugehörigen Passwörter.

userform mit Textfeldern wurde bereits erstellt.

wie kann ich jetzt die Zellen vergleichen wenn ich auf Einloggen gehen z.b A2 und B2 und wenn übereinstimmend, dann userform schließen ansonsten msg Box falsch

...zur Frage

Excel VBA - UserForm Commandbutton über Shortcut starten

Wie kann ich das erreichen das mein Commandbutton (uebertragen) mit STRG+a sofort augeführt wird?

Danke schonmal

...zur Frage

Excel Userform Combobox JA/NEIN?

Hallo, mit welchem Code kann ich in Excl Userform eine ComboBox mit JA/NEIN auswählen lassen und es dann automatisch in die letzte freie Zeile der Spalte C eintragen lassen?

Hoffe da kann mir jemand helfen.
LG

...zur Frage

Excel-VBA Userform in den Hintergrund stellen

Hallo zusammen,

ich hab eine Frage bezüglich VBA in Excel. Wenn ich eine Excel-Datei mit einem UserForm versehe, kann ich keine andere Excel-Datei mehr nebenbei öffnen, es sei denn, ich schliße das UserForm. gibt es eine Möglichkeit, eine Datei mit einem UserForm offen zu lassen, und nebenbei eine andere Excel Datei zu öffnen ?

Danke schonmal für die Antwort!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen