Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

userform textboxinhalt verketten

userform textboxinhalt verketten
MaxKuba
Hallo Leute hab mal wieder ein Problem,
wie kann ich den Inhalt aus einer Textbox mit einem "+" Zeichen verknuepfen und dann nebeneinander in die Zwischenablage kopieren?
Hab schon etwas gefunden, funktioniert aber nicht..
Private Sub CommandButton1_Click()
Dim TextBox1 As UserForm
Dim i As Variant
If i  0 Then
i = TextBox1.Value
Sheets(1).Cells(1, 1).TextBox1.Value = i + "+"
Else: Exit Sub
End If
End Sub
Gruesse, Max

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: userform textboxinhalt verketten
14.10.2009 12:17:29
Sven
Nimm statt dem + ein &:
Sheets(1).Cells(1, 1).TextBox1.Value = i & "+"
AW: userform textboxinhalt verketten
14.10.2009 12:59:53
MaxKuba
Danke fuer die schnelle Antwort.
Leider uebernimmt das Activesheet immer noch nicht die Werte..
Irgendwas stimmt mit dem code nicht.
Private Sub CommandButton1_Click()
Dim TextBox1 As UserForm
Dim i As Variant
If i  0 Then
i = TextBox1.Value
ActiveWorkbook.Sheets(1).Cells(1, 1).TextBox1.Value = i & "+"
Else: Exit Sub
End If
End Sub

AW: userform textboxinhalt verketten
14.10.2009 13:08:36
Sven
Probier mal ob es mit 'CStr' funktioniert:
ActiveWorkbook.Sheets(1).Cells(1, 1).TextBox1.Value = Cstr(i & "+")
Anzeige
AW: userform textboxinhalt verketten
14.10.2009 13:21:04
JogyB
Hi Sven,
bitte probier doch den Code wenigstens mal aus, bevor Du weiter herumstocherst. Dann wäre Dir schnell aufgefallen, dass
a) der Code zu der Zeile gar nicht erst kommt (und auch gar nicht kommen kann)
b) schon die Zeile drüber einen Fehler ergibt
c) auch die Zeile selbst einen Fehler ergibt
So hilfst Du ganz sicher keinem.
Gruss, Jogy
AW: userform textboxinhalt verketten
14.10.2009 13:16:41
JogyB
Hi.
ActiveSheet.Cells(1, 1).Value = TextBox1.Value & "+"
Der Code hat sich auf das erste Tabellenblatt bezogen, außerdem hat da TextBox1 nichts verloren. Naja, und die Zwischenablage ist Zelle A1 auch nicht wirklich (Code für Kopie in Zwischenablage siehe unten).
Zudem ist "If i 0 Then" das Problem. Da Du i keinen Wert zuweist, ist das nicht erfüllt, es wird also die Else-Anweisung ausgeführt. Und wieso Du die TextBox erst in i schreibst und dann i in die Zellle, ist mir auch nicht klar. Eine Dimensionierung der TextBox ist auch Unsinn (insbesondere als UserForm), die gibt es oder eben nicht. Ich weiß nicht, der Code sieht nach ziemlichem Quark aus, wo hast Du den denn gefunden?
Und noch als Anmerkung zum Stil: Lass die Doppelpunkte in den Anweisungen, das macht den Code im Normalfall recht unübersichtlich. Das bringt allerhöchstens was, wenn Du z.B. mehrere gleichartige zweizeilige Anweisungen hast, die Du dadurch schöner gruppieren kannst.
Hier ist der Code, der das in die Zwischenablage kopiert: 
Private Sub CommandButton1_Click()
Dim myClipB As New DataObject
myClipB.SetText (TextBox1.Value & "+")
myClipB.PutInClipboard
End Sub
Gruss, Jogy
Anzeige
AW: userform textboxinhalt verketten
14.10.2009 13:34:44
MaxKuba
Hallo Jogy,
leider gehts immer noch nicht. Stell mich heute irgendwie doof an.
Im file siehst du eine Userform mit einer grossen textbox. In diese Textbox wuerde ich gerne Nummern aus unserer Datenbank einfuegen um diese dann mit (checkboxen) + und/oder * zu verknuepfen.
https://www.herber.de/bbs/user/65077.xls
Gruesse aus Indien,
Max
AW: userform textboxinhalt verketten
14.10.2009 13:39:23
JogyB
Hi,
sorry, ich kann hier nichts runterladen und heute abend bin ich weg... ich setze das mal auf offen, damit es sich jemand anders anschauen kann.
Gruss, Jogy
AW: userform textboxinhalt verketten
14.10.2009 13:55:27
Sven
Hab es mir mal angesehen.
Dieser Code hier funktioniert - aber es gibt da doch das ein oder andere Problem mit deiner Form. 
Private Sub CommandButton1_Click()
wert = TextBox1.Value
If wert  0 Then
If CheckBox1 = True Then wert = wert & "+"
If CheckBox2 = True Then wert = wert & "*"
Else
MsgBox "No data in Textbox!"
Exit Sub
End If
ActiveSheet.Cells(1, 1).Value = wert
End Sub

Es wäre in jedem Fall sinnvoll wenn du die beiden CheckBoxes in OptionBoxes verwandeln würdest damit immer nur eine davon ausgewählt ist - ansonsten kannst du nämlich problemlos zu einem Ergebnis ala 12345+* kommen - ob du das willst?
Mein Code ist sicher nix Dolles - aber das Prinzip sollte verständlich werden. ;)
Anzeige

299 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Ausgabe von Teilen des Zellinhaltes
Teilen

Hallo
Ich habe über SVERWEIS mir Zellinhalte aus einer großen Tabelle ausgeben lassen.
Nun möchte ich aber bei der Ausgabe nicht den gesamten Zellinhalt mir anzeigen lassen, sondern nur die ersten 4 Ziffern.
Ist das möglich?
Vielen Dank für die Hilfe
MfG
Andreas
...
14.08.2008 08:45:54
Thread-ID: 1001719
4 Beiträge
Anzeige
Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Autokorrektur abschalten
Pia

Guten Abend zusammen,
wie kann man eine Autokorrektur in Excel abschalten? Ich muss WEI eintippen aber jedesmal wenn ich mit Enter bestätigen, es wechselt automatisch zu WIE.
Vielen Dank
20.08.2008 21:03:44
Thread-ID: 1003317
7 Beiträge
Belegung Schaltfläche msgbox
Lars

Hallo,
kann ich bei einer msgbox die Schaltflächen auch selber benennen?
Ich würde gerne wissen, ob ein Wert ober- oder unterhalb eines Grenzwertes liegt und somit die Tasten "oberhalb" und "unterhalb" in der msgbox haben.
Lars
21.08.2008 14:10:31
Thread-ID: 1003485
4 Beiträge
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Pro Passwort eine Zeile freischalten...
amina

Hallo alle zusammen,
gibt es eine Möglichkeit in Excel pro Passwort eine Zeile freizuschalten.
Also z.b hab ich 20 Leute
1. Person = Zeile 1
2. Person = Zeile 2
usw.
und jede Person darf nur jeweils seine Zeile bearbeiten und die anderen bleiben gesperrt also so ähnlich...
21.08.2008 15:04:36
Thread-ID: 1003520
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
3
3
7
6
3
3
6
5
3
2
1
2
6
7
4
2
1
7
4
8
5
3