---

Hallo

Ich mache einen Download aus SAP. Über ein Makro verarbeite ich die Daten in Excel. Dabei sind auch Datumsanzeigen. Da die Informationen in die USA gehen sollen, soll das Datum im amerikanischen Format mm/dd/yyyy erscheinen. Habe das auch im Makro programmiert. Leider geht das irgendwie mit den Daten aus SAP aber nicht direkt. Man muss dann zuerst in die Zelle klicken und dann Enter - erst dann wechselt es von der deutschen in die amerikanische Formatierung.
Gibt es einen Befehl, der das irgendwie umgeht.

THX.

Gruss
Hugo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

noch was

wie lauete der Befehl für das entfernen von Zeichen:
Ich habe in einer Zelle ABCD#EFGH oder ABCDEFG#HIJKL stehen. Alles links der Raute und auch die Raute soll entfernt werden!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Hugo,

nimm Suchen und Ersetzen.

Suche nach *#
Ersetzen durch läßt Du leer.

Oder, falls nur alles bis zum 1. # gelöscht werden soll, nimm sowas:

=WENN(ISTFEHLER(FINDEN("#";A1));A1;TEIL(A1;FINDEN("#";A1)+1;999))

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hugo,

versuchs mal damit in deinem Makro:

    Datum = Worksheets(Tabelle).Cells(Zeile, Dat)
    Datum.Value = Datum.Value

Gruß EbKo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd
Hi EbKo

Funktioniert beides mal nicht im Makro!
Muss weiter suchen.

Gruss
Juergen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Hugo alias Juergen,

warum ? Einfach mal mit dem Makrorekorder aufgezeichnet:

Sub Makro1()
    Selection.Replace What:="*#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Es geht auch so:

Sub bla()
  Dim cell As Range
  Dim index As Long
 
  For Each cell In Selection
      index = InStr(cell.Value, "#")
      If index > 0 Then cell.Value = Left(cell.Value, index - 1)
  Next
End Sub

Oder so:

Sub x()
  Dim re As Object
  Dim cell As Range
 
  Set re = CreateObject("vbscript.regexp")
  re.Pattern = "^.*#" ' oder "^[^#]*#" bzw. "^.*?#"
  For Each cell In Selection
      cell.Value = re.Replace(cell.Value, "")
  Next
  Set re = Nothing
End Sub

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd
OK funktioniet. Mein Bruder (Juergen) hat es wieder mal nicht geschnallt.

Alles klar. Danke Dir.

Gruss
HUGO

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hugo,
versuchs mal damit

Sub dat_akt()
   
    With ActiveSheet.UsedRange
        Zeile_Anzahl = .Rows(.Rows.Count).Row
    End With
 
Dat = 8  'Datum steht in Spalte 8 (H)
Hiwi = 10 'Spalte muß größer sein als Dat
Ver = Dat - Hiwi

    For Zeile = 2 To Zeile_Anzahl
        ActiveSheet.Cells(Zeile, Hiwi).FormulaR1C1 _
        = "=VALUE(RC[" & Ver & "])"
        ActiveSheet.Cells(Zeile, Dat).NumberFormat _
        = "d/m/yy h:mm AM/PM"
        ActiveSheet.Cells(Zeile, Dat).Value _
        = ActiveSheet.Cells(Zeile, Hiwi).Value
        ActiveSheet.Cells(Zeile, Hiwi).Delete Shift:=xlToLeft
    Next Zeile
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP