Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxinhalt auf Tabellenblatt ändert sich

Textboxinhalt auf Tabellenblatt ändert sich
Uwe
Guten Abend an Alle,
folgendes Problem.....
in meinem Tabellenblatt "Eingabe" setzte ich in div. Zellen mit der rechten Maustaste einen Haken durch entsprechende formatierung.
Im Tabellenblatt "Sheet" habe ich div. Textboxen die dann ein "X" anzeigen sollen. 
Private Sub TextBox1_Change()
If Sheets(1).Cells(17, 2) = "ü" Then
TextBox1.Value = "x"
End If
End Sub

soweit geht das auch.
Aber wenn ich das Tabellenblatt "Sheet" drucken möchte, wandelt er mir die "X" wieder in die "ü" um, und druckt die dann auch aus.
Wie oder was müsste ich umstellen, damit die "x" bleiben beim drucken?
Hoffe ich konnte das einigermaßen anschaulich erklären.
Vorab schon mal Dank für die Hilfe!!!
Gruß Uwe

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

Betreff
Benutzer
Anzeige
nicht getetestet ...
14.06.2011 19:58:05
Matthias
Hallo Uwe
Einfach LinkedCell der Textbox leer lassen
Gib der Textbox gleich beim Ändern der Tabelle das "x" mit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell
.Font.Name = "Courier New" 'bitte anpassen
.ClearContents
TextBox1.Text = ""
End With
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell
.Font.Name = "Wingdings"
.Value = "ü"
TextBox1.Text = "x"
End With
End Sub

https://www.herber.de/bbs/user/75302.xls
Ich kann das leider nicht testen, da kein Drucker installiert ist, aber vielleicht hiltfs.
Userbild
Anzeige
ohne Stotterschrift: getetestet = getestet ;o) oT
14.06.2011 20:00:44
Matthias
AW: ohne Stotterschrift: getetestet = getestet ;o) oT
14.06.2011 20:09:02
Uwe
Guten Abend Matthias L,
vielen Dank für die super schnelle Hilfe!!!!
Aber eine Frage....... die Textbox liegt ja auf dem anderen Tabellenblatt "Sheet".
Kann ich das dann genau so verwenden?
Gruß Uwe
setzt das Objekt davor ...
14.06.2011 20:16:18
Matthias
Hallo
Gib doch dem Code das Objekt mit (hier Tabelle2)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell
.Font.Name = "Courier New"
.ClearContents
Tabelle2.TextBox1.Text = ""
End With
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell
.Font.Name = "Wingdings"
.Value = "ü"
Tabelle2.TextBox1.Text = "x"
End With
End Sub

Userbild
Anzeige
AW: setzt das Objekt davor ...
14.06.2011 22:55:48
Uwe
Hallo Matthias L,
hab jetzt mal mit meinem Laienhaften hin und her probiert. Komm da aber zu keinem brauchbaren Ergebnis.
Ich hab mal die Datei hoch geladen.
Es geht mir da um die gelben Zellen und der zuordnung zu dem anderen Sheet.
Wenn du das mal ausprobierst was ich da gebastelt habe, merkst du schon in der Druckvorschau das wieder die "ü" drin stehen.
Ich hoffe durch die Datei wird es was klarer.
Nochmals dank für deine Geduld!!!!
Gruß Uwe
https://www.herber.de/bbs/user/75303.xls
AW: setzt das Objekt davor ...
15.06.2011 01:02:05
Mustafa
Hallo Uwe,
machs doch ganz einfach mit der PasswordChar Eigenschaft der Textboxen :
schreibe dort dein "x" rein und du kannst sämtlichen Code der TextBoxen rauslöschen.
Userbild
Und den Code für das setzen der Zeichen kannst du auch so kürzen :
musst du nicht zwei Columns separat abfragen sondern einfach ein Oder verknüpfen :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 2 Or .Column = 6 Then
Cancel = True
If .Value = "ü" Then
.Value = ""
.Font.Name = "Arial"
Else
.Font.Name = "Wingdings"
.Value = "ü"
End If
End If
End With
End Sub
Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.
Anzeige
AW: setzt das Objekt davor ...
15.06.2011 01:25:52
Uwe
Guten Abend Mustafa, oder besser Guten Morgen :-)
hab das mal umgesetzt, und funktioniert bestens!!! ... das mit dem PasswortChar war mir kein Begriff.
Das kann man schon mal gut nachvollziehen für so einen Excelstümper wie mich :-)
Vielen Dank für die schnelle Hilfe!
Gruß Uwe
Danke für die Rückmeldung
15.06.2011 02:16:38
Mustafa
Wir haben alle mal klein angefangen ;-)
freut mich das ich dir helfen konnte.
Gruß Mustafa

303 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
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:34:08
Thread-ID: 1000867
5 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

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
2
4
6
3
4
5
5
3
3
9
10
4
2
3
3
7
2
14
5
2
5
1
7
2