Identifikationsnummer in Datei 1 auslesen und Daten in Datei 2 einfügen

[Fennek]

Hallo,

zeige mal das Wunsch-Ergebnis.

mfg

[Fennek]

Hallo,

der Code gehört in ein allgemeines Modul, nicht in "DieseArbeitsMappe".

Wenn man mit "intelligenten Tabellen" arbeitet, diese aber weitgehend leer sind, gibt es einige Probleme mit dem "alten" VBA.

Hier ein Versuch Fehler abzufangen:

Code:

Sub Matricule()
If Selection.Column <> 2 Then MsgBox "Bitte in Spalte B markieren": Exit Sub
If Selection.Row = 1 Then Cells(2, 2).Select
For i = Selection.Row To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 17) <> "" Then
        Ar = Split(Cells(i, 17))
        P1 = InStrRev(Ar(0), "-")
        Ar(0) = Left(Ar(0), P1) & Cells(i, 2)
        'Cells(i, 17) = Join(Ar, " ")
        'zum Testen
        Cells(i, 19) = Join(Ar, " ")
    End If
Next i
End Sub

Wenn alles passt, muss wieder in Spalte 17 geschrieben werden.

mfg

[Petz1807]

Super hat geklappt perfekt DANKE

[Petz1807]

Hallo,

Ich weiss nicht was ich falsch mache doch in Spalte B in der Tabelle macht Excel mir nur in den oberen Zeilen die doppelte Werte rot doch unten funktionniert es nicht mehr an was kann das liegen hab schon ein paar mal die Formatierung neu gemach doch immer wieder das gleiche Resultat liegt das vielleicht am Makro?

Mfg

[Der Steuerfuzzi]

Hallo,

hast Du schonmal darüber nachgedacht, Dir die Datenbank über PowerQuery in die Auswertetabelle zu holen und Dir dann mit einem SVERWEIS die Daten zu holen?

[Petz1807]

Oooh ehrlich gesagt hab ich da keine Ahnung bin da iergendwie verloren momentan

[snb]

@Fen

Code:

Sub M_atricule()
    sn = Tabelle1.ListObjects(1).DataBodyRange
    
    For j = 1 To UBound(sn)
        If InStr(sn(j, 17), "-") Then Tabelle1.Cells(1 + j, 19) = Split(sn(j, 17), "-")(2)
    Next
End Sub

[Fennek]

@snb: Danke

Hallo Patrick,

in LibreOffice werden sowohl die Doppelten in Zeile 2 und 3, als auch in Zeile 9 und 10 markiert.

Aber die Bereiche sind getrennt markiert:

Vorschlag: die bedingte Formatierung für die Spalte A zu löschen und dann neu einzufügen.

Code:

B2:B10
B35
B36
B37:B38

mfg

(ich finde es "unschön", den Code im Workbook-Code zu speichern, er gehört in ein allgemeines Modul)

[Petz1807]

Hallo,

Wollte gerade sagen dass es nun funktionniert und hab die 2 Makros in 2 Module gesetzt doch könntest du mir nicht villeicht die 2 Makros in ein Makro umwandeln das ware noch schöner

[Fennek]

Hallo Patrick,

soweit ich mich erinnern kann, sind diese beiden Makros nicht von mir.

Ohne die Datenquelle zu kennen bzw nach zu bauen ist ein Austesten nicht möglich. Die beiden Makros "blind" zusammen zu setzen, ist zu fehleranfällig.

mfg