Klassenmodul Excel: wozu die instanzierung?

Hallo, meine Frage ist es, was der Sinn bzw. die bedeutet der instanzierung einer Klasse in der excel Programmierung in bspw. der GUI oder im Sub ist.
Damit meine ich:

Set o…. = new cls….

Vielen Dank im vorraus

1 Antwort

Ifm001

05.05.2023, 06:40

Das ist der objektorientierten Programmierung (OOP) entliehen. Klassen dienen dazu, Funktionalitäten logisch zusammengehörend zu bündeln.

Das kannst Du dir vorstellen wie beim Umzug. Dort packt man die Sachen in die Umzugskarton oft auch logisch getrennt und beschriftet die Kartons entsprechend, damit man die Sachen am Ziel gleich in den richtigen Raum stellen kann, ohne lange zu suchen.

Woher ich das weiß:eigene Erfahrung

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

Beträge zusammen rechnen PDF/Excel Tabelle?

Moin.
Ich möchte gerne eine bestimmte Spalte zusammen rechnen (Betrag).
Es sind ca 73 Seiten und 100 Einträge pro Seite

Wie kann ich sowas machen per Excel oder PDF?
Ich bedanke mich für antworten

https://i.gyazo.com/e0bd47e71a22d412bdc5dc89a381fa6d.png
Die Spalte 'originalGiftCardBalance'

...zur Frage

Excel bedingte Formatierung?

Hi Leute 🙋‍♂️

Ich brauche DRINGEND!!! Eure hilfe….

wie lauten den hier die Formeln ☠️Siehe Bilder ?Hi Leute 🙋‍♂️

...zur Frage

Mehrfachantwort Excel auszählen?

Hallo zusammen,

Ich habe im Rahmen einer Projektarbeit einen Fragebogen zur Auswertung geschickt bekommen, Rohdaten sind in Excel. Klassische Ja/Nein Fragen auszuzählen ist kein Problen, ich hänge an den Mehrfachantworten. Die muss ich vermutlich in einzelne Zellen aufspalten? Unten habe ich eine Beispieltabelle erstellt. Muss ich dies händisch machen oder gibt es eine Suchfunktion? (Habe über 700 Antworten und 4 Fragen mit Mehrfachanworten).

Mit FINDEN und SUCHE bin ich bisher nicht weitergekommen.

Ziel: Excel erkennt wenn z.B "Einkauf" in der Zelle steht und schriebt dann automatisch eine 2 in die Zelle daneben.

Hat vielleicht jemand einen Tipp? Vielen Dank schonmal!

...zur Frage

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zur Frage

Excel: in zahlenwerte einen Komma einfügen?

Hallo, ich habe folgendes Problem und zwar habe ich in Spalte "B" Zahlenwerte. Diese sind in Cent aufgeführt. Ich möchte aber jedoch diese in "volle €" umwandeln. Also z.B. steht in der 2.Zeile "341" diese möchte ich als "3,41" umgewandelt haben.

...zur Frage

Wie mache ich bei Excel eine Liste die jeden ersten Samstag im Monat auflistet, ohne dass ich das alles selber eingeben muss!?

...zur Frage

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.

...zur Frage

Excel Formel funktioniert nicht - Fehlermeldung?

Hallo,
ich wollte aus zwei Spalten eine Formel bilden aber es kommt immer die Fehlermeldung. Ich möchte D3/C3 rechnen. Was mache ich falsch.

...zur Frage

MS Excel Problem?

Ich soll in der Arbeit eine Datenanalyse mit MS Excel durchführen. Ei dafür notwendiger Zwischenschritt ist es, die "Ist-Ankunftszeit" von Bussen von der "Soll-Ankunftszeit" eben dieser Züge zu subtrahieren (um die Verspätungen auszuwerten). Die Zellen, in denen diese Daten stehen, sind als "Standard" formatiert und sehen so aus:

2024-02-09T13:34

Teils steht auch noch die Sekundenzahl bei der Uhrzeit dabei, aber auch nicht immer (teils steht sie sogar bei der Sollzeit dabei und bei der Istzeit nicht, was auch noch so ein Aspekt ist). Ich will eben die Differenz von zwei solchen (oben in schwarz dargestellten) Daten bilden, um die Verspätung zu erhalten. Natürlich klappt das so erstmal nicht, es kommt die Fehlermeldung "Wert". Ich hab dann versucht, die entsprechenden Zellen als Zahl, Datum oder auch benutzerdefiniert zu formatieren, dennoch erhalte ich bei der Subtraktion immer den obigen Fehler. Excel erkennt halt nicht, was es tun soll. Auch die Funktion Datevalue hat mir nicht geholfen. Meines Erachtens sind die Daten bei uns da einfach schlecht aufbereitet^^

Hat jemand eine schlaue Idee, wie ich das Problem lösen kann?

Händisch einzeln ändern geht übrigens nicht, meine Exceltabelle hat 200.000 Zeilen, es geht hier um große Datenmengen.

Schönes Wochenende euch :)

...zur Frage

Excel - Prozentuale Veränderung zwischen Spalten automatisch berechnen?

Hallo zusammen,
ich habe eine Tabelle (Siehe Screenshot), in der ich Zahlen aus verschiedenen Monaten vergleiche. Wie kann ich jetzt noch eine zusätzliche Spalte einfügen, in der die prozentuale Veränderung von Juni - September berechnet wird.

...zur Frage

Wie kann ich ein Blatt in excel löschen ohne dass das Ursprungsblatt auch gelöscht wird?

Wenn ich eine exceltabelle verschicke schaut sich der Empfänger das Seitenlayout an oder Normalansicht? Im Seitenlayout sind Kopf- und Fusszeilen drin aber auch sehr viel Blätter obwohl ich nur eines habe und in der Normalansicht sieht man keine Kopf und Fusszeile. Wie also kann ich alle übrigen Blätter löschen in excel??

...zur Frage

Kennt sich jemand mit Excel aus?

Moin,

Ich habe eine Excel-Tabelle angelegt. Ihr seht einen Teil auf dem Bild. Nach dem Zahlenwert in der rechten Hälfte werden die Zeilen geordnet, allerdings nur im grünen Bereich. Der Rest wird nicht geordnet. Wie erweitere ich den Bereich? Ich würde gerne alle Zeilen filtern können, da auch zukünftig noch mehr Zeilen dazukommen werden.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen