Werte aus den Zellen gezielt wählen und schreiben lassen
- Themenstarter theva
- Beginndatum
Jepp. zu Testzwecken.
Im folgenden Bereich kannst du die Zielspalten anpassen
PS: Ich würde an deiner Stelle noch viele Dinge umbenennen, damit es lesbar wird. Aber da ich nicht wusste wie die Spalten heissen, habe ich so allgemeine Namen verwendet.
Im folgenden Bereich kannst du die Zielspalten anpassen
PS: Ich würde an deiner Stelle noch viele Dinge umbenennen, damit es lesbar wird. Aber da ich nicht wusste wie die Spalten heissen, habe ich so allgemeine Namen verwendet.
Visual Basic:
'Werte auslesen und zuweisen
ws.Cells(rowNr, 7).Value = keys(keyNr)(eintrag)("E")
ws.Cells(rowNr, 8).Value = keys(keyNr)(eintrag)("F")
Getestet. Es funktioniert erst mal. Danke
Nur eine kurze Frage zum Thema:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:\s*(.*?)\s*$"
Wie kann ich mehrere Einträge pattern lassen und mit Zeichen wie \ oder .
Also anstatt nur "Eintrag:", " Eintrag: X\y." und "Eintrag: Yx\.wert"
mehrere Einträge habe ich mit & Zeichen versucht, funktioniert nicht und rx.pattern = "^Eintrag: wert\wert.\s*(.*?)\s*$" kannr auch nicht.
Nur eine kurze Frage zum Thema:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:\s*(.*?)\s*$"
Wie kann ich mehrere Einträge pattern lassen und mit Zeichen wie \ oder .
Also anstatt nur "Eintrag:", " Eintrag: X\y." und "Eintrag: Yx\.wert"
mehrere Einträge habe ich mit & Zeichen versucht, funktioniert nicht und rx.pattern = "^Eintrag: wert\wert.\s*(.*?)\s*$" kannr auch nicht.
Es kommen zwei vor. Ist pattern begrenzt?
1)Eintrag: Command\Wert
Das hier funktionierts:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\\s*(.*?)\s*$"
2)Eintrag: Command\Status2verweis.Wert
Das hier nicht:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\Status2verweis.\s*(.*?)\s*$"
Als Lösungsversuch habe ich das versucht:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\\s*(.*?)\s*$" & "^Eintrag:Command\Status2verweis.\s*(.*?)\s*$"
1)Eintrag: Command\Wert
Das hier funktionierts:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\\s*(.*?)\s*$"
2)Eintrag: Command\Status2verweis.Wert
Das hier nicht:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\Status2verweis.\s*(.*?)\s*$"
Als Lösungsversuch habe ich das versucht:
Set rx = CreateObject("VBScript.RegExp")
rx.pattern = "^Eintrag:Command\\s*(.*?)\s*$" & "^Eintrag:Command\Status2verweis.\s*(.*?)\s*$"
Die RegEx Patterns stelle ich besser selber zusammen.
Was davon soll jeweils extrahiert werden?
1)Eintrag: Command\Wert
Brauchst du da "Command"? Oder "Wert"? oder "Command.Wert"? Oder "Eintrag"?
2)Eintrag: Command\Status2verweis.Wert
Gleiche Frage
Und ist "Wert" der String "Wert" oder steht dort irgend ein Wert.
Also
"Eintrag: Command\Wert" oder "Eintrag: Command\098876"
Was davon soll jeweils extrahiert werden?
1)Eintrag: Command\Wert
Brauchst du da "Command"? Oder "Wert"? oder "Command.Wert"? Oder "Eintrag"?
2)Eintrag: Command\Status2verweis.Wert
Gleiche Frage
Und ist "Wert" der String "Wert" oder steht dort irgend ein Wert.
Also
"Eintrag: Command\Wert" oder "Eintrag: Command\098876"
In möchte in beiden Fällen nur den Wert haben.
Und ist es der Text "Wert" oder steht dort irgenwas?
Ansonsten reicht dieser Pattern: https://regex101.com/r/0FnMt1/1
Ansonsten reicht dieser Pattern: https://regex101.com/r/0FnMt1/1
Code:
\\(?:Status2verweis\.)?(\S+)Der Wert besteht aus Buchstaben, Unterstrich und Zahlen. PC_2013_2017
