Excel 21-May-2021 UTC zu 21.05.2021 umwandeln?

Moin.

Ich bekomme eine automatisierte Tabelle, welche anschließend ausgewertet werden soll. Da in dieser Tabelle das Datum so angebgeben wird : "21-May-2021 UTC" und ich es allerdigns als 21.05.2021 brauche und dies nicht über die Zellenformatierung funktioniert, bräcuhte ich mal eure hilfe.

Wie bekomme ich das am besten hin ? Dnake schonmal ^^

3 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

15.06.2021, 13:51

=DATWERT(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"January";"01");"February";"02");"March";"03");"April";"04");"May";"05");"June";"06");"July";"07");"August";"08");"September";"09");"October";"10");"November";"11");"December";"12");"-";".");" UTC";""))

DanKirpan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

21.06.2021, 11:58

Hi,

Grundsätzlich ließe sich das auch mit Formeln, wie z.B der von Suptoptimierer lösen, aber evtl kannst du es an das automatisierte Auslesen anschließen. (Hab ich dir das nicht schonmal geschrieben?)

Sub DatumTrennen()
Dim i As Long, lZei As Long, zMon As Long
Dim MLis(11) As String
Dim wert As String, sTag As String, sMon As String, sJahr As String

MLis(0) = "January"
MLis(1) = "February"
MLis(2) = "March"
MLis(3) = "April"
MLis(4) = "May"
MLis(5) = "June"
MLis(6) = "July"
MLis(7) = "August"
MLis(8) = "September"
MLis(9) = "October"
MLis(10) = "November"
MLis(11) = "December"

lZei = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lZei
    wert = ActiveSheet.Range("A" & i).Value
    sTag = Left(wert, InStr(1, wert, "-") - 1)
    With Application.WorksheetFunction
        sMon = Mid(wert, InStr(1, wert, "-") + 1, InStr(1, .Substitute(wert, "-", "@", Len(wert) - Len(.Substitute(wert, "-", ""))), "@") - InStr(1, wert, "-") - 1)
        zMon = .Match(sMon, MLis, 0)
        sJahr = Mid(wert, InStr(1, .Substitute(wert, "-", "@", Len(wert) - Len(.Substitute(wert, "-", ""))), "@") + 1, 4)
    End With
    ActiveSheet.Range("A" & i) = CDate(sTag & "." & zMon & "." & sJahr)
Next i

End Sub

Elumania

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

21.06.2021, 12:57

Die Quellzelle mit dem amerikanischen Datum ist Zelle A1. Die Zielzelle, wo das neue Datum hingeschrieben werden soll erst als Datumszeile formatieren. Dann diesen Code in die Zielzelle schreiben.

=DATWERT(WECHSELN(LINKS(WECHSELN(A1;"-";".");LÄNGE(WECHSELN(A1;"-";"."))-4);LINKS(RECHTS(LINKS(WECHSELN(A1;"-";".");LÄNGE(WECHSELN(A1;"-";"."))-4);8);3);SUCHEN(LINKS(RECHTS(LINKS(WECHSELN(A1;"-";".");LÄNGE(WECHSELN(A1;"-";"."))-4);8);3);"--janfebmaraprmayjunjulaugsepoctnovdec")/3))

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

...zur Frage

Text mit Nummerierung?

Hallo zusammen.... was mache ich falsch?

Ich habe ein Formular, welches automatisch die Nummer der virherigen Zeile plus 1 generiert.

Setze ich aber einen Text vor die zahl, kommt nur immer die 1 statt fortlaufend 2,3,4 usw.

Userform1.ticketid.value = "text"&worksheetfunction.max(range("b:b"))+1

Kann mir jemand helfen.

Vielen Dank

...zur Frage

Wie kann man in Excel Preise nach Größe sortieren?

Hallo liebe Helferinnen

Ich möchte eine Spalte mit Preisen so sortieren, dass es von teuer nach günstig geht. Mit der Option Sortieren von Z nach A funktioniert das leider nicht.

Kann mir da jemand eine einfache, aber effektive Lösung zeigen, um von Bild 1 direkt auf Bild 3 zu kommen?

Danke und liebe Grüße

Nachtrag:

In der kleinen Beispieltabelle mit den 10 Zeilen hat es hervorragend funktioniert, aber in der großen Tabelle mit tausenden Zeilen und 15 Spalten klappt es nicht.

Woran könnte es liegen? Also ich bin folgendermaßen vorgegangen:

1- Ursprungsdatei ist eine Textdatei.

2- Dieser habe ich in Excel geöffnet und die Spalte Preise als Text formatiert, damit es nicht als Datum umgewandelt wird..

3-Habe dann alle Punkte mit Kommas ersetzt

4-Sortiert von Z nach A, aber leider sortiert es nach der Zahl z.b. 99->8,5->77->6,31 und nicht 99->77->8,5->6,31 und nicht von der größten zur kleinsten Zahl

Was mache ich falsch? .(

...zur Frage

Wie oft kommt ein Wort in einer Excel-Spalte vor?

Guten Abend

Gibt es eine kurze und effektive Formel für folgendes Vorhaben?

Z.B.

In Spalte A sind verschiedene Texte enthalten.

In Spalte B steht das Wort, das ich suche; und zwar "Boardmarker".

Und in Spalte C möchte ich eine Formel eingeben, das mir die Information herausgibt, wie oft dieses Wort in der gesamten Spalte vorkommt.

Das ist jetzt nur ein Beispiel. Ich möchte in verschiedenen Tabellen, nach der Häufigkeit verschiedener Wörter suchen.

Hat da jemand eine Idee?

P.S. Gibt es denn auch die Möglichkeit mittels einer Formel die am Häufigsten vorkommenden Wörter zu generieren?

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Excel Powerpoint Automatisierung?

Hallo,

Ich wollte mal fragen an die Excel Profis ob es möglich ist durch VBA Coden folgendes möglich ist:

Mit Hilfe von Buttons in PowerPoint Texte in Excel einfügen?

Genauer erklärt: Also man hat Button auf einer PowerPoint Folie und wenn man diesen Button anklickt dann wird in Excel ein Text in hinzugefügt denn man vorher definiert hat im Button über Excel.

Natürlich wären noch andere Funktionen wichtig aber das ist halt das wichtigste.

Es ist egal ob Excel dabei im Hintergrund auf sein muss oder nicht das wäre nicht schlimm die Frage ist nur ob man klar definieren kann das ein Text in einer bestimmten Zelle in Excel eingefügt werden kann?

Vielen Dank für alle Antworten

...zur Frage

Makro VLookup funktioniert nicht?

.Formula = "=VLOOKUP(A5,EKPO.Cells(A1),C1000,2,FALSCH)"

Kann mir jemand hier helfen?

...zur Frage

Excel Tabelle mit VBA fortlaufend befüllen?

Hallo,

ich habe eine ziemlich schwierige Aufgabe zu lösen, zumindest für mich als VBA Amateur und bräuchte deswegen eure Hilfe, da ich daran schon seit Tagen verzweifle.

Die Aufgabenstellung ist folgende:

Es soll durch ein Kontrollfenster (1. Bild links) möglich sein, einen neuen Datensatz anzulegen, der dann automatisch in der Tabelle (1. Bild rechts) davon erscheint. Die Erstellung der Datensätze soll fortlaufend geschehen, d.h. falls bereits ein Datensatz in Zeile 4 vorliegt, dass der neue Datensatz automatisch in Zeile 5 (usw.) angelegt wird. Zuletzt soll dann das Kontrollfenster geleert werden, sodass es theoretisch möglich wäre, direkt einen weiteren Datensatz anzulegen.

Weiterhin soll dieser neu angelegte Datensatz mit dem "DiagrammA" im Reiter "Diagramm" verknüpft werden (X/Y-Werte und Name in der Legende), sodass dort auch automatisch dieser Datensatz erscheint (2. & 3. Bild).

(Optional): Die Möglichkeit zum Entfernen eines Datensatzes.

Vielen Dank!

...zur Frage

Kann mir bitte jemand helfen?

Hallo,

Meine eigentliche Frage ist folgende:

Wie lese ich aus einer Textzeile die Daten aus und speichere sie in einer anderen Arbeitsmappe mittels vba?

ich kenne mich nicht mit excel vba aus

möchte dennoch ein Regal Programm erstellen. Wie in beiden Bildern mit gelb markiert ist lese ich den Inhalt der Textzeile aus und gebe ihn in der Arbeitsmappe bei a1 aus. Jedoch bekomme ich es nicht hin es in die 2. arbeitsmappe (blau markiert) auszugeben und nicht in die aktuelle. Geht das?

Ergänzung: falls sich noch jemand damit auskennt wie man das in der zweiten speichert und Dan tabellarisch immer einen darunter speichert und das andere nicht überschreibt kann das am Ende auch noch anmerken. Danke im Voraus schonmal.

...zur Frage

Ich suche Hilfe für Excel VBA Programmierung, kann jemand helfen?

Guten Morgen Allseits,

ich suche nach einem Schema, Erklärung Schritt für Schritt für Excel VBA Programmierung:

Habe von dem Prof. eine Anleitung dazu bekommen, aber das ist mehr so eine Märchengeschichte.

Nun seid IHR gefragt, habt ihr eine gute Quelle für mich wo das kurz und bündig, aber effizient erklärt wird?

Vielen Dankeschön Euch!

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

VBA | Tabellen-PDF auch mit Datum speichern?

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zur Frage

Bestimmte Excel Spalten mittels Toggle Button ein/ausblenden?

Hallo,

gibt es die Möglichkeit mittels Excel Makro alle Spalten außer folgende mittels eines Buttons auszublenden:

A – E

H – J

M – R

W – Y

AZ – BF

Habe bereits etwas ähnliches, funktioniert aber klarerweise nur mit dem bereich von bis:

rivate Sub ToggleButton1_Click()

If Columns("D:E").EntireColumn.Hidden = False Then

Columns("D:E").EntireColumn.Hidden = True

ElseIf Columns("D:E").EntireColumn.Hidden = True Then

Columns("D:E").EntireColumn.Hidden = False

End If

End Sub

Danke

...zur Frage

Wie kann ich gefüllte Zellen einer Zeile automatisiert verketten?

Ich habe hunderte Spalten. Manche von Ihnen sind gefüllt, manche leer. Gibt es eine Möglichkeit, die gefüllten Zellen, wie unten in Spalte G zu sehen, automatisiert zusammenzufassen? Manuell krieg ich das nicht hin, es ist zu viel.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen