Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA Zusammenfassen

Forumthread: VBA Zusammenfassen

VBA Zusammenfassen
10.01.2025 08:45:01
Gui1166
Hallo Zusammen ,
Kann mir jemand Helfen ?
Ich habe da eine VBA Programmierung erstellt die auch so Funktioniert .
Aus dem Arbeitsblatt Liste sollen bestimmte Zellen in das Arbeitsblatt Daten Übertragen werden bei Betätigung eines Button.
Der Sinn ist es 50 Aufzeichnungen ( Tastendrücke ) In das Arbeitsblatt DATEN Ab Zelle C3 Zu Übertragen danach wieder Bei C3 anzufangen.
Meine Lösung sieht so aus .
Sub Schaltfläche3_Klicken()

ActiveWorkbook.RefreshAll
'Wert pro Stück
Sheets("Liste").Select
Range("U3:U18").Select
Selection.Copy
Sheets("Data").Select
If Sheets("Data").Cells(36, 3) = "C" Then
Range("C3").PasteSpecial Paste:=xlPasteValues

'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("C18").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("C34").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "D" Then
'Wert pro Stück
Range("D3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("D34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("D18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "E" Then
'Wert pro Stück
Range("E3").PasteSpecial Paste:=xlPasteValues
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("E34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("E18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "F" Then
'Wert pro Stück
Range("F3").PasteSpecial Paste:=xlPasteValues
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("F34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("F18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "G" Then
'Wert pro Stück
Range("G3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("G34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("G18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "H" Then
'Wert pro Stück
Range("H3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("H34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("H18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "I" Then
'Wert pro Stück
Range("I3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("I34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("I18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "J" Then
'Wert pro Stück
Range("J3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("J34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("J18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "K" Then
Range("K3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("K34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("K18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "L" Then
Range("L3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("L34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("L18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If

If Sheets("Data").Cells(36, 3) = "M" Then
Range("M3").PasteSpecial Paste:=xlPasteValues
'Datum Uhrzeit
Sheets("Liste").Select
Range("R3").Select
Selection.Copy
Sheets("Data").Select
Range("M34").PasteSpecial Paste:=xlPasteValues
'Wertigkeit
Sheets("Liste").Select
Range("I3:I18").Select
Selection.Copy
Sheets("Data").Select
Range("M18").PasteSpecial Paste:=xlPasteValues
Exit Sub
End If
End Sub

Wie Ihr seht ist das sehr Aufwendig.
Nun Meine Frage
Gibt es eine Möglichkeit dieses zu vereinfachen und vom Programmieren zu verkürze ?
Danke für eure Hilfe
Gruß
Guido
Anzeige

26
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:16:02
Onur
Sollte so funktionieren - testen kann ich nicht, da du ja keine Datei gepostet hast. 

Sub Schaltfläche3_Klicken()

    Dim sp

    ActiveWorkbook.RefreshAll

    'Wert pro Stück

    Sheets("Liste").Activate

    Range("U3:U18").Copy

    Sheets("Data").Activate

    sp = Cells(36, 3)

    Select Case sp

    Case "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M"

        Range(sp & 3).PasteSpecial Paste:=xlPasteValues

        'Wertigkeit

        Sheets("Liste").Activate

        Range("I3:I18").Select

        Selection.Copy

        Sheets("Data").Select

        Range(sp & 18).PasteSpecial Paste:=xlPasteValues

        'Datum Uhrzeit

        Sheets("Liste").Activate

        Range("R3").Select

        Selection.Copy

        Sheets("Data").Activate

        Range(sp & 34).PasteSpecial Paste:=xlPasteValues

        Exit Sub

    End Select

End Sub
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:23:37
Gui1166
Hey Super,
Danke Dir das passt Bestens.
Einfach einmalig .
Gruß
Guido
Gerne !
10.01.2025 09:24:29
Onur
AW: VBA Zusammenfassen
10.01.2025 09:17:03
Crazy Tom
moin,

mein Vorschlag 

Sub Schaltfläche3_Klicken()

    ActiveWorkbook.RefreshAll

    Dim strLetter As String

    ActiveWorkbook.RefreshAll

    'Wert pro Stück

    Sheets("Liste").Range("U3:U18").Copy

    With Sheets("Data")

        strLetter = .Cells(36, 3).Value

        .Cells(3, strLetter).PasteSpecial Paste:=xlPasteValues

        'Wertigkeit

        Sheets("Liste").Range("I3:I18").Copy

        .Cells(18, strLetter).PasteSpecial Paste:=xlPasteValues

        'Datum Uhrzeit

        Sheets("Liste").Range("R3").Copy

        .Cells(34, strLetter).PasteSpecial Paste:=xlPasteValues

    End With

End Sub


mfg Tom
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:27:02
Onur
Wenn in Cells(36, 3) ein "Z" steht, wird auch kopiert ?
Das ist im Originalcode nicht der Fall.
AW: VBA Zusammenfassen
10.01.2025 09:32:40
Crazy Tom
moin onur,

stimmt, mein Code würde bis zur letzten Spalte kopieren
er schrieb aber auch von 50 Aufzeichnungen
also könnten es noch mehr Spalten werden als angegeben
vielleicht können aber auch nur die Buchstaben C bis M vorkommen *schulterzuck*

mfg Tom
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:34:52
Onur
Moin auch,

Und bei Text "hallo" in Cells(36, 3) gibt es eine Fehlermeldung. :)

Gruß
Onur
AW: VBA Zusammenfassen
10.01.2025 09:38:45
Gui1166
Das war mein Fehler , Die Original Datei wollte ich nicht Kopieren das sensible daten drin Stehen .
Ja es soll weiter gehen ich bin noch nicht Sicher wie weit aber ca 50 mal denke ich .
Dieses kann ich aber dank eurer Hilfe jetzt so erweitern.
Ich hatte nur einen Auszug bis M veröffentlicht da ich noch nicht weiter war.
Danke nochmal !
Gruß
Guido
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:41:29
Onur
Zumindest könntest du die Spaltennummer angeben statt den Buchstaben, dann brauchst du nicht alle 50 aufzuzählen, sondern nur von und bis anzugeben.
AW: VBA Zusammenfassen
10.01.2025 09:42:49
Gui1166
Wie meinst Du das ? Du siehst mich etwas Ratlos ( Brett vor dem Kopf)
AW: VBA Zusammenfassen
10.01.2025 09:52:49
Onur
SO: 
Sub Schaltfläche3_Klicken()

    Dim sp, str

    ActiveWorkbook.RefreshAll

    'Wert pro Stück

    Sheets("Liste").Activate

    Range("U3:U18").Copy

    Sheets("Data").Activate

    sp = Cells(36, 3) 'Hier Zahl statt Buchstabe

    If sp >= 3 And sp = 13 Then 'von Spalte 3(C) bis Spalte 13(M)

        Cells(3, sp).PasteSpecial Paste:=xlPasteValues

        'Wertigkeit

        Sheets("Liste").Activate

        Range("I3:I18").Select

        Selection.Copy

        Sheets("Data").Select

        Cells(18, sp).PasteSpecial Paste:=xlPasteValues

        'Datum Uhrzeit

        Sheets("Liste").Activate

        Range("R3").Select

        Selection.Copy

        Sheets("Data").Activate

        Cells(34, s).PasteSpecial Paste:=xlPasteValues

    End Select

End Sub
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:55:32
Gui1166
Super danke Verstanden . Das geht besser.
Jetzt klappt es Super einfach
AW: VBA Zusammenfassen
10.01.2025 09:41:35
Crazy Tom
hi Guido,

da können wir ja froh sein, dass du noch nicht weiter warst
da wäre dein Beitrag ja nooooooch länger geworden ;-)

mfg Tom
AW: VBA Zusammenfassen
10.01.2025 09:33:23
Gui1166
Hallo Onur ,
Ja soll auch , das werde ich dann so Erweitern.
Am ende nach ca. 50 Kopien werden die Daten Inhalte Gelöscht und wieder bei C angefangen.
Sorry das ich keine Datei Hochgeladen habe .
Danke Nochmal .
Gruß
Guido
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:37:09
Onur
Aber das mit C,D,E usw ind Cells(36, 3) musst nicht sein. Ist wohl eher eine Notlösung von dir, dass du die Spalte angeben musst, weil du keine bessere Lösung hattest.
AW: VBA Zusammenfassen
10.01.2025 09:40:24
Gui1166
Aber ich muss doch Irgend wie festlegen wann ich wieder bei C anfange ?
AW: VBA Zusammenfassen
10.01.2025 09:42:55
Onur
Wird denn immer nur eine Spalte bearbeitet oder alle nacheinander?
Anzeige
AW: VBA Zusammenfassen
10.01.2025 09:45:42
Gui1166
Ich habe eine Schaltfläche Aktualisieren wenn ich diese Betätige sollen die Angegebenen Bereiche Kopiert werden.
Dieses bis zu 50 Aktualisierungen und dann von vorne beginnen.
AW: VBA Zusammenfassen
10.01.2025 09:57:14
Onur
Heisst das, dass du ein "C" einträgst, Button drückst, "D" einträgst, Button drückst usw usw ???
AW: VBA Zusammenfassen
10.01.2025 09:59:38
Gui1166
Nein das Geht in Excel mit wenn dann und wird so eingetragen.
=WENN(C3="";C; usw.
Anzeige
AW: VBA Zusammenfassen
10.01.2025 10:01:50
Onur
Bitte noch unten 
End Select

ersetzen durch 
End If
AW: VBA Zusammenfassen
10.01.2025 11:03:23
Crazy Tom
hi,

heißt das du hast da 50 Wenn-Abfragen welcher Buchstabe drin steht?

teste doch mal das hier
da wird kein Buchstabe in C36 gebrauch 

Sub Schaltfläche3_Klicken()

    ActiveWorkbook.RefreshAll

    Dim ZielCol As Long

    ActiveWorkbook.RefreshAll

    'Wert pro Stück

    Sheets("Liste").Range("U3:U18").Copy

    With Sheets("Data")

        ZielCol = .Cells(3, Columns.Count).End(xlToLeft).Column + 1

        If ZielCol  3 Then ZielCol = 3

        .Cells(3, ZielCol).PasteSpecial Paste:=xlPasteValues

        'Wertigkeit

        Sheets("Liste").Range("I3:I18").Copy

        .Cells(18, ZielCol).PasteSpecial Paste:=xlPasteValues

        'Datum Uhrzeit

        Sheets("Liste").Range("R3").Copy

        .Cells(34, ZielCol).PasteSpecial Paste:=xlPasteValues

        If ZielCol >= 50 Then

            If MsgBox("Liste löschen?", vbYesNo) = vbYes Then

                .Cells(3, 3).Resize(32, ZielCol).ClearContents

                ZielCol = 3

            End If

        End If

    End With

End Sub


mfg Tom
Anzeige
AW: VBA Zusammenfassen
10.01.2025 11:18:24
Gui1166
Hallo Tom ,
Das ist Sehr gut . Danke Dir ! So kann ich es lassen ,funktioniert Perfekt.
AW: VBA Zusammenfassen: Chat GPT Vorschlag
10.01.2025 09:18:24
MCO
Moin!

Ich hab dein Anliegen mit der Bitte um Schleife in CHATGPT eingegeben, probier es mal aus: 

Sub Schaltfläche3_Klicken()



    Dim columns As Variant

    Dim col As Variant

    Dim checkCell As Range

    

    ' Liste der Spalten, die überprüft werden sollen

    columns = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M")

    

    ' Arbeitsmappen aktualisieren

    ActiveWorkbook.RefreshAll

    

    ' Schleife durch die Spalten

    For Each col In columns

        ' Zelle mit der Prüfung

        Set checkCell = Sheets("Data").Cells(36, 3)

        

        ' Überprüfen, ob die aktuelle Spalte übereinstimmt

        If checkCell.Value = col Then

            ' Wert pro Stück kopieren

            Sheets("Liste").Range("U3:U18").Copy

            Sheets("Data").Range(col & "3").PasteSpecial Paste:=xlPasteValues

            

            ' Wertigkeit kopieren

            Sheets("Liste").Range("I3:I18").Copy

            Sheets("Data").Range(col & "18").PasteSpecial Paste:=xlPasteValues

            

            ' Datum/Uhrzeit kopieren

            Sheets("Liste").Range("R3").Copy

            Sheets("Data").Range(col & "34").PasteSpecial Paste:=xlPasteValues

            

            Exit Sub

        End If

    Next col



End Sub


Gruß, MCO
Anzeige
AW: VBA Zusammenfassen: Chat GPT Vorschlag
10.01.2025 11:15:40
Yal
Hallo MCO,

ChatGPT nimmt keine Rücksicht auf Werte, die im Lauf des Codes sich nicht ändern. Im dem Fall ist eine For-Schleife weit entfernt von notwendig zu sein.

ChatGTP nachgebessert(ohne Rücksicht auf die originale Frage, wohl bemerkt :-) : 


Sub Schaltfläche3_Klicken()

Dim col As Variant

    

    ActiveWorkbook.RefreshAll

    With Sheets("Data")

        col = UCase(.Cells(36, 3).Value)

        Select Case col

        Case "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M"

            .Cells(3, col).Resize(16, 1) = Sheets("Liste").Range("U3:U18").Value ' Wert pro Stück kopieren

            .Cells(18, col).Resize(16, 1) = Sheets("Liste").Range("I3:I18").Value ' Wertigkeit kopieren

            .Cells(34, col) = Sheets("Liste").Range("R3").Value ' Datum/Uhrzeit kopieren

        End Select

    End With

End Sub
(da ist man aber sehr nah an Onurs Lösung)

VG
Yal
Anzeige
AW: VBA Zusammenfassen: Chat GPT Vorschlag
13.01.2025 11:49:28
MCO
Danke Yal!

Ich sehe die KI auch bestenfalls als Basis für einen Lösungsansatz. Zugegebenermaßen hatte ich nicht große Lust den ganzen Text zu lesen.

Gruß, MCO

Forumthreads zu verwandten Themen

VBA Code Werte Copy nach Abfragen
Steven

Hallo Ihr Experten,
Kann mir jemand den Code (läuft OK) nur vereinfachen/kürzen?
Es wird eine pdf-Datei erzeugt und gleichzeitig je nach 2 Abfragen auf unterschiedliche Bereiche Werte kopiert.
Vielen Dank schon mal für Eure Ideen...
Sub aktivesBlattToPdf() Dim Quelle As Workshee...
12.05.2018 17:59:25
Thread-ID: 1623740
21 Beiträge
VBA Code Werte Copy nach Abfragen
Steven

Hallo Ihr Experten,
Kann mir jemand den Code (läuft OK) nur vereinfachen/kürzen?
Es wird eine pdf-Datei erzeugt und gleichzeitig je nach 2 Abfragen auf unterschiedliche Bereiche Werte kopiert.
Vielen Dank schon mal für Eure Ideen...
Sub aktivesBlattToPdf() Dim Quelle As Workshee...
12.05.2018 17:59:25
Thread-ID: 1623741
1 Beitrag
verkürzung der VBA-Lösung erwünscht
ilka
Hallo,
nachfolgenden Teil einer Programmierung, insbesondere die Bearbeitung der einzelnen Kostenstellen (siehe unten), möchte ich gern vereinfachen.
Kann mir hierbei jemand helfen ??
Gruß
ILka
'2.Teil daten im tabellenblatt kosten sortieren und übetragen in spalten F unf folgen...
25.06.2005 03:44:24
Thread-ID: 628812
24 Beiträge
Code-Fehler.. Hilfe ;-(
Rico

Hallo liebe Experten
habe folgendes kreiert:
https://www.herber.de/bbs/user/27255.xls
Bei den Buttons 1-6 klappt alles wunderbar.. habe die Codes kopiert und im vba-editor erweitert und angepasst auf die weiteren Zell-Blöcke.
Ab Button 7 kommt aber immer die Fehlermeldung:
"...
06.10.2005 13:45:45
Thread-ID: 677638
2 Beiträge
VBA Prüfung ob Eintrag schon vorhanden, Einträge bearbeiten
Stefan
Hallo Gemeinde

Ich suche schon den ganzen Tag nach einer passenden VBA Programmierung, für meinen Fall.

Es gibt genügend Beiträge dazu, leider schaffe ich es nicht die Programmierung auf meine Situation anzupassen.

Vielleicht könnt Ihr Helfen.

Tabelle "ABL"
d...
04.08.2024 19:56:39
Thread-ID: 1987129
7 Beiträge
Anzeige
Mac VBA
Carmen

Hi,
ich abe ein VBA von einem Kollegen erhalnte das fua einem Windows erstellt wurde und das nciht auf meinem Mac läuft.
Wer kann mir das anpassen so dass es auch auf dem Mac läuft?
das hier ist sie:
Dim rowOut As Integer
Sub main()
Dim str$, strNew$, row%, i%
Dim ne...
29.04.2014 23:23:42
Thread-ID: 1359089
2 Beiträge
Hilfe bei Makro
Andre

Hallo Forumsmitglieder,
habe folgendes Makro aufgezeichnet. Dieses Makro möchte ich in der persönlichen Arbeitsmappe speichern, damit es für mehrere Excel-Dateien gilt. Leider läuft es nicht, wenn es in der PERSONL gespeichert ist, sondern nur wenn ich es in der aktiven Datei speicher und v...
11.05.2005 10:57:42
Thread-ID: 610023
2 Beiträge
Anzeige
Excel VBA Anwendung Makro auf 2 Tabellenblätter
Chris

Hallo zusammen,
Also ich versuche unten stehende Berichtsfunktion. Hier wird durch Excel ein Worddokument erzeugt auf 2 Tabellenblätte zu erweitern. Momentan Tabellenblatt 2+3, vielleicht dann auch mehr.
Die Excel ist Open Source, deswegen ist die Freilegung eher kein Thema.
Ich hab...
09.07.2018 16:47:50
Thread-ID: 1632930
1 Beitrag
Prüfung ob Datenträger im Laufwerk / Schleife
Jens

Hallo liebe Forumsmitglieder!
Ich komme mit meinen wenigen angelernten VBA-Bruchstücken trotz Recherchen jetzt nicht weiter; vielleicht kann mir jemand bei folgendem Problem helfen:
Im Verlauf des Makros (=Datenauslesen) soll geprüft werden, ob überhaupt ein Datenträger im Default-Laufw...
28.09.2004 15:23:53
Thread-ID: 492013
1 Beitrag
Makro automatisch auf mehrere Dateien!
JUZ

Hallo an alle VBA ler,
ich habe ein Problem und noch dazu sogut wie keine Kenntnisse mit VBA.
Ich möchte einige viele Excel Dateien bearbeiten (alle in einem Ordner) und anschließend in einer Datein zusammenfügen. Die Bearbeitung der einzelnen Datein habe ich bereits hinbekommen (Spalt...
30.08.2011 01:01:37
Thread-ID: 1227874
1 Beitrag
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum