Thema Datum  Von Nutzer Rating
Antwort
29.01.2016 18:51:14 QQDR
NotSolved
Blau Verschachtelte If-Bedingung
 29.01.2016 20:06:14 Gast24432
NotSolved
31.01.2016 15:14:53 Gast74431
NotSolved
31.01.2016 18:32:44 Erdnusslocke
NotSolved
31.01.2016 19:49:03 Gast26740
NotSolved

Ansicht des Beitrags:
Von:
Gast24432		 Datum:
29.01.2016 20:06:14		 Views:
748		 Rating:
     
Antwort:
  Ja
Thema:
Verschachtelte If-Bedingung

Hallo!

Die Werte stehen in Spalte B und die Aussage erfolgt in Spalte C des aktuellen Tabellenblattes. VG

 

Option Explicit

Sub kürzel()
Dim namen()
Dim kürzel()
Dim ende As Long
Dim i As Long
Dim anzahl As Long


ende = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
ReDim namen(0)
ReDim kürzel(0)
anzahl = 0

For i = 1 To ende
If ActiveSheet.Cells(i, 2) <> "" Then
    If UBound(Filter(namen, ActiveSheet.Cells(i, 2))) > -1 Then

       ActiveSheet.Cells(i, 3) = kürzel(Application.Match(ActiveSheet.Cells(i, 2), namen, False) - 1)
    Else
    anzahl = anzahl + 1
    ReDim Preserve namen(anzahl)
    ReDim Preserve kürzel(anzahl)
    
    namen(anzahl) = ActiveSheet.Cells(i, 2)
    kürzel(anzahl) = "A" & anzahl
    ActiveSheet.Cells(i, 3) = "A" & anzahl
    End If
End If
Next i

End Sub

 

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
29.01.2016 18:51:14 QQDR
NotSolved
Blau Verschachtelte If-Bedingung
 29.01.2016 20:06:14 Gast24432
NotSolved
31.01.2016 15:14:53 Gast74431
NotSolved
31.01.2016 18:32:44 Erdnusslocke
NotSolved
31.01.2016 19:49:03 Gast26740
NotSolved