Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Werte aus Userform in "aktivierten" Bereich
10.10.2016 11:11:04
Christof
Hallo zusammen,
ich habe folgende Probleme.
Für die Bereiche K18:K77 und o18:o77 habe ich folgendes definiert:
If Not Intersect(Target, Range("k18:k77 , o18:o77")) Is Nothing Then OberbauformCD.Show vbModeless
Damit wird das Userform gestartet und ich kann die Werte entsprechend meiner Wahl eingeben.
Wenn ich nun CommandButton1 klicke, sollen die Werte in die aktivierte Zelle übernommen und die benachbarten Zellen übertragen werden.
Der Text aus Textbox2 soll dann in den Bereich
- Für k18:k77 in E150:E209
- Für o18:o77 in S150:S209
aufgeteilt werden.
Hierzu habe ich mir folgende Routine gebastelt,
wobei ich, aufgrund meiner Kenntnisse, den Weg
o18:o77 in S150:S209 nicht schreiben kann.
Ich würde hier einen zweiten CommandButton anlegen und die Routine umschreiben,
aber ich glaube, es gibt eine einfachere Lösung.
Das zweite Problem:
Zusätzlich möchte ich dann die Werte K18:K77 in Zelle D150:D209
und o18:o77 in R150:R209 schrieben lassen.
Hier der "Ausgangscode"
Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox2
ActiveCell.Offset(0, 1).Value = TextBox3
ActiveCell.Offset(0, 2).Value = TextBox4
ActiveCell.Offset(0, 3).Value = TextBox5
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
ComboBox101.Text = " "
ComboBox102.Text = " "
ComboBox103.Text = " "
Call checkreset
Call optionreset
Application.DisplayAlerts = False
Range("K18:K77").Select
Selection.TextToColumns Destination:=Range("E150:E209"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = True
Me.Hide
End Sub

Vielleicht kann mir jemand einen entscheidenden Tipp geben,
für die Mühe und die Geduld bedanke ich mich schon mal im Voraus.
Gruß
Christof

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

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Userform in "aktivierten" Bereich
10.10.2016 16:24:01
Herbert
Hallo Christof,
auch hier würde eine Beispieldatei sicher zur schnelleren Klärung beitragen.
Servus
AW: Werte aus Userform in "aktivierten" Bereich
10.10.2016 20:35:42
Christof
Hallo zusammen,
anbei eine Beispieldatei
Hoffe, es funktioniert
Bereich K18:K77 und Bereich o18:o77 lösen das Userform aus.
Vielen Dank für den Tipp.
Gruß
Christof
https://www.herber.de/bbs/user/108707.xlsm
AW: Werte aus Userform in "aktivierten" Bereich
11.10.2016 09:40:15
Herbert
Hallo Christof,
es tut mir leid, aber da muss ich passen. Da müsste so viel überarbeitet werden, dass ich das den nicht als Forumsarbeit machen will. Vielleicht findet sich ja noch ein Anderer.
Servus
Anzeige
AW: Werte aus Userform in "aktivierten" Bereich
11.10.2016 10:16:26
Christof
Hallo Herbert,
es ist auch nur eine "Beispieldatei"gewesen,
die Arbeit möchte ich mir schon selbst machen.
Ich habe niemanden zur Überarbeitung oder Neugestaltung gesucht,
sondern einfach einen Lösungsansatz.
Da meine Kenntnisse im VBA Bereich nicht überragend sind und ich auch sicher nicht den Anspruch erhebe, dass alles "einwandfrei" und "sauber" geschrieben ist, bin ich mit dem, was ich bereits geschrieben habe, sehr zufrieden.
Ich werde einfach ein zweites Userform erstellen, welches über die anderen Zellen aufgerufen wird,
nicht sauber, aber für meine Zwecke ausrechend.
Trotzdem vielen Dank für die Rückmeldung.
Gruß
Christof
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige