Probleme Variable

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von EdgarKraft.

    Probleme Variable

    Moin,

    Ich habe Probleme bei der Deklaration von Variablen
    Ich habe ein Userform erstellt mir der ich eine Tabelle füllen möchte.
    Wobei ich Textboxen und ComboBoxen benutze.
    Die Combobox sorgt für eine Ausgabe die an Bedingungen geknüpft ist.
    Ich habe hier einmal meinen Code

    Visual Basic-Quellcode

    1. Private Sub Erstellen_Click()
    3. ' Variablen Deklaration
    4. Dim Ausgangsdatum As Date
    5. Ausgangdsdatum = TextBox2.Value
    7. Dim ReportInt As Integer
    8. ReportInt = Worksheets("Makrodaten").Range("D5")
    10. 'Quickcheck
    11. Dim Quick As Long
    12. Quick = Worksheets("Makrodaten").Range("C7")
    13. Dim QuickMo As Integer
    14. QuickMo = Worksheets("Makrodaten").Range("D7")
    15. Dim QuickTa As Integer
    16. QuickTa = Worksheets("Makrodaten").Range("H7")
    17. Dim QuickNews As Integer
    18. QuickNews = Worksheets("Makrodaten").Range("F7")
    20. 'Hinzufügen von Kundenname, Stardatum, Kursart, Incentive Anzahl
    21. Dim neuezeile As Long
    22. neuezeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
    23. Cells(neuezeile, 1) = TextBox1.Value
    24. Cells(neuezeile, 5) = TextBox2.Value
    25. Cells(neuezeile, 3) = ComboBox1.Value
    26. Cells(neuezeile, 4) = ComboBox2.Value
    28. ' Folge Auswahl Quickcheck
    29. If ComboBox1.Value = Quick Then
    31. Cells(neuezeile, 6) = DateAdd("m", ReportInt, Ausgangdsdatum)
    33. End If
    35. Unload UserForm1
    37. End Sub
    39. Private Sub TextBox2_AfterUpdate()
    40. TextBox2 = Format(TextBox2, "DD.MM.YYYY")
    41. End Sub
    43. Private Sub TextBox2_Change()
    45. End Sub
    47. Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    48. If Not IsDate(TextBox2) Then
    49. TextBox2 = ""
    50. Cancel = True
    51. End If
    52. End Sub
    54. Private Sub UserForm_Activate()
    56. End Sub
    58. Private Sub UserForm_Click()
    60. End Sub
    62. Private Sub UserForm_Initialize()
    64. letzte = Worksheets("Makrodaten").Range("C" & Rows.Count).End(xlUp).Row
    66. For i = 1 To letzte
    67. ComboBox1.AddItem Sheets("Makrodaten").Cells(i + 6, 3)
    68. Next i
    70. With ComboBox2
    71. .AddItem "1"
    72. .AddItem "2"
    73. .AddItem "3"
    74. .AddItem "4"
    75. .AddItem "5"
    76. .AddItem "6"
    77. .AddItem "7"
    78. .AddItem "8"
    79. End With
    81. End Sub


    Mein Problem befindet sich in der Zeile

    Quick = Worksheets("Makrodaten").Range("C7")

    Hier zeigt er mir immer den Fehler "13" an.
    Ich wollte diesmal mit Variablen arbeiten da mich mehrer Forenuser darauf aufmerksamer gemacht haben, dass dies so saubrer wäre.
    Leider geht das nicht
    Alle anderen Variablen kann ich normal verwenden

    Wenn ich dann weiter unten
    If ComboBox1.Value = Quick Then
    Quick durch Worksheets("Makrodaten").Range("C7") ersetzte macht er genau das was ich will.

    Alle anderen Variablen funktionieren komischerweise. Der Teufel steckt wohl im Detail.

    Anbei befindet sich eine Testdatei zu der Problematik.

    Ich möchte mich aufjedenfall auf die Zellen im Zweiten Blatt referenzieren.
    Da ich diese Tabelle weitergebe und es sein kann das mein Kollege die Zeiträume ein wenig verändern muss.
    Dies kann er dann einfach durch das ändern der Zellen machen ohne den Code zu verändern.

    Mit freundlichen Grüßen Edgar Kraft
    Dateien

    Hi,
    in VBA müssen alle Referenztypen mit dem Befehlt "SET" zugewiesen werden.

    Also ein Integer zB geht:

    Visual Basic-Quellcode

    1. ​
    2. Dim i as Integer
    3. i=12

    Sämtliche "Objekte"

    Visual Basic-Quellcode

    1. Dim r as range
    2. set r = worksheet(1).Range("C7")


    LG
    Das ist meine Signatur und sie wird wunderbar sein!

    Moin Danke für die schnelle Hilfe,

    Ich habe es ausprobiert und es funktioniert.

    Ich habe aber auch Dim as String ausprobiert und das geht auch wunderbar.

    Wo genau ist das der Unterschied?

    Kann ich String nur so lange benutzen solange ich mich genau auf eine Zelle mit einem Text referenziere?

    EdgarKraft schrieb:

    Quick = Worksheets("Makrodaten").Range("C7")
    Das ist ein Range-Objekt und müsste mit Set zugewiesen werden.

    Visual Basic-Quellcode

    1. Set CellC7 = Worksheets("Makrodaten").Range("C7")

    Was du aber eigentlich möchtest ist

    Visual Basic-Quellcode

    1. Quick = Worksheets("Makrodaten").Range("C7").Value
    bzw. um sicher zu gehen, dass du für dein Long auch eine Zahl bekommst

    Visual Basic-Quellcode

    1. ​Quick = Val(Worksheets("Makrodaten").Range("C7").Value)

    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Das Thema ist ziemlich umfangreich.
    Ein kleiner Exkurs.

    In VBA würde ich dir empfehlen in der ersten Zeile jedes Moduls/Class Option Explicit zu schreiben.
    Damit erzwingst du, dass du jede Variable deklarieren musst.

    Alle Variablen haben irgendeinen Typ.
    Schreibst du zB

    Visual Basic-Quellcode

    1. i = 34
    2. Debug.Print (TypeName(i))


    Dann erhälst du Integer.
    Es ist möglich in VBA auf explizite Datentypen zu verzichten. Aber dabei kommt man schnell zu Problemen deren Ursprung man dann oft nur schwer erkennt, vor allem als "Beginner".
    Grundsätzlich gibt es in VBA die Wertetypen, die man eben einfach zuweisen kann. Der Hintergrund ist kurz angerissen das diese Daten tatsächlich mit ihrem Wert auf dem Stack liegen.
    Diese sind von der Größe her begrenzt und daher kann man sie dort speichern und laden.

    Die sogenannten Referenztypen sind jene Variablen, die nahezu unbegrenzt groß werden können. Zum Beispiel ein Workbook.
    Das hat zig Eigenschaften und Methoden und daher werden diese Daten auf dem Heap gespeichert.
    Der Heap ist etwas "weiter" weg, komplexer in der Speicherung und daher langsamer. Man speichert sich zu diesen Daten dann nur die Adresse wo dein Workbookobjekt liegt.

    In VBA werden diese beiden Typen unterschiedlich zugewiesen, um den Unterschied quasi zu verdeutlichen.


    Ich will da jetzt aber gar nicht näher drauf eingehen.

    Warum aber kannst du nun schreiben:

    Visual Basic-Quellcode

    1. dim s as string
    2. s=Worksheets(1).Range("C7")


    Ja das liegt an einem weiteren "Feature" aus VBA. Jeder Referenztyp kann ein sogenanntes Default Property habe.
    Bei Range ist es Value. Value kann vom Typ String sein.
    Man kann also schreiben:

    Visual Basic-Quellcode

    1. Worksheets(1).Range("C7") = "Test"


    Obwohl das eigentlich ein Range Objekt ist verwendet der Compiler dann die Eigenschaft Value vom Rangeobjekt.

    Ein weiteres Feature in VBA ist das nahezu alles was geht implizit (also nicht extra anzugeben und im Hintergrund automatisch) Typen konvertiert.
    Wenn man weiß wie das läuft kann das ein angenehmes Feature sein, aber eigentlich ist es eher ein Fallstrick gerade wenn man anfängt programmieren zu lernen.

    Abschließend vll noch. Das Thema Datentypen ist ein Grundlagenthema in der Programmierung. Wenn man verstehen will was man macht dann sollte man sich damit zumindest halbwegs gut auskennen innerhalb seiner Sprache.


    LG
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende