Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform und Textbox

Userform und Textbox
22.08.2003 11:21:37
Damian
Hallo Zusammen,
ich habe folgendes Problem.
Ich habe eine Userform erstellt. Sieht folgendermaßen aus.
oben 4 Textboxen zur Eingabe der Kostenstellen
darunter 4 Textboxen zur Eingabe der Anzahl der Angestellten
darunter 4 Textboxen zur Eingabe der Anzahl der gewerb. Mitarbeiter
In den oberen 4 Textboxen sollen Kostenstellen eingegeben werden, diese in einem Arbeitsblatt gesucht werden, um die dazugehörige Anzahl der Mitarbeiter
die ich in der Userform eingegeben wieder im Excel auszugeben.
habe leider erst gestern mit VBA angefangen, deshalb sind meine Kenntnisse
auch "bescheiden".
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform und Textbox
22.08.2003 12:05:17
Andy B.
Hallo Damian,
probier es mal hiermit. Er sucht in der Spalte A nach der ersten Kostenstelle undschreibt in die Zelle direkt daneben, also Spalte B, die Anzahl der Angestellten und in die Spalte C die Zahl der Gewerblichen, die Du vorher in die entsprechenden Felder des Userforms geschrieben hast. Um alle 4 Kostenstellen auf einmal zu machen, mußt Du den Quelltext nur viermal hintereinander schreiben. Beachte aber bitte, daß Du dabei 4 Variablen (strsuchen1-4) definieren mußt. Und leichter wird es auch, wenn Du den Textboxen einfache Namen gibst, wie z.B. txtKst1, txtAngestellte1, txtGewerbliche1 usw. Dann verlierst Du dabei nicht den Überblick.

Private Sub cmdSuchenName1_Click()
Dim strSuchen As Variant
strSuchen = {Name Textbox Kostenstelle1}
If strSuchen = False Then
GoTo errorhandler
Exit Sub
Else
On Error GoTo errorhandler
Worksheets("Tabelle1").Columns("A").Find(what:=strSuchen).Activate
ActiveCell.Offset(0, 2).Value = {Name Textbox Mitarbeiter1}
ActiveCell.Offset(0, 3).Value = {Name Textbox Gewerbliche1}
errorhandler:
MsgBox ("Der Name wurde nicht gefunden")
End If
End Sub

Viel Spaß damit.
Gruß
Andy

Anzeige
AW: Userform und Textbox
22.08.2003 13:45:07
Dami
Hallo Andy,
ich habe den Code folgendermaßen angepasst, funktioniert aber nicht. Es kommt die
Meldung der Name wurde nicht gefunden. Konnte leider nicht festellen wo der Fehler liegt.
Danke

Private Sub cmdOK_Click()
Dim strSuchen1 As Variant, strSuchen2 As Variant, strSuchen3 As Variant, strSuchen As Variant
strSuchen1 = txtkst1
strSuchen2 = txtkst2
strSuchen3 = txtkst3
strSuchen4 = txtkst4
If strSuchen1 = False Then
GoTo errorhandler
Exit Sub
Else
On Error GoTo errorhandler
Worksheets("Neues Produkt").Rows("1").Find(what:=strSuchen1).Activate
ActiveCell.Offset(4, 2).Value = FTE1
ActiveCell.Offset(5, 2).Value = FTE2
errorhandler:
MsgBox ("Der Name wurde nicht gefunden")
End If
End Sub


Anzeige
AW: Userform und Textbox
25.08.2003 09:55:46
Andy B.
Hallo Damian,
laut der Meldung findet er den Eintrag auf dem anderen Tabellenblatt nicht.
In welchem Format sind die Kostenstellen auf dem Blatt "Neue Produkte" - als Zahl oder als Text? Wenn sie als Zahl formatiert, probier das Makro noch mal und definier die strSuchen nicht als Variant, sondern als Integer.
Gruß
Andy

AW: Userform und Textbox
25.08.2003 10:11:43
Damian
Hallo Andy,
habe den Code angepasst, da meine Kostenstellen als Zahl eingegeben werden.
Funktioniert immer noch nicht.
Gruß
Damian

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige