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

Ansicht des Beitrags:
Von:
K.W.
Datum:
07.04.2016 09:54:41
Views:
1015
Rating: Antwort:
  Ja
Thema:
Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code

Hallo VBA-Forum,

Ich benötige wieder einmal eure Hilfe!

 

Über die Excel-Formel ist es einfach auf was ich hinaus möchte, aber das brauche ich jetzt für ein Makro-CommandButton.

 

Excel-Formel:

                            (Soll nur Mustermann angezeigt werden)

Mustermann, Max --> LINKS(A9;FINDEN(",";A9)-1) --> Mustermann

 

 

VBA-Code:

Ich dazu ein Makro, weil ich über einen Button den Usernamen einfügen möchte in Unterschiedliche Zellen.

Aber nur den Nachname!

Das einfügen in unterschiedlichen Zellen funktioniert!

 

Habe es bis jetzt nur geschafft von Links zuzählen bis Zeichenanzahl.

Da habe ich später ein Problem wenn es mehrere Namen gibt die Unterschiedlich groß oder klein sind.

 

 

Was mir jetzt noch fehlt ist:

 das mir das Makro von Mustermann, Max zu Mustermann zählt und begrenzt.

 

 

Momentaner Code:

Private Sub CommandButton1_Click()
    ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
    ActiveCell.Value = Left(Application.UserName, 4)
End Sub

 

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
Rot Excel-Formel LINKS(A9 bis A100;FINDEN(",";A9 bis A100)-1) in VBA-Code
07.04.2016 09:54:41 K.W.
NotSolved
07.04.2016 13:19:09 K.W.
NotSolved
07.04.2016 14:02:59 Gast46395
NotSolved
08.04.2016 07:18:08 K.W.
NotSolved
08.04.2016 08:41:48 Gast11516
NotSolved
08.04.2016 09:50:16 Gast98851
NotSolved
08.04.2016 09:53:06 K.W.
NotSolved
08.04.2016 11:21:59 Gast83053
NotSolved