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

Inhaltaus TextBox von Prozedur auslesen

Forumthread: Inhaltaus TextBox von Prozedur auslesen

Inhaltaus TextBox von Prozedur auslesen
27.10.2004 23:37:03
Prozedur
Moin
Ich möchte Werte aus einer Textbox von einer Prozedur auslesen und einer Variabel zuweisen. (p = Inhalt Textbox)
Die Textbox enthält einen Wert, der ihr aus einer Listbox zugewiesen wurde.
Wie muss ich vorgehen?
Besten Dank im voraus.
Ric
Anzeige
AW: Inhaltaus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
warum möchtest du 2mal mal etwas auslesen, wenn du den Wert der Listbox schon hast?
Mathias
AW: Inhalt aus TextBox von Prozedur auslesen
27.10.2004 23:56:46
Prozedur
Moin
Der Wert in der Textbox dient der Kontrolle, danach soll mit einem Commantbutton der Wert weiter "verarbeitet" werden.
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo,
deklariere dir eine Variable z.B. x
Dim x as String 'bei Text
Dim x as Integer 'bei Zahlenwerten
Textboxwert setzen
z.B.
x=Textbox1.Value
jetzt kannst du mit der Variable x weiter arbeiten.
Gruß Mathias
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
Bekomme nur den Fehler Objekt nicht vorhanden.
p = TextBoxtxtPNr.Value
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo,
kurze Frage, wo liegt deine Textbox?
In einer Userform oder auf einem Tabellenblatt?
Wenn sie in einer Userform liegt, muss das Synonym lauten: Textbox1 (die 1 steht für die Anzahl der Textboxen, in diesem Fall wäre es die erste.
Liegt deine Textbox in einem Tabellenblatt so musst genau festlegen in welchem Z.B.
x=Sheets("Tabelle1").Textbox1.Value
in deinem Fall das -txtPNr- in Textbox durch eine Zahl ersetzen, ansonsten kann Excel das auch nicht finden.
wenns nicht klappt, schick mir deinen Excelsheet per Mail an mathias.laeber@t-online.de und ich schau was ich machen kann.
MatjesL
Anzeige
Nachfrage
PeterW
Hallo Mathias,
seit wann müssen auf einem Uerform die Textboxen durchnummeriert werden? Man kann auch Namen vergeben wie "txtPNr" und die Box über diesen Namen ansprechen.
Und unabhängig davon stehen in Textboxen immer Texte (daher die Bezeichnung). Wenn Variable zum Einlesen des Boxinhaltes dimensioniert werden dann müssen die ohne Umwandlungsfunktionen zu benutzen immer vom Typ String sein.
Gruß
Peter
Anzeige
AW: Hallo Peter
MatjesL
Hallo Peter,
du hast Recht, wenn ich das bei mir so mache, dann heisst das noch lang nicht, das das andere so machen müssen.
Gruß Mathias
AW: Nachfrage
Ric
Moin
Auch String brachte keinen Erfolg!
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
Textbox1 ist der Index der Textbox, den ich, der Übersicht halber, durch txtPNr ersetzt habe.
Textbox liegt auf Userform.
Dim p as Variant ergibt Typen unverträglich
Dim p as Single ergibt Objekt ervorderlich
Set p = txtPNr.Value
Ric
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
dimensioniere p as String und weise direkt zu
p = txtPNr
Gruß
Peter
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
Bekomme jetzt die Meldung "ungültiger Bezeichner"!
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
gehe in den VBA-Editor, im Projektfenster Doppelklick auf dein Userform. Wenn nicht sichtbar blende die Eigenschaften ein (F4). Überprüfe den Namen der TextBox.
Wenn es keine Abweichungen gibt poste mal den Code, mit dem du der Variablen der Inhalt der Textbox zuweisen möchtest.
Gruß
Peter
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin

Private Sub cmdsuchen_Click()
Dim p As String
p = txtPNr
Sheets("Übersicht").Activate
Call suchen
p.Select
Name stimmt überein.
End Sub

AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
lass dir im Code mal p ausgeben, also
p = txtPNr
MsgBox p
Sheets.....
Wenn dir p richtig angezeigt wird liegt der Fehler wohl in Code "Suchen", der nach p suchen soll dem aber p nicht als Variable übergeben wird.
p.Select kann widerum nicht funktionieren, wenn p kein Range ist. Wenn du also in die Textbox sowas wie A5 eingibst dann
Dim p as Range
Set p = Range(txtPNr)
p.Select
Gruß
Peter
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
In MsgBox wird der Wert richtig ausgegeben.
Hatte ich vorher auch schon probiert allerdings ohne Dim p As String.
Range wird durch Call suchen übergeben.
In diesem Bereich soll nach p gesucht und select werden.
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
mit Call suchen
wird überhaupt nichts übergeben! Soll im Bereich, der in "suchen" festgelegt wird nach p gesucht werden und die Fundstelle zurückgeliefert werden dann wäre das eine Aufgabe für eine Function.
In deinem Code könnte das dann so aussehen

Private Sub CommandButton1_Click()
Dim p As String
p = Range(txtPNr).Address
Range(psuchen(p)).Select
End Sub

Function psuchen(p As String) As String
'nur als Dummy benutzt
psuchen = Range(p).Offset(1, 0).Address
End Function
Gruß
Peter
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
Das meine Methode nicht klappt hab ich mir fast gedacht.
Bekomme jetzt den Fehler Die Methode Range für das Objekt Global ist fehlgeschlagen!
Ric
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Hallo Ric,
wenn ich auf deinen Monitor sehen könnte wüsste ich zumindest, in welcher Zeile in welchem Code der Fehler auftritt. Ohne kompletten Code wird das so nichts. Und wenn der Code umfangreich ist wird das zumindest mit mir auch nichts - das würde den Rahmen des Forums sprengen. Mein Rat an dich: starte einen neuen Thread mit genauer Aufgabenbeschreibung, deinem vorhandenen Code und einem Link auf diesen Thread.
Es gibt genug Antworter hier, die nur darauf warten, dir eine Komplettlösung per Beispielmappe zu erstellen. :-)
Gruß
Peter
Anzeige
AW: Inhalt aus TextBox von Prozedur auslesen
Prozedur
Moin
Jo, danke für Deine Mühe!
Ric
Danke & Lösung
Ric
Moin
Bedanke mich hiermit nochmal bei allen die mir direct oder indirect bei der Lösung meines
Problems geholfen haben.
Lösung (eine)

Private Sub cmdsuchen_Click()
Set n = ActiveSheet
Sheets("Übersicht").Select
Call suchen
n.select
End Sub

-------------
Public Sub suchen()
Dim p As String
p = txtPNr1
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Set bereich = Range("3:3")
For Each c In bereich
If c = p Then
c.Select
End If
Next c

End Sub
Ric
Anzeige
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Anzeige
Zahl aus Text
Holger

Hallo Leute,
heute hab ich mal wieder ein Problem.
Habe mir per Webabfrage Zahlen aus dem Netz in meine Tabelle eintragen lassen. Zahlen sind maximal 4-stellig vor dem Komma und mehrere Stellen rechts vom Komma. Leider kann man diese Zahlen nicht für weitere Berechnungen verwenden. Ich...
13.10.2008 08:44:00
Thread-ID: 1015926
3 Beiträge
Anzeige
Kommagetrennte Werte in einer Zelle
Martin

Hallo zusammen,
Ich habe folgendes Problem:
Zahlen/Werte die jeweils in einer Zelle stehen und mittels Komma (und Leerzeichen) getrennt sind, will ich einzeln untereinander in eigene Zellen verfrachten, für jeden Wert eine Zelle. Da ich hunderte solcher Zellen habe mit unterschiedlich v...
14.11.2008 13:33:53
Thread-ID: 1024555
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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