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