Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge links und rechts von markierter Zelle

Einträge links und rechts von markierter Zelle
29.11.2019 10:16:26
markierter
Hallo,
In Spalte F wird eine beliebige Zelle markiert und hierdurch ein UF aufgerufen. Wäre denkbar, dass die Inhalte von Comboboxes sowie Textboxes links und rechts der markierten Zelle (gleiche Zeile) über die Schaltfläche Eintragen in vorgegebene Spalten übernommen werden?
Combobox1 = Spalte A
Combobox2 = Spalte B
Textbox1 = Spalte C
Textbox2 = Spalte D
Textbox3 = Spalte E
Combobox3 = Spalte I
Herzlichen Dank schon jetzt für die Rückmeldungen und viele Grüße - Wolfgang

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einträge links und rechts von markierter Zelle
29.11.2019 10:18:30
markierter
Hallo,
klar mit .offset.
Wenn du deine Datei postest mit dem Code, den du schon hast, kann man dir das zeigen.
Gruss Torsten
AW: Einträge links und rechts von markierter Zelle
29.11.2019 10:27:03
markierter
Hallo
Option Explicit 
Sub eintragen()
If ActiveCell.Column = 6 Then
Cells(ActiveCell.Row, 1) = ComboBox1
Cells(ActiveCell.Row, 2) = ComboBox2
Cells(ActiveCell.Row, 3) = TextBox1
Cells(ActiveCell.Row, 4) = TextBox2
Cells(ActiveCell.Row, 5) = TextBox3
Cells(ActiveCell.Row, 7) = ComboBox3
End If
End Sub
Gruß Matthias
kleine Korrektur für ComboBox3
29.11.2019 10:36:13
Matthias
Für ComboBox3 natürlich Cells(ActiveCell.Row, 9), sorry
Danke, Matthias - ergänzende Frage noch
29.11.2019 13:17:46
Wolfgang
Hallo Matthias,
vielen vielen Dank für Deine schnelle Rückmeldung und Deine Arbeit. Ich habe mein UF entsprechend angepasst und es funktioniert einwandfrei.
Ich hätte noch eine ergänzende Frage, die ich nicht bedacht hatte. Wenn ich die Daten nun entsprechend im Tabellenblatt eingepflegt habe und das UF in der Zeile erneut aufrufe, bleiben die Boxes leer. Gibt es da evtl. eine Möglichkeit, dass sofern sich in der jeweiligen Zelle bereits Text befindet, dieser dann in der jeweiligen Box erscheint? - Hierzu auch schon jetzt meinen Dank! - Herzliche Grüße - Wolfgang
Anzeige
Hat sich erledigt - Code von Hansueli
29.11.2019 13:27:43
Hansueli
Hallo Matthias,
mich noch weiter mit den Beiträgen zu befassen, meine ich festgestellt zu haben, dass der Code von Hansueli genau meine ergänzende Frage beantwortet und das macht, was ich mir vorstellte.
Vielen Dank und Herzliche Grüße - Wolfgang
AW: Einträge links und rechts von markierter Zelle
29.11.2019 10:27:43
markierter
Hallo Wolfgang,
In das Klassenmodul der Userform: 
Private Sub UserForm_Activate()
Dim lRow As Long
lRow = ActiveCell.Row
ComboBox1 = Cells(lRow, 1).Text
ComboBox2 = Cells(lRow, 2).Text
TextBox1 = Cells(lRow, 3).Text
TextBox2 = Cells(lRow, 4).Text
TextBox3 = Cells(lRow, 5).Text
ComboBox3 = Cells(lRow, 9).Text
End Sub
Gruess Hansueli
Anzeige
ooops, lesen statt schreiben ;-) (owT)
29.11.2019 10:29:04
EtoPHG

Danke - suchte Code dennoch!
29.11.2019 13:30:42
Wolfgang
Hallo Hansueli,
als wenn Du es schon voraus erahnt hattest. Ich hatte Matthias noch ergänzend gefragt, um bei Deinem Code festzustellen, dass er mir ja genau die vorhandenen Texte in den jeweiligen Zellen bei Aufruf des UF anzeigt. Somit auch vielen vielen Dank. Hast mir auch sehr geholfen. - Gruß Wolfgang
AW: Einträge links und rechts von markierter Zelle
29.11.2019 11:37:39
markierter
Hi
hier mal drei mögliche Varianten für combobox1 
combobox1 = Cells(ActiveCell.row, 1)
combobox1 = ActiveCell.Offset(0, 1 - ActiveCell.Column)
combobox1 = Intersect(Columns(1), ActiveCell.EntireRow)

die anderen Elemente dann mit geänderter Spaltennummer analog.
Anzeige

310 Forumthreads zu ähnlichen Themen

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
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
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
Anzeige
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
Formel, rechts #### bis leer Zeichen
mehmet

Hallo Forum,
in Zelle B2 habe ich z.B. "ABC 314 " stehen.
Nun möchte ich in Zelle D2 folgende String darstellen:
zähle von links vier Strings nach rechts "ABC "
mache aus "314 " nun eine vierstellige Zahl "0314 "
entferne die zwei Leerzeichen nach der Zahl "0314 ", so da...
16.09.2008 10:46:00
Thread-ID: 1009991
8 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 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
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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