VBA Wenn TextBox leer dann Zeile ausblenden sonst einblenden und Text in Zeile kopieren?

Ich habe eine Userform erstellt wo man Rabatte einfügen kann und möchte das wenn die TextBox leer ist die Rabatt Zeile ausgeblendet ist und wenn sie beschrieben ist das die Zeile wieder angezeigt wird und der Text aus der TextBox in die Zeile gespielt wird

2 Antworten

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

06.07.2017, 14:44

If TextBox1.Text = "" Then
    Sheets("Tabelle1").Range("A5").EntireRow.Hidden = True
    Else:
    Sheets("Tabelle1").Range("A5").EntireRow.Hidden = False
    Sheets("Tabelle1").Range("F5").Value = TextBox1.Value
End If

Hilft Dir das weiter?

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

pawilooon

Fragesteller

08.07.2017, 01:29

Muss ich mal ausprobieren aber erstmal ja !
Danke !

Geht es dann auch direkt immer automatisch ? Oder muss ich extra einen Knopf einfügen der das alles auslöst ?

Oubyi, UserMod Light

08.07.2017, 02:01

@pawilooon

Gern geschehen 🙂

Mache eine Doppelklick auf Deine Textbox im VBA-Editor.
Dann hast Du normalerweise direkt das Change-Ereignis da stehen:

Private Sub TextBox1_Change()

End Sub

Dazwischen fügst Du den Code ein, dann wird er ausgeführt, sobald nach der Eingabe in die Textbox ENTER gedrückt wird.

pawilooon

Fragesteller

26.07.2017, 19:26

Ich bin gerade dabei das auszuprobieren - klappt wunderbar aber man muss dazu in die Zelle reingehen und enter drücken wie kann ich das machen ohne in die Zelle reinzuclicken?

Hab auch mehrere von den Rabatt Zeilen
Weißt du was ich meine ?
Das der automatisch das einfach wegnimmt vielleicht dann besser mit nem Button ?

Oubyi, UserMod Light

28.07.2017, 13:19

@pawilooon

Das mit dem Reinklicken kann ich nicht nachvollziehen.
Die Zeile:

 Sheets("Tabelle1").Range("A5").EntireRow.Hidden = True

und die entsprechende im Else-Zweig kannst Du einfach wiederholen mit anderen Adressen.

Wie sieht denn Dein aktueller Code aus?

Am besten wäre es, wenn Du eine Beispieldatei hochladen und hier verlinken könntest.

ProRatione

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

06.07.2017, 11:07

Ich verstehe momentan den Sinn dahinter nicht. Du hast ein Eingabefeld "Rabatt" und wenn man da z.B. "10" reinschreibt, dann soll ein weiteres Feld angezeigt werden in dem wieder "10" steht?

pawilooon

Fragesteller

06.07.2017, 12:04

Genau es gibt halt ein Layout das in Angebote reinkonntet werden

Und dazu hab ich eine Userform erstellt wo du die jeweiligen Module eingibst und die dazugehörigen Rabatte und falls die Rabatte gar nicht ausgefüllt sind sollen die Zeilen automatisch nicht sichtbar sein und falls doch soll die Zeile halt eingeblendet sein mit der Prozentzahl

...zur Frage

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.

...zur Frage

VBA Zellen durchsuchen und entsprechend ausblenden/einblenden?

Hallo,

ich möchte gerne einen VBA erstellen mit folgendem Ziel:

Zelle A2 enthält "nein"

Zelle A2 mit "nein" führt zum Ausblenden der Inhalte von Zeilen 5-8. Soweit verstehe ich den Makro.

Jetzt zu meinen Problemn:

Ich lösche Zeile 1 und der o.s. Befehl soll über Zelle A1 ausgeführt werden
Ich füge eine weitere Zeile in Zeile 4 ein und nur die Inhalte aus Zeilen 5-8, was jetzt neuerdings 6-9 ist, wird ausgeblendet. Ich möchte jetzt nicht mehr Zeile 5-8 ausblenden.

Sprich, ich möchte gerne die Range im VBA verschieben, wenn ich im Blatt Zeilen hinzufüge/lösche.

Danke vorab!

...zur Frage

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

...zur Frage

VBA Programmierung in Word: In Tabelle Zeilen aus-/einblenden und mit Text füllen

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

...zur Frage

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

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

VBA Excel? Einen Text kopieren und AB einer bestimmten Zeichenzahl einfügen?

Hey, ich würde gerne einen Text kopieren und in Excel ab einer bestimmten Zeichenanzahl einfügen.. Heißt der Text soll erst dort erscheinen, wenn vorher bspwl. 20 Buchstaben, Leerzeichen etc. geschrieben wurden. Oder auch wenn die Zeile komplett leer ist, erst ab der bestimmten Zeichenanzahl. Welche Funktion bräuchte ich dabei?

...zur Frage

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.

...zur Frage

Excel VBA: UserForm TextBox Inhalt auch untereinander möglich?

Liebe Community,

kann man unter den Einstellungen (habe es bisher nicht gefunden), die TextBoxen auch so gestalten, dass der Anwender den Inhalt (wenn es was reinschreibt) auch untereinander angezeigt bekommt?

Bisher läuft der Text über die Spaltenbreite waagerecht weiter, statt untereinander angezeigt zu werden.

Vielen Dank im Voraus!

...zur Frage

Wie kann man den Inhalt aus einer TextBox einer Variable zuweisen? ( in VBA)?

Hallo,

ich habe mal wieder eine Frage zur VBA Programmierung in Excel. Ich möchte, dass der der Benutzer in einer Userform Angaben in verschiedenen TextBoxen eintragen kann, und die Einträge sollen je einer Variable zugewiesen werden. Die Variablen habe ich in einem benutzerdefinierten Datentyp erstellt (Deklaration des Datentyps in der Arbeitsmappe). Durch einen Klick auf den "start" button in der Userform sollen die Daten eingelesen werden. Es entsteht jedoch ein Laufzeitfehler 424 "Objekt erforderlich". Ich vermute, dass ich die TextBox falsch angesprochen habe. Anbei ein paar Bilder um es zu verdeutlichen. Ich hoffe auf rasche Hilfe, danke im Voraus.

Mit freundlichen Grüßen, Patrick.

...zur Frage

Excel VBA: Nur eingeblendete Zeilen in ein anderes Tabellenblatt kopieren?

Durch ein anderes Makro wird zuvor der Bereich A5:C400 so gefiltert, das alle leeren A-Zellen die ganze Zeile ausblenden lässt. Im jetzigen Schritt versuche ich, den Bereich A5:C400, in welchem viele Zeilen ausgeblendet sind, auf ein anderes Tabellenball zu kopieren. Das Bild zeigt meine aktuellen Stand, aber irgendwie bin ich da überfragt. Die ausgeblendeten Zeilen sollen NICHT mitkopiert werden.

Könnte jmd mein Programm anpassen, sodass es klappt?

VIelen Dank!

...zur Frage

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub