Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

tabellenwerte in Userform anzeigen und ändern

tabellenwerte in Userform anzeigen und ändern
28.10.2014 11:39:55
Lisa
Hallo zusammen, ich habe von Mathias L folgenden Code in diesem Forum gefunden.
Mittels diesen Codes, kann man über einer TextBox in einer UserForm Daten aus einer Tabellencelle finden ändern und speichern.
Ich würde diesen gern für mich nutzen.
Vielen Dank übrigens an Mathias L,
Martine für den du dir die Mühe gemacht hast hat darauf nie geantwortet.
Nun habe ich eine Frage zur Anwendung. Ich müsste bitte auf ein Tabellenblatt zugreifen, Beispielsweise Tabelle3. Wie kann ich die Tabelle hier angeben?
Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
If Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
'TextBox2 = Range("B" & MyRow).Value
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub
Vielen Dank für Eure Mühe
LG Lisa

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

Betreff
Datum
Anwender
Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 11:58:28
yummi
Hallo Lisa,
immer direkt vor der Zelle oder Range die du meinst.
z.B.
Sheet("Tabelle3").Cells(myRow,1) = TextBox1.Text then
Gruß
yummi

AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 12:21:01
Lisa
Hallo yummi, vielen Dank für die schnelle Antwort.
Ich habe es mal umgesetzt, aber die Tabelle 3 wird hier nicht berücksichtigt.?
Habe ich die Umsetzung evtl. falsch verstanden?
Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
If Sheets(3).Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
'TextBox2 = Range("B" & MyRow).Value
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub
LG Lisa

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 12:29:50
yummi
Hallo Lisa,
im Prinzip richtig. Es wird das 3. Sheet angesprochen, welches das bei dir ist weiß ich nicht, es kann auch ein anderes als Tabelle3 sein.
Ein einfacher "Trick" wenn du wissen willst worauf du zugreifst:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
Sheets(3).Activate
Sheets(3).Cells(MyRow, 1).Select
If Sheets(3).Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
'TextBox2 = Range("B" & MyRow).Value
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub
Dann kannst Du sehen, ob Du wirklich auf das Feld zugreifst, welches Du meinst. Die beiden Zeilen kannst Du, wenn alles ok ist wieder entfernen. Wenn Du das Sheet direkt mit Namen ansprichst, kannst Du sicher sein, dass Du auch das richtige bekommst (Sheet("Tabelle3") oder wie auch immer das richtige Sheet bei dir heisst)
Gruß
yummi

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 13:30:01
Lisa
Hallo yummi, ich habe diesen Code ausprobiert und wenn die Tabelle3 aktiviert wird, funktioniert es.
Nun wenn es nicht anders funktioniert muss es so gehen, schöner wäre es aber das die Tabelle3 in der ich letztlich Daten ändern will, die ja nur eine Grunddatentabelle- und ausgeblendet ist.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
'Sheets(3).Activate
'Sheets(3).Cells(MyRow, 1).Select
If Sheets(3).Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub

Sheets(3) ist auch Tabelle3
Ich habe die Mappe mal testweise angehängt.
https://www.herber.de/bbs/user/93416.xls
LG Lisa

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 13:52:02
yummi
Hallo Lisa,
es liegt an deienr Zuweisung zum ControlSource. Dort sprichst du nur die gerade aktive Tabelle an. Ich hab mal beide Möglichkeiten angegeben, sie gehen beide.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow As Long
For MyRow = 1 To 3
'Sheets(3).Activate
'Sheets(3).Cells(MyRow, 1).Select
If ThisWorkbook.Sheets("Tabelle3").Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = ThisWorkbook.Sheets("Tabelle3").Name & "!B" & MyRow
TextBox3.ControlSource = ThisWorkbook.Sheets(3).Name & "!C" & MyRow
Exit For
End If
Next
End Sub
Gruß
yummi

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 14:51:36
Lisa
Hallo yummi, auch das funktioniert nun wie ich es mir vorgestellt habe.
Vielen Dank für die Bemühungen.
LG Lisa

AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 12:35:37
Matthias
Hallo
Ist denn Sheets(3) auch "Tabelle3" ?
Wenn ja, dann mußt Du auch vor Range sauber referenzieren.
Das hatte yummi aber schon erwähnt.
Mach das aber nicht mit dem Index also Sheets(3), sondern mit dem CodeNamen der Tabelle
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
If Tabelle3.Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
'TextBox2 = Tabelle3.Range("B" & MyRow).Value
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub

Vor ControlSource müsste dann wahrscheinich auch noch Der Tabellenname geschrieben werden.
Nach diesem Motto:
TextBox3.ControlSource = "Tabelle3!C" & MyRow
Gruß Matthias

Anzeige
kannst Du den Link schicken
28.10.2014 12:02:47
Matthias
Hallo Lisa
Ich muss erst schauen aus welchem Beitrag der Code stammt und ob ich noch eine Datei dazu habe.
Kann micht nicht immer an alles erinnern.
Bin jetzt noch ca. ne halbe Stunde online.
Ich schaue heute abend noch mal rein
Evtl. reicht aber auch das schon
If Tabelle3.Cells(MyRow, 1) = TextBox1.Text Then oder'...
If Worksheets("Tabelle3").Cells(MyRow, 1) = TextBox1.Text Then'...
Wie geschrieben mir fehlt im Moment die Zuordnung, wo Du den Code gefunden hast.
Du kannst aber auch Deine Datei hochladen.
Gruß Matthias

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 12:27:37
Lisa
Hallo zusammen,
also ich könnte hier auch die Tabelle im Vorfeld aktivieren, nur das wollte ich irgendwie vermeiden.
Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(3).Activate
Dim MyRow&
For MyRow = 1 To 3
If Cells(MyRow, 1) = TextBox1.Text Then
TextBox2.ControlSource = "B" & MyRow
'TextBox2 = Range("B" & MyRow).Value
TextBox3.ControlSource = "C" & MyRow
Exit For
End If
Next
End Sub

LG lisa

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 13:40:43
Ewald
Hallo Lisa,
teste mal
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyRow&
For MyRow = 1 To 3
If Sheets(3).Cells(MyRow, 1) = TextBox1.Text Then
Me.TextBox2.ControlSource = Sheets(3).Name & "!" & Cells(MyRow, 2).Address(0, 0)
Me.TextBox3.ControlSource = Sheets(3).Name & "!" & Cells(MyRow, 3).Address(0, 0)
MsgBox TextBox2.ControlSource
Exit For
End If
Next
End Sub
Wenn die Msgbox die richtige Tabelle anzeigt, kannst du die Zeile löschen
ansonsten weißt du wo der Fehler liegt.
ein Aktivieren der Tabelle ist nicht notwendig
Gruß Ewald

Anzeige
AW: tabellenwerte in Userform anzeigen und ändern
28.10.2014 14:49:40
Lisa
Hallo Ewald, besten Dank, das funktioniert wie gewollt.
LG Lisa

313 Forumthreads zu ähnlichen Themen

Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Anzeige
Pivot Tabellen weiter auswerten
Christoph

Hallo,
ich werte meine Dienstleistungen, die aktenzeichenbezogen in eine Liste eingegeben werden mit Hilfe einer Pivottabelle aus. D.h. ich gebe in einer fortlaufenden Tabelle (mit inzwischen 6000 Zeilen !!!) Datum, Aktenzeichen, Modul und Zeit (01:30) ein. Insgesamt gibt es 5 Beratungsmod...
26.02.2009 14:18:54
Thread-ID: 1054384
3 Beiträge
Pivot Tabelle mit Selektion
René

Hallo alle zusammen,
ich habe ein großes Problem und zwar muss ich einen Vorgang bei uns in der Firma erleichtern, dieser bezieht sich auf die Personaldaten,welche in excel hochgeladen werden sollen und von dort aus in eine bestimmte Reihenfolge gebracht werden sollen zur weiteren bearbeitu...
05.03.2009 11:01:37
Thread-ID: 1056713
7 Beiträge
Anzeige
Pivot: Text- statt Zahlenformat nach Import
Heike

Guten Tag,
nach Import von Daten aus Access steht ein Feld bei mir im Text- statt Zahlenformat und
ist dadurch auch nicht richtig sortiert. Wie kann ich dies beheben? Ich habe versucht,
bereits beim Laden der externen Daten gleich zu sortieren, hat auch nichts gebracht.
Verwend...
27.03.2009 13:30:28
Thread-ID: 1064605
2 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Pivot Tabelle mit Formatierungen
Roland

Hallo zusammen,
ich habe in einer Pivot Tabelle in einer Spalte vereinzelte Zellen formatiert ( Schrift FETT, Hintergrundfarbe)
Wenn ich nun in einer andern Zelle in der Spalte links davon den Autofilter benutze, werden diese Formatierungen in besagter Zelle wieder verworfen.
Kann...
29.06.2009 09:49:30
Thread-ID: 1084655
5 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Pivot Tabelle auswerten mit Problemen
DieterL

Hallo Excelfreunde,
Ich habe eine ganz normale Pivot Tabelle und möchte mir das Ergebnis aus der rechten unteren Zelle zusätzlich in einer anderen Zelle oberhalb anzeigen lassen. Aber egal was ich mache, nach dem verlinken erscheint immer eine null. Auch die Daten aus dem Pivot Datenbereich...
03.09.2009 11:55:32
Thread-ID: 1100292
6 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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