Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einträge links und rechts von markierter Zelle

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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

Forumthreads zu verwandten 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
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
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
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
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
Anzeige
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
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
zahl + text in einer Zelle?
dieter

Hallo Forum,
gibt es wohl ein Möglichkeit in einer Zelle Zahl und text zu haben?
Etwa so: in A1 steht eine zahl; in A3 soll dann der Inhalt aus A1 und der text stehen,z.B. EUR.
(Aus platzgründen kann ich keine neue zelle für den text nehmen)
Danke für Eure Tips
23.10.2008 14:46:00
Thread-ID: 1018660
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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