Hilfe bei Makro

Forumthread: Hilfe bei Makro

Hilfe bei Makro

25.06.2024 12:25:20

Stephan Schwander

Guten Tag zusammen,

Makro ist leider überhaupt nicht mein Ding. Gegebenenfalls kann mir jemand weiterhelfen. Ich möchte folgendes in der hochgeladenen Beispielmappe automatisieren:
Arbeitsmappe "Eingabe" sollte wenn in der Spalte D ein Eintrag gemacht wird, in der Spalte A das jeweilige Tagesdatum mit Uhrzeit automatisch gesetzt werden. Wichtig dies soll auch bestehen bleiben, wenn die Datei am nächsten Tag neu geöffnet wird.

Das Zweite, wäre es möglich, dass wenn in der Spalte X ein "X" steht alle ausgefüllten Zeilen, automatisch nach drücken eines Buttons ins Register "Archiv" verschoben werden?

Besten Dank für Eure Wertvolle Unterstützung oder Hilfestellung wie ich dies am besten praktiziere.

Freundliche Grüsse aus der Schweiz.
Stephan Schwander

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ?? "in der hochgeladenen Beispielmappe" wo denn??

25.06.2024 12:27:40

JoWE
AW: ?? "in der hochgeladenen Beispielmappe" wo denn??

25.06.2024 12:36:22

Stephan Schwander
AW: VBA

25.06.2024 12:57:29

Fennek
AW: VBA

25.06.2024 13:10:13

Stephan Schwander
AW: VBA

25.06.2024 14:30:59

Piet
AW: VBA

25.06.2024 14:58:52

Stephan Schwander
AW: VBA

25.06.2024 16:24:45

Piet
AW: VBA

26.06.2024 06:40:12

Stephan Schwander
AW: freut mich sehr, Danke oWt

26.06.2024 14:47:10

Piet

AW: ?? "in der hochgeladenen Beispielmappe" wo denn??

25.06.2024 12:27:40

JoWE

AW: ?? "in der hochgeladenen Beispielmappe" wo denn??

25.06.2024 12:36:22

Stephan Schwander

Sorry habe vergessen den Code raus zu kopieren...
Hoffe, dass es nun klappt.
https://www.herber.de/bbs/user/170479.xlsx

AW: VBA

25.06.2024 12:57:29

Fennek

Hallo,

ohne Fehler-Prüfung geht


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 4 Then Cells(Target.Row, 1) = Now

End Sub

mfg

AW: VBA

25.06.2024 13:10:13

Stephan Schwander

Besten Dank Fennek für den Lösungsvorschlag. Leider bringt er auch ein Datum in der Spalte A, wenn man irgendwo im Bereich der Spalte D reinklickt ohne eine Eingabe zu machen. Kann man das noch irgendwie bewältigen?

LG Stephan

AW: VBA

25.06.2024 14:30:59

Piet

Hallo

bitte ändere diese Zeile wie folgt. So reagiert Target nur auf Eingaben.
Private Sub Worksheet_Change(ByVal Target As Range)
Wenn du das Datum auch löschen willst dann bitte den unteren Code

mfg Piet



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then

   If Target.Value > "" Then

      Cells(Target.Row, 1) = Now

   Else

      Cells(Target.Row, 1) = Empty

   End If

End If

End Sub

AW: VBA

25.06.2024 14:58:52

Stephan Schwander

Danke Dir Piet,

Funktioniert :-)

Gibt es noch jemand der eine Lösung für die Archivierung und Verschiebung der Daten hat?

Die Möglichkeit, dass wenn in der Spalte X ein "X" steht alle ausgefüllten Zeilen, automatisch nach drücken eines Buttons ins Register "Archiv" verschoben werden?

LG Stephan

AW: VBA

25.06.2024 16:24:45

Piet

Hallo

auch kein Problem, du musst nur im Code dein richtiges Sheet angeben! - Bei mir zum Testen "Tabelle1"

mfg Piet

Sub Zeilen_verschieben()

Dim lz1 As Long, lz2 As Long

Dim AR As Worksheet, j As Long

Set AR = Worksheets("Archiv")

lz2 = AR.Cells(Rows.Count, 1).End(xlUp).Row + 1



With Worksheets("Tabelle1")    'Hier DEIN Sheet angeben!

    'LastZell in Tabelle1

    lz1 = .Cells(Rows.Count, 1).End(xlUp).Row

    

    'Alle Zeilen mit "x" kopieren

    For Each AC In .Range("X2:X" & lz1)

        If LCase(AC) = "x" Then

           .Rows(AC.Row).Copy AR.Rows(lz2)

           lz2 = lz2 + 1

        End If

    Next AC

    

    'Alle Zeilen mit "x" löschen

    For j = lz1 To 2 Step -1

        If LCase(.Cells(j, "X")) = "x" Then _

           .Rows(j).Delete shift:=xlUp

    Next j

End With

End Sub

AW: VBA

26.06.2024 06:40:12

Stephan Schwander

Besten Dank Piet,
für die schnelle Hilfe. Ich bin leider erst heute Morgen wieder dazu zu kommen, um daran zu arbeiten.
Es funktioniert.
Ich wünsche eine erfolgreiche Restwoche.
der Taks kann abgeschlossen werden.
LG Stephan

AW: freut mich sehr, Danke oWt

26.06.2024 14:47:10

Piet

...

Beliebteste Forumthreads (12 Monate)

Forumthread: Hilfe bei Makro

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread