excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

1 Antwort

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

16.08.2023, 15:46

So etwas kannst du dir mit dem Makrorekorder aufzeichnen.

Bei mir kommt heraus:

Range("A1:A14").NumberFormat = "ddd/ * dd/mm/yyyy"

Ähnliche Beiträge

Excel VBA, ComboBox + intelligente Tabelle?

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

...zum Beitrag

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zum Beitrag

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zum Beitrag

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zum Beitrag

Excel VBA Range-Objekt?

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

...zum Beitrag

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zum Beitrag

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zum Beitrag

Excel VBA Druckvorschau?

Hallo, wie kann ich eine benutzerdefinierte Seite (Tabellenblatt) über einen Button in der Userform in der Druckvorschau anzeigen lassen?

Einen Weg habe ich bereits gefunden, Problem ist nur, dass die Userform selbst auf der Druckvorschau erscheint und ich die Maske (Userform) nicht beenden kann.

Der weg ist folgender:

Private Sub btndruckvorschau_Click()

Worksheets("Beispiel").PrintPreview

End sub

...zum Beitrag

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zum Beitrag

Excel - Zeile in anderes Tabellenblatt kopieren...

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

...zum Beitrag

Wie kann ich in Excel folgendes Datumsformat 202201010100 konvertieren?

Hallo, ich will in Excel folgendes Datumsformat

in ein lesbares Format wie z.B. "dd.mm.yyyy hh:mm.ss" oder so ähnlich, hauptsache Excel versteht die Zahl als Datum.

...zum Beitrag

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen