VBA-Forum - Das Forum zu Microsoft VBA

Thema	Datum	Von Nutzer	Rating	Antwort
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 09:54:41	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 13:19:09	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 14:02:59	Gast46395
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 07:18:08	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 08:41:48	Gast11516
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 09:50:16	Gast98851
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 09:53:06	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 11:21:59	Gast83053

Ansicht des Beitrags:

Von:
Gast98851

Datum:
08.04.2016 09:50:16

Views:
422

Rating:

Antwort:

Thema:
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code

Hallo SJ,

Kann man das noch vereinfachen?

Weil ich habe über 1000 Zellen.

Nach jetziger Idee müsste ich von A9 bis A1000 den Code einfügen. Oder?

Worksheets("Tabelle1").Range("A9") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1)

Worksheets("Tabelle1").Range("A10") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1)

Worksheets("Tabelle1").Range("A11") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1)

Gruß

K.W.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 09:54:41	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 13:19:09	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	07.04.2016 14:02:59	Gast46395
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 07:18:08	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 08:41:48	Gast11516
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 09:50:16	Gast98851
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 09:53:06	K.W.
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code	08.04.2016 11:21:59	Gast83053