Excel Makro (siehe beigefügte Excel Tabelle)

[mystique]

Hallo AMI,

das Skript ist nach 10 Stunden eben gerade fertig geworden

Bei einer Stichprobe habe ich festgestellt, das es Vorgangsnummern gibt, die ungefähr so aussehen: ABC12345

Diese Vorgangsnummern wurden nicht berücksichtigt.

Weisst du zufällig warum das so ist?

Viele Grüße

[AMI]

Hallo mystique,

... mal gezählt?

Die Vorgangsnummer hat nur 8 Zeichen. Das Script nimmt, wie wir besprochen hatten, nur Vorgangsnummern, die 9 oder 10 Zeichen lang sind.

Zwei Möglichkeiten:
erstes Script aubohren oder
zweites Script (Kopie vom ersten Script) und nur die Längen anpassen.

Erste Möglichkeit:

Sub Erklaeren()

Dim lwSheet1 As Worksheet
Dim lwSheet2 As Worksheet
Dim lsErklaerung As String
Dim lsSuchString As String
Dim liLineCount1 As Double
Dim liLineCount2 As Double
Dim liStringCount As Integer
Dim liStringLenght As Integer

Set lwSheet1 = ActiveWorkbook.Worksheets("Sheet1")
Set lwSheet2 = ActiveWorkbook.Worksheets("Sheet2")

For liLineCount1 = 5 To lwSheet1.UsedRange.Rows.Count

    lsSuchString = lwSheet1.Range("A" & liLineCount1).Value
    liStringLenght = Len(lsSuchString)
        
       For liStringCount = 1 To liStringLenght
        
            If Left(lsSuchString, 1) = "-" Or lsSuchString = "" Then
            
                Exit For
            
            Else
            
                lsSuchString = Right(lsSuchString, Len(lsSuchString) - 1)
                
            End If
            
        Next liStringCount
        
    If lsSuchString = "" Then
    
        GoTo naechster 'String genügt nicht den Anforderungen (enthält kein "-")
    
    End If
        
    lsSuchString = Right(lsSuchString, Len(lsSuchString) - 2) 'die führenden zwei "-" wegschneiden
    lsSuchString = CStr(Left(lsSuchString, 10)) 'jetzt haben wir den Suchbegriff auf jeden Fall als String vorliegen
    
    If Right(lsSuchString, 1) = " " Then
    
        lsSuchString = Left(lsSuchString, 9) 'kann 9- oder 10-stellig alphanumerisch sein
        
    End If
        
    ' falls der Suchstring nur 8-stellig ist:
        
    If Right(lsSuchString, 1) = " " Then
    
        lsSuchString = Left(lsSuchString, 8)
        
    End If
    
    For liLineCount2 = 1 To lwSheet2.UsedRange.Rows.Count 'suchen
    
       If lsSuchString = lwSheet2.Range("A" & liLineCount2).Value Then 'gefunden
       
            lwSheet1.Range("B" & liLineCount1).Value = lwSheet2.Range("B" & liLineCount2).Value 'eintragen
            Exit For 'nächste Zeile aus Sheet1
            
        End If
        
    Next liLineCount2
    
naechster:
    

Next liLineCount1

End Sub

So wie das jetzt funktioniert, nimmt er die 8-stellige Vorgangsnummer mit dem hinten vorhandenen Leerzeichen, vergleicht dann in der Tabelle (Sheet2) wo es das schließende Leerzeichen nicht gibt.

In dem überarbeiteten Script wird nun geprüft, ob der 9-stellige Suchstring am Schluss immer noch ein Leerzeichen enthält. Falls ja wird auch dieses gelöscht und es wird mit dem korrekten 8-stelligen Suchstring weitergesucht.

Grüßle

AMI

[mystique]

Sorry, da habe ich mich vertan. Die Nummer ist immer 9- oder 10-stellig. Das Skript hatte aber nur die ausgelassen, die so aussehen:

ABC123456
ABC1234567

Möglicherweise liegt es daran, daß diese mit 3 Buchstaben beginnen.

Ich hätte noch eine weitere Frage
Meine Struktur sieht ja ungefähr so aus:



In dem bisherigen Skript ist es ja so, das überall wo die Struktur so aussieht:
|--A123456789

die Vorgangsnummer A123456789 in Sheet2 Spalte A gesucht wird, der Name in Spalte B kopiert wird und in Sheet1 Spalte B eingefügt wird.

Jetzt bräuchte ich noch ein Skript, das mir die | (Zeichen) zählt und in Anzahl der Zeichen in Spalte B einfügt. Es soll aber nur da gezählt werden, wo ein Leerzeichen zwischen den „—„-Zeichen steht.

Im Klartext:
|--A123456789  ist ja eine Vorgangsnummer, hier soll nichts passieren
|-- A123456789  hier ist ein Leerzeichen zwischen |-- und A, hier sollen die | gezählt werden und die Anzahl der | in Spalte B kopiert werden.

Würde mich sehr freuen, wenn das noch klappen würde

Viele Grüße

[AMI]

Zitat von mystique

Würde mich sehr freuen, wenn das noch klappen würde

Hallo mystique,

das glaube ich Dir zwar sofort, aber da es sich um eine gewerbliche Anwendung handelt, muss irgendwann mal Schluss sein.

Du bekommst das sicher auch ohne meine Hilfe noch hin.
Alternative: gegen Rechnung

Was die "Nichtberücksichtigung" der mit Buchstanben beginnenden Schlüssel angeht: Um das rauszufinden bräuchte man mal zumindest einen Auszug der Echtdaten. Es gilt das oben gesagte.

Grüßle

AMI

[mystique]

OK, kann ich verstehen.

Trotzdem nochmal vielen Dank für deine großartige Hilfe

[AMI]

gern geschehen