Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxeingabe-Zeilenverweis

Textboxeingabe-Zeilenverweis
21.01.2009 13:58:46
Dee
hallo ihr Lieben,
ich möchte eine Suchliste (300 Einträge in den Zeilen B1-B300, darunter auch Leerzeilen!) mit einer Textbox verknüpfen. Dabei habe ich daran gedacht, dass wenn man in der Textbox einen Begriff eingibt, das Tabellenblatt an die gewünschte Position springt, wo sich der Begriff befindet. Über ein zweites Steuerelement (CommandButton) möchte ich ggf. zu einem zweiten begriff springen, falls dieser das gleiche Wort auch in sich trägt.
Z.B. Eingabe: "Leben" - dann springe auf "Leben", wenn ich jetzt auf den Button drücke, dann soll er mir auch "Lebenswerk" anzeigen!
Kann mir bei diesem Problem jemand zu Hilfe eilen bitte ?
Ich danke Euch tausendmal
Dee:)

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxeingabe-Zeilenverweis
21.01.2009 14:56:00
Peter
Hallo Dee,
in der Mustermappe wird sollte das passieren,was du möchtest - nur mit Spalte C.
https://www.herber.de/bbs/user/58660.xls
Gruß Peter
AW: Textboxeingabe-Zeilenverweis
21.01.2009 16:43:40
Dee
Hallo Peter,
der Code funktioniert super! Ich würde nur ganz gerne, wenn die Zeilen im Modul ausgelesen werden
....
Application.Goto Reference:=Worksheets("Tabelle1").Range(myRange.Address), _
Scroll:=True
....,
dass nicht die A-Spalte ausgeblendet wird. Das Fenster springt nämlich genau auf den Wert in Spalte B und "fixiert quasi diesen Wert in der linken oberen Ecke"
Kann es sein, dass ich vielleicht myRange.Address und dann "minus eine Spalte" implementieren muss, um die erste Spalte nicht auszublenden (Diese erhält nämlich oberbegriffe für jeweils ca. 40 Unterbegriffe in Spalte B!
Ich hoffe, dass ich mich nicht zu unverständlich ausgedrückt habe, es klingt sehr kompliziert!
Ich bedanke mich für bereits erbrachte Hilfestellung,
Dee
Anzeige
AW: zu Spalte A gehen
24.01.2009 09:33:00
Erich
Hallo Dee,
probier mal, nachdem du die Application.Goto-Zeile geändert hast in
Application.Goto Reference:=.Cells(myRange.Row, 1), Scroll:=True
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: zu Spalte A gehen
24.01.2009 11:22:13
Dee
Hallo Erich,
vielen Dank für deine Idee. So sieht der Anfang des Makros aus:
Public Sub Weitersuchen()
Dim myRange As Range
Dim strAddress As String
Dim bolAbbruch As Boolean
With Worksheets("Tabelle1")
Set myRange = .Columns(2).Find(What:=Worksheets("Tabelle1").TextBox1.Value, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Address
UserForm2.TextBox1.Value = " " & myRange.Address(False, False)
Application.Goto Reference:=Worksheets("Tabelle1").Range(myRange.Address), _
Scroll:=True
Call UserForm2_anzeigen
Das Problem ist, dass sich myRange.Address auf die zweite Spalte bezieht und beim Application.GoTo Befehl die erste Spalte ausblendet. Ich habe deine Idee hier leider nur mit einer Fehlermeldung integrieren können.
Weisst Du evtl. weiter?
Liebe Grüße aus Emden,
Dee
Anzeige
AW: zu Spalte A gehen
24.01.2009 12:13:00
Gerd
Hallo Dee,
sowas?

Public Sub Weitersuchen()
Dim myRange As Range
Dim strAddress As String
Dim bolAbbruch As Boolean
Dim Sb As String
Sb = "Leben" 'test
With Worksheets("Tabelle1")
Set myRange = .Columns(2).Find(What:=Sb, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Address
UserForm2.TextBox1.Value = " " & myRange.Address(False, False)
Application.Goto Reference:=.Range(myRange.Address).Offset(0, -1), _
scroll:=True
Application.Goto Reference:=.Range(myRange.Address), scroll:=False
UserForm2.Show
End If
End With
End Sub


Gruß Gerd

Anzeige
AW: ohne Address
24.01.2009 12:19:00
Erich
Hi Gerd,
ist .Range(myRange.Address) etwas anderes als myRange ?
Dann ginge das wohl auch so:
Application.Goto Reference:=myRange.Offset(0, -1), scroll:=True
Application.Goto Reference:=myRange, scroll:=False
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: ohne Address
24.01.2009 12:37:00
Gerd
Hallo Erich,
stimmt.
Zum Testen musste ich vier andere Codezeilen abändern bzw. ergänzen.
Da habe ich dies glatt vernachlässigt. :-)
Gruß Gerd
AW: ohne Address
24.01.2009 13:36:02
Dee
Hallo Gerd, hallo Erich,
ich habe Euch beiden zu danken!
Viele Grüße, Dee
AW: zu Spalte A gehen
25.01.2009 00:23:02
Dee
Hallo Gerd,
mir fiel gerade noch eine kleine Herausforderung ein und eine Unmöglichkeit für meine derzeitigen Kenntnisse. Dies soll nicht zur Aufforderung zwingen. Ich habe darüber nachgedacht, die gefundene myRange.address, sprich den gefundene Begriff in der Spalte rot einzufärben irgendwie mit .Font.ColorIndex =3. Leider kann ich das schon wieder nicht integrieren ;(
Das wäre die absolute Krönung meiner Suchtabelle!
Alles Gute und liebe Grüße,
Dee
Anzeige
AW: zu Spalte A gehen - Fehler?
24.01.2009 12:15:15
Erich
Hi [wie auch immer du heißt],
den Anfang der Prozedur kannte ich ja nun schon - aus Peters Beispielmappe.
"Das Problem ist, dass sich myRange.Address auf die zweite Spalte bezieht
und beim Application.GoTo Befehl die erste Spalte ausblendet."
Genau das soll mein Vorschlag beheben.
"Ich habe deine Idee hier leider nur mit einer Fehlermeldung integrieren können."
WIE hast du das getan? WELCHE Fehlermeldung?
Bei mir funktioniert das einwandfrei mit
Application.Goto Reference:=.Cells(myRange.Row, 1), Scroll:=True
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Schriftfarbe
25.01.2009 19:28:00
Gerd
Hallo Dee,
irgendwo unter: If not myrange is nothing then ...
myrange.Font.Color = vbRed
Gruß Gerd
AW: Schriftfarbe
25.01.2009 22:07:38
Dee
Dank Dir Gerd!
Freundliche Grüße,
Dee

306 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 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:33:59
Thread-ID: 1000866
3 Beiträge
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
Anzeige
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
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge

Links zu Excel-Dialogen

CommandButton 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
5
2
2
4
5
3
5
9
4
3
5
1
2
30
3
11
1
2
5
2
2
6
4
6
1