Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Zelle Wert und Text einsetzen

Forumthread: In Zelle Wert und Text einsetzen

In Zelle Wert und Text einsetzen
19.05.2017 09:51:15
walter
Guten Morgen,
ich möchte gern ein Zeichen in eine Zelle setzen und
als Anhang dazu ein Zeichen.
Hier mein Beispiel welches nicht funktioniert: 
Private Sub TextBox1_AfterUpdate()
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value + ":\"
Me.TextBox1.Value ":\" = ActiveSheet.Range("AA2").Value
End Sub
mfg
walter ph
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Zelle Wert und Text einsetzen
19.05.2017 10:04:28
Michael
Hallo!
Das Verketten von Strings erledigt das "&" nicht das "+" - das ist zum Rechnen da:
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\"
LG
Michael
AW: In Zelle Wert und Text einsetzen
19.05.2017 10:29:14
Werner
Hallo Walter,
wie Michael schon geschrieben hat zum Verketten das & und nicht das +
Was du mit deiner zweiten Codezeile in die Textbox schreiben willst ist mir nicht so ganz klar, ich vermute mal du meinst das so:
Private Sub TextBox1_AfterUpdate()
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\"
Me.TextBox1.Value = ":\" & ActiveSheet.Range("AA2").Value
End Sub
Gruß Werner
Anzeige
Danke Michael und Werner -)
19.05.2017 12:14:49
walter
Hallo Michael und Werner,
danke für den Tip.
So klappt es:
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\"
Me.TextBox1.Value = ActiveSheet.Range("AA2").Value
walter ph
Danke Michael und Werner -)
19.05.2017 12:15:24
walter
Hallo Michael und Werner,
danke für den Tip.
So klappt es:
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\"
Me.TextBox1.Value = ActiveSheet.Range("AA2").Value
walter ph
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
19.05.2017 12:35:13
Werner
Habe leider ein Problem, bitte nochmal !
19.05.2017 13:47:27
walter
Hallo zusammen,
bei der 1.Textbox sollte immer nur :\ einmal angefügt werden.
bei der 2. Textbox nur 1x= "\" angehängt werden,
jedesmal wenn ich die Textbox wieder verlasse ohne Änderung passiert dies.
Wie kann mal dies abfangen ?
Anbei die 2 Makros:
' 

Private Sub TextBox1_Change()
'


Private Sub TextBox1_AfterUpdate()
'


Private Sub TextBox1_Enter()


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\"   'so setzt direkt ein
Me.TextBox1.Value = ActiveSheet.Range("AA2").Value
'  ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ActiveSheet.Range("Y2").Value
' Me.TextBox1.Value = ActiveSheet.Range("AA2").Value
Me.Label13 = ActiveSheet.Range("R2").Value
End Sub




Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("AB2").Value = Me.TextBox2.Value & "\"
Me.TextBox2.Value = ActiveSheet.Range("AB2").Value
Me.Label13 = ActiveSheet.Range("R2").Value
End Sub


mfg

walter ph
Anzeige
AW: Habe leider ein Problem, bitte nochmal !
19.05.2017 17:50:33
ChrisL
Hi Walter
Einmal...
If Right(ActiveSheet.Range("AB2").Value, 1)  "\" Then _
ActiveSheet.Range("AB2").Value = ActiveSheet.Range("AB2").Value & "\"
und...
https://www.herber.de/forum/archiv/576to580/577306_Alle_Zellen_in_Bereich_verketten_mit_Trennzeichen.html 
Sub t()
MsgBox Verketten2(Range("AB5:AK5"))
End Sub
benutzerdefinierte Funktion von Sepp: 
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng  "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function
cu
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Text in Lotos einsetzen
Walter

Guten Morgen Fachfrauen u. Männer,
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hi...
26.08.2008 11:25:52
Thread-ID: 1004731
12 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Anzeige
Text in Namen ersetzen
Lorenz

Hallo!!
Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
20.01.2009 20:30:17
Thread-ID: 1041986
15 Beiträge
Formel und Text (Tage) einsetzen
Leon

Hi
Wie kann ich in einer Formel den Text (Tage) noch dazu schreiben:
Zelle A1/Zelle B2 gibt mir z.B Wert 39
Dahinter soll noch Tage stehen.
Kann mir Jemand helfen?
Gruß
Leon
06.02.2009 20:26:00
Thread-ID: 1047897
6 Beiträge
cursor am anfang eines textfeldes einer UF setzen
Holger

Hallo liebe Excelgemeinde,
ich versuche verzweifelt den cursor beim öffnen einer UF an den anfang einer Textbox zu plazieren und bekomme es nicht hin.
zu erklärung
in die textbox werden über userform_initialized daten geladen
textbox ist mit scrollbars versehen um daten ansehen...
10.03.2009 23:42:17
Thread-ID: 1058894
9 Beiträge
Doppelte Einträge in Formel nicht berücksichtigen
Claudia

Hallo zusammen,
in Spalte A (ab Zeile 2) befinden sich Kundennummern - viele davon mehrfach.
Kann mir jemand mit einer Formel helfen, dass jede Kundennummer nur einmal gezählt wird, sprich doppelte Einträge sollen nicht berücksichtigt werden.
Beispiel
1234
5423
1234
...
20.05.2009 10:30:17
Thread-ID: 1076270
9 Beiträge
Anzeige
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Text als Formel
chrissey

Hey Leut,
hab folgendes Problem:
Hab in Spalte C folgenden Text:
50*3,2+8,4
möchte nun diesen Text in Spalte F berechnet haben. Wie mach ich das,
weil =C1 oder ="="&C1 geht net.
Grüße und DANKESCHÖÖÖÖN schon mal
09.08.2009 18:29:54
Thread-ID: 1094551
5 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Formel als Text in Variable schreiben
Frank

Hallo zusammen,
in Zelle A1 habe ich eine einfache Formelverknüpfung in eine andere Datei. Sie sieht so aus:
='\\dfs\es-groups\cor\uhh\blabla\01_Forecast\2009\12_09\[datei.xls]2009'!A1
besteht die Möglichkeit die gesamte Formel (nicht das Ergebnis der Formel) in eine Textvariable zu...
27.11.2009 14:51:54
Thread-ID: 1120544
11 Beiträge
Anführungszeichen in Formel notwendig
Rene

Hallo Zusammen
Ich habe eine Formel, die ich so einsetzen muss:
=bpContent("Grob, Rene";"_phone")~f~ --> Im Hintergrund läuft dann via ein Add-In eine DB-Abfrage und in der entsprechenden Zelle wird mir dann die "phonenummer" reingeschrieben.
Ich möchte nun mit dieser Form...
15.12.2009 10:44:33
Thread-ID: 1123976
18 Beiträge
UF Textbox in das richtige Format setzen
Heinz

Hallo Leute
Ich teste jetzt schon ca.3 Stunden um UF Textboxen in das richtige Format zu setzen.
Ich möchte das man nur dasFormat zB. "08,50" oder "12,50" eingeben kann.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Private Sub txtMoAZvon_Exit(ByVal Cancel As MSForms.Retur...
05.01.2010 20:42:57
Thread-ID: 1127442
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige