Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefunden Text in TextBox ausgeben

Forumthread: gefunden Text in TextBox ausgeben

gefunden Text in TextBox ausgeben
08.12.2004 09:44:33
frank
und nochmal hi,
kann mir noch mal jemand helfen?
ich muß nun den gefundenen text in einer TextBox (VBA-Formular) ausgeben.
TextBox=Zelle geht aber nicht.
gruß frank
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefunden Text in TextBox ausgeben
Ramses
Hallo
Me.Textbox1 = ActiveCell.Value
oder
Me.Textbox1 = Range("A1").Value
Gruss Rainer
AW: gefunden Text in TextBox ausgeben
08.12.2004 09:55:27
frank
Hi,
geht leider nicht.
unzulässige anwendung des schlüsselwort me
gruß
frank
AW: gefunden Text in TextBox ausgeben
Ramses
Hallo
dann verwendest du auch kein Formular bzw. Userform.
Gib das doch als MsgBox aus.
Msgbox Activecell.Value
Gruss Rainer
Anzeige
AW: gefunden Text in TextBox ausgeben
08.12.2004 10:02:32
frank
Hi,
das geht nicht, ich will, wenn etwas gefunden wird das alle eigenschaften in den boxen stehen und diese auch verändert werden könne um sie dann wieder einzutragen.
ich verwende userform
gruß frank
AW: gefunden Text in TextBox ausgeben
Ramses
Hallo
dann funktioniert das mit
Me.Textbox1 = Range("A1")
auch.
Rufst du die Userform mit einem externen Makro auf, musst du stattdessen den Namen der Userform voranstellen
Userform1.Textbox1 = Range("A1")
Gruss Rainer
Anzeige
AW: gefunden Text in TextBox ausgeben
08.12.2004 10:10:46
frank
hi Rainer,
irgendwas mache ich wohl falsch.
wenn die zelle velassen wird:

Private Sub TextBox1_AfterUpdate()
Artikel_suchen (TextBox1)
End Sub

dann im modul:
Sub Artikel_suchen(intArtikelNummer As Double)
'Letzte gefüllte Zelle in Spalte "A":
lastRow = Range("A65536").End(xlUp).Row
'Letzte gefüllte Zelle in Zeile "1":
'lastCol = Range("IV1").End(xlToLeft).Column
For j = 2 To lastRow
If UserForm1.TextBox1 = ActiveSheet.Cells(j, 3).Value Then
' For i = 3 To Sheets("Kategorien").Cells(1, j).Value
' UserForm1.ComboBox4.AddItem Sheets("Kategorien").Cells(i, j).Value

' UserForm1.TextBox2 = ActiveSheet.Cells(j, 4).Value
UserForm1.TextBox2 = Range("F1")
End If
Next
End Sub
aber nichts passiert
gruß frank
Anzeige
AW: gefunden Text in TextBox ausgeben
Ramses
Hallo
"...aber nichts passiert..."
Kein Wunder :-)
Probier's mal so

Sub Artikel_suchen(intArtikelNummer As Double)
'Letzte gefüllte Zelle in Spalte "A":
lastRow = Range("A65536").End(xlUp).Row
For j = 2 To lastRow
'Sicherstellen dass du auf der richtigen Tabelle bist
'sonst
'Worksheets("Tabelle1").Cells(j, 3).Value
If ActiveSheet.Cells(j, 3).Value = intArtikelNummer Then
'Was steht in F1 ?
'Aus welcher Tabelle soll das genommen werden
UserForm1.TextBox2 = Range("F1")
'Sonst den Wert aus der gleichen Zeile nehmen
'UserForm1.TextBox2 = Worksheets("Tabelle1").Cells(j, f)
End If
Next
End Sub

Gruss Rainer
Anzeige
AW: gefunden Text in TextBox ausgeben
08.12.2004 10:21:14
frank
hi,
sorry das problem lag wo anders.
hab einem text mit 'ner zahl verblichen.
besten dank
gruß frank
AW: gefunden Text in TextBox ausgeben
max
Range("a1").select
activecell.formular1c1 = textbox
AW: gefunden Text in TextBox ausgeben
08.12.2004 10:04:45
frank
Hi Max,
ich verstehe das nicht so ganz.
kannst du mir vieleicht erklären was du genau meinst?
gruß frank
Anzeige
;

Forumthreads zu verwandten Themen

Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
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
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Anzeige
Text in Spalte nicht Spalte sondern Bereich
mehmet

Hallo Forum,
ich habe mit dem Makrorekorder "Text in Spalte" aufgezeichnet.
Wollte diese nun ändern für ein Bereich (Q4:Q60) statt Spalte (Q:Q).
Warum geht das nicht?
Private Sub CommandButton1_Click() ' Makro1 Makro ' Makro am 20.11.2008 von pc aufgezeichnet Sheets("Tabelle4"...
20.11.2008 17:10:38
Thread-ID: 1026492
3 Beiträge
Text in Textbox an Cursorposition einfügen
Peter

Hallo zusammen,
ein Problem mit einer Textbox beschäftigt mich nun schon eine ganze Zeit. Vielleicht habt Ihr ja eine Idee zur Lösung ...
Ich schreibe eine Anwendung mit einer Userform. Auf der Userform ist eine Listbox und eine Textbox. Per Doppelklick auf einen Eintrag in der Listbox...
26.11.2008 15:45:07
Thread-ID: 1028071
3 Beiträge
Von Textbox 27 Werte in Textbox 29
Heinz

Guten morgen Leute
Im unteren Code kann ich in Textbox27 eine 5 stellige Zahl eingeben,der mir dann im Worksheets("Artikeln") in Spalte A den übereinstimmenden Wert sucht.
Nun möchte ich aber das mir der Wert von Spalte B in Textbox29 anzeigt.
Z.B. Gebe in Textbox27 12345 ein, und...
09.01.2009 07:31:11
Thread-ID: 1038086
3 Beiträge
Text in Textbox kurze Zeit zeigen, dann lpöschen
Ramon

Hallo zusammen,
ich habe eine Datei, in der man sich per AutoFilter und Buttons (blenden Spalten ein und aus)
einen Bericht "stricken kann" und diesen dann per Knopfdruck in eine neue Datei kopieren kann.
Also nur die sichtbaren Zellen!
Damit der Benutzer eine Rückmeldung bekomm...
27.01.2009 12:55:00
Thread-ID: 1044191
4 Beiträge
Zelle suchen + umliegenden Bereich in neue Tabelle
Schulze

Guten Tag zusammen,
ich bräuchte ein Makro, welches mir nach einem bestimmten Suchwort jede Zelle ausliest und diesen Inhalt mit einem darüber und darunter liegenden Bereich in die Tabelle2 untereinander kopiert.
Das Suchwort kommt natürlich in der Tabelle 1 Bereich A1:A65536 mehrmals v...
17.02.2009 15:51:00
Thread-ID: 1051532
4 Beiträge
Anzeige
Anzahl gleicher Texte in einem Zellbereich
Rolf

Hallo Cracks,
ist schon jemand wach?
Meine Frage: Welche Tabellenfunktion zählt mir, wie viele unterschiedliche Texte in einen Zellbereich vorkommen?
Analog zu der Funktion "Anzahl", die die Anzahl von Zahlen ermittelt.
Danke!
Rolf
25.02.2009 08:07:10
Thread-ID: 1053731
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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