Wie kann ich einen Excel VBA Code Wert in eine vorhandene UserForm einfügen, bearbeiten und zurück übertragen?

Wie kann ich die Werte der Zellen einer Spalte in ein die Textboxen einer UserForm übergeben sodass ich die Werte im Formular bearbeiten und bearbeitet wieder in die Tabelle eintragen kann. Also ich suche einen Code den ich in VBA eingeben kann.

3 Antworten

Britzcontrol

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

21.02.2016, 10:25

Ich bin mir nicht sicher, ob es noch funktioniert (XL2007 kann es):

Stell dich in die Tabelle und drücke

ALT (halten), dann n, dann m

Es erscheint eine Eingabemaske zum bearbeiten.

Löst das Dein Problem?

Gruß aus Berlin

Woher ich das weiß:Hobby – Jahrelanges programmieren.

Ninombre

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

20.02.2016, 14:49

Userform1.textbox1.value=range("A1").value
[alternativ Zelle mit Zeile/Spalte angeben, also = cells(1,1).value

Für den Rückweg einfach umdrehen:
Range("A1").value = userform1.textbox1.value

Oubyi, UserMod Light

20.02.2016, 16:35

DH!

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

20.02.2016, 14:32

Das ist nicht sehr kompliziert.

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

- (Software, programmieren, Microsoft Excel)

Oubyi, UserMod Light

20.02.2016, 16:34

Das ist keine UserForm und der Wert der Zelle wird nur angezeigt, lässt sich aber nicht bearbeiten.

Ähnliche Beiträge

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?

...zum Beitrag

VBA: Variablenwert aus Textbox in Zahl ausgeben?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

...zum Beitrag

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.

...zum Beitrag

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

...zum Beitrag

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zum Beitrag

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

...zum Beitrag

VBA in Excel: Datumseingabe in einem Formular mit Datensätzen in der Tabelle abgleichen? ?

Hallo zusammen,

Wie in den Screenshots zu sehen, programmiere ich aktuell eine Fahrradreservierung in Excel. Es ist soweit alles fertig, bis auf einen Code.

Folgender Code fehlt mir. Im Formular soll man die Daten der gewünschten Ausleihe eintragen (4 Felder --> Abholdatum und -zeit, sowie Rückgabedatum und - zeit). Danach soll mit Klick auf den Button "Verfügbarkeit prüfen" in der ListBox (unter den Eingabefeldern) die Fahrräder angezeigt werden, die an den angefragten Zeitpunkten noch verfügbar sind.

Die vorhandenen Datensätze (die geprüft werden müssen) befinden sich in Tabelle1.

Folgende Fahrräder gibt es allgemein: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Meine Bezeichnungen in UserForm 1: 1.TextBox hinter "Abholdatum" = Textbox4 2.TextBox hinter "Abholuhrzeit" = Textbox5 3.TextBox hinter "Rückgabedatum" = Textbox6 4.TextBox hinter "Rückgabeuhrzeit" = Textbox8 5.Button "Verfügbarkeit prüfen" = CommandButton5 6.Listbox mit verfügbaren Fahrrädern = ListBox2

Ich hoffe, mir kann da einer helfen und/oder sogar einen Code schicken.

Danke im Voraus!

...zum Beitrag

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zum Beitrag

Letze Zelle finden und Bis runter Ziehen VBA?

Excel letzte Zelle mit wert finden, eine Zelle darunter auswählen, formel einfügen und bis Zelle 500 runterziehen.

per VBA

...zum Beitrag

UserForm mit Prozentwerten in TextBox - Dilemma beim speichern in Zelle?

Liebe Excel-Fans,

ich habe ein Problem mit dem Thema Prozentangaben und versuche es so kurz wie möglich zu erklären:

Eine UserForm mit Feldern (TextBoxen) zum Bearbeiten von Werten aus einer Tabelle.
In der Excel-Tabelle sollen Prozentwerte hinterlegt und in die UserForm entsprechend ausgelesen werden.

Beim erstmaligen Hinterlegen kann man einfach TextBox1.Value / 100 verwenden. Klar.
Beim Einlesen des Wertes in die TextBox1 der UserForm zum Bearbeiten nehme ich: UserForm.TextBox1 = Format(UserForm.TextBox1, "#,##0.00 %") damit beim Lesen der Wert auch schön als Prozentwert angezeigt wird

Wenn ich nun speichere, ohne die Prozentwerte zu verändern, da ich diese einfach nicht verändern möchte, schmeißt mir Excel einen Laufzeitfehler 13, Typen unverträglich und markiert den Abschnitt im Code (oben Punkt 1) wo ich durch 100 dividiere.

Ist ja irgendwie verständlich, da er versucht den Wert aus der TextBox "1,99 %" zu dividieren, da nun ein "%" drin steht ... bzw. möchte ich in dem Fall auch gar nicht, dass durch 100 dividiert wird, da der Wert ja stimmt und nicht nochmal dividiert werden soll.

Habe irgendwie einen Denkfehler - aber ein Formular was "Bearbeiten" soll, muss die Werte richtig verändern können oder aber auch erstmals anlegen können. Und hier scheint es mit den Prozent-Werten ein Thema zu geben.

Ich danke für eure Ideen und Hilfsansätze!

Grüße
Sebastian

...zum Beitrag

Daten aus VBA Formular in Excel Tabelle übertragen?

Halloo,

ich hoffe ihr könnt mir helfen.

ich muss für meine Arbeit eine Excel Tabelle mit Formular erstellen. Die Daten die in das Formular eingetragen wurden sollen sortiert nach Spalte in die vorgefertigte Excel Tabelle eingefügt werden. Wie kann ich das Programmieren?

ich danke im Voraus!

...zum Beitrag

Excel VBA Text in andere Textbox bringen?

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.
Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

...zum Beitrag

VBA Userform Textbox per Commandbutton füllen?

Hallo^^

Also ich soll gerade ein Userform erstellen mit einer Textbox und 2 Schaltflächen bei der ersten schaltfläche soll der Textbox mein Name zugewiesen werden, allerdings bekomm ich das irgendwie nicht hin. Ich weiß zwar wie man etwas aus der Textbox in eine Zelle einfügt, aber nicht wie man etwas in die Textbox bekommt.

...zum Beitrag

VBA Makro Excel Letzte beschriebene Zeile vor Leerzeile, weitere Leerzeile einfügen

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen