2
nach x zeichen in die nächste spalte springen
hallo allerseits
nach dem google mir nix liefern konnte dachte ich frag mal hier.
folgendes problem
es wird von einem benutzer aus einer dropdown liste verschieden einträge ausgewählt, die dann in eine zelle geschrieben werden.
nun soll aber nach 8 zeichen in die nächste spalte weiter geschrieben werden bzw in die zelle rechts daneben.
hier ein paar bilder um zu verdeutlichen was ich meine
größere ansicht:
http://img407.imageshack.us/my.php?image=unbenanntmq9.jpg
und hier der code für in die angrenzende zelle zu schreiben:
vielen dank schon mal im voraus
nach dem google mir nix liefern konnte dachte ich frag mal hier.
folgendes problem
es wird von einem benutzer aus einer dropdown liste verschieden einträge ausgewählt, die dann in eine zelle geschrieben werden.
nun soll aber nach 8 zeichen in die nächste spalte weiter geschrieben werden bzw in die zelle rechts daneben.
hier ein paar bilder um zu verdeutlichen was ich meine
größere ansicht:
http://img407.imageshack.us/my.php?image=unbenanntmq9.jpg
und hier der code für in die angrenzende zelle zu schreiben:
Private Sub CommandButton1_Click()
Dim cell As Integer
Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = ComboBox1.Value
End
End Subvielen dank schon mal im voraus
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 102206
Url: https://administrator.de/contentid/102206
Printed on: April 25, 2024 at 04:04 o'clock
2 Comments
Latest comment
Hallo herbiemaster!
Du musst ja nur "ComboBox1.Value" zerlegen
und kannst die Teile dann einzeln schreiben.
Grüße
bastla
Du musst ja nur "ComboBox1.Value" zerlegen
Nr = Left(ComboBox1.Value, 8)
Text = Mid(ComboBox1.Value, 9)Grüße
bastla
saaaauubbberr
besten dank!
genau danach habe ich gesucht
besten dank!
genau danach habe ich gesucht
