Hallo,
zeige mal das Wunsch-Ergebnis.
mfg
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
Super hat geklappt perfekt DANKE
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
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?
Oooh ehrlich gesagt hab ich da keine Ahnung bin da iergendwie verloren momentan
@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
@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)
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
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