Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

RXchecked - Variable definieren

RXchecked - Variable definieren
04.09.2017 16:22:26
Jens
Hallo
ich habe den Code
If RXCheck(varInPut(lngI, 1), "^\D+\d+\.\d+\D+\d+$|^\D+\d+\.\d+\D+\d+\.\D{1}\d*$")
Hier werden Vorschriften den Aufbau von Daten definiert.
Wie schaffe ich es aber dass ich den Punkt varibael mache.
z.b durch den Zelleninhalt in der Zelle
Worksheets("Daten").Range("AE2").Value
Hat jemand eine idee?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: RXchecked - Variable definieren
04.09.2017 16:36:24
Nepumuk
Hallo Jens,
was soll das sein? Sieht mir nach RegEx aus.
Gruß
Nepumuk
AW: RXchecked - Variable definieren
04.09.2017 16:37:53
Jens
ja genau das ist es auch..
Reicht der Ausdruck nicht um eine Lösung vorzuschlagen?
AW: RXchecked - Variable definieren
04.09.2017 18:44:13
Nepumuk
Hallo Jens,
ich hab noch nicht ganz verstanden worum es überhaupt geht.
Gruß
Nepumuk
AW: RXchecked - Variable definieren
04.09.2017 20:05:42
Sepp
Hallo Jens,
auf meine letzte Antwort in unserem vergangenen Thread hast du nicht mehr reagiert.
Aufbauend darauf so.
With Sheets("Aufstellung") 'Tabellenname - Anpassen!
  Set objRange = .Range("B13:B" & Application.Max(13, .Cells(.Rows.Count, 2).End(xlUp).Row))
  strChar = "\" & .Range("AE2")
  With objRange
    .Interior.ColorIndex = xlNone
    .Font.Bold = False
    .Font.ColorIndex = 1
    .Locked = True
  End With
  varInPut = objRange
  Redim varOutput(1 To UBound(varInPut, 1), 1 To 8)
  For lngI = 1 To UBound(varInPut, 1)
    If RXCheck(varInPut(lngI, 1), "^\D+\d+" & strChar & "\d+\D+\d+(" & strChar & "\D{1}\d*)*$") Then
      strTmp = Trim$(Replace(varInPut(lngI, 1), ".", " "))
      If RXSplit(varSplit, strTmp, "\D+|\d+") = 0 Then
        varOutput(lngI, 1) = Trim$(varSplit(0))
        varOutput(lngI, 2) = Trim$(varSplit(1))
        varOutput(lngI, 3) = Trim$(varSplit(3))
        varOutput(lngI, 4) = Trim$(varSplit(4))
        varOutput(lngI, 5) = Trim$(varSplit(5))
        varOutput(lngI, 6) = Trim$(varSplit(6))
        varOutput(lngI, 8) = Trim$(varSplit(7))
      End If
    Else
      If objError Is Nothing Then
        Set objError = objRange.Cells(lngI, 1)
      Else
        Set objError = Union(objError, objRange.Cells(lngI, 1))
      End If
    End If
  Next
  .Range("AE13").Resize(UBound(varOutput, 1), 8) = varOutput
  If Not objError Is Nothing Then
    With objError
      .Font.Bold = True
      .Font.ColorIndex = 3
      .Locked = False
    End With
  End If
End With
UserForm3.Show
Set objRange = Nothing
Set objError = Nothing
End Sub

Gruß Sepp

Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige