Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Bestimmte Zeichenlänge/Großbuchstaben finden und zusammenfügen
04.09.2019 10:00:07 Sabine
NotSolved
04.09.2019 11:07:20 UweD
NotSolved
04.09.2019 11:59:39 Gast95128
Solved

Ansicht des Beitrags:
Von:
Sabine
Datum:
04.09.2019 10:00:07
Views:
48
Rating: Antwort:
  Ja
Thema:
VBA Bestimmte Zeichenlänge/Großbuchstaben finden und zusammenfügen

Hallo Zusammen,

ich programmiere noch nicht so lange VBA´s und bin gerade am verzweifeln. Es wäre schön, wenn mir jemand bei meinem Probelm helfen könnte.

Ab der Spalte A5 stehen untereinander gegliedert Überschriften und einer Zeichenfolge, die IMMER aus 4 Zeichen besteht z.B. GKMD oder K3F6 (Großbuchstaben mit und ohne Zahlen, nur Zahlen).

Es stehen unterschiedlich viele 4er Zeichen unter den Überschriften. Ich möchte gerne, die 4er Zeichen, die zusammengehören zwei Spalten neben dem letzten 4er Zeichen mit Komma getrennt in eine Zelle schreiben.

Hier Spalte A:

Objektart    
Zustand    
     
Zeilenbeschriftungen    
     
Versicherung    
Werkstatt    
Reifen wechseln    
     
Schrauben    
MVEV    
NCIT   hier soll: MVEV, NCIT stehen
Ölwechsel    
Öl    
J8E8    
WTH9    
DUYV    
6KDO   hier soll J8E8, WTH9, DUYV, 6KDO stehen

Ich weiß leider nicht, wie genau meine if Abfrage lauten muss.

Sub Kette()

 Dim Abfrage As Range
 Dim a As Integer
 Dim b As Integer
 Dim i As Integer

 Set WS = Worksheets("Tabelle1")
 
    With WS
    lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row

    For i = 6 To lngLastRow
    Set Abfrage = WS.Cells(i, 1)
  
    If Abfrage.Value = Not IsEmpty(Abfrage.Value)And ??? Then
   
        a = Abfrage + ","
        b = a
        f = a & b
        ActiveCell.Offset(0, 1) = f

    End If
     
    Next

    End With

End Sub

Vielen Dank

Sabine


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Bestimmte Zeichenlänge/Großbuchstaben finden und zusammenfügen
04.09.2019 10:00:07 Sabine
NotSolved
04.09.2019 11:07:20 UweD
NotSolved
04.09.2019 11:59:39 Gast95128
Solved