Tabellenname, Spalten, etc durch Variablen ersetzen

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    Tabellenname, Spalten, etc durch Variablen ersetzen

    Hi, ich bins mal wieder :D

    Folgendes:

    Ich will jeden Tabellennamen und jede Zeile/Spalte jeweils durch eine Variable ersetzen und irgendwie funktioniert es nicht. Habe das was hinter "With" steht (also den Tabellennamen) ersetzt durch die Variable "Test", die ich in einem anderen Modul so definiert habe:

    VB.NET-Quellcode

    1. Public Test As Variant
    2. Sub Sortieren()
    3. Test = Worksheets(1).CodeName
    4. MsgBox Test
    5. End Sub


    Die MsgBox spuckt mir schon mal den richtigen Wert aus. Aber irgendwie will VBA nicht...: Laufzeitfehler '424': Objekt erforderlich
    Dabei wird die Zeile #33 markiert. Kann ich das gar nicht durch eine Variable ersetzen??

    VB.NET-Quellcode

    1. Option Explicit
    3. 'ermittelt je Haltung die Renovierungskosten
    5. 'Dauer der Ausführung dieses Moduls: 0:12 Minuten
    7. Sub KostenRenovierung()
    9. Dim Zeile As Long
    10. Dim ZeileMax As Long
    12. Dim AnschlussZahl As Integer
    13. Dim AnschlussKosten As Integer
    15. Dim DurchmesserLast As Integer
    16. Dim DurchmesserGes As Integer
    17. Dim DurchmesserNow As Integer
    19. Dim Materialart As Range
    20. Dim ProfilartGes As Integer
    21. Dim ErsteMaterialart As String
    22. Dim PassenderTreffer As Range
    23. Dim Suchbereich As Range
    25. Set Suchbereich = Tabelle7.UsedRange 'Tabelle, die die Reparaturkosten enthält
    27. AnschlussZahl = 0 'Anfangsanzahl
    28. AnschlussKosten = 450 'Kosten in Euro, die je Anschluss der Haltung aufaddiert werden
    30. With Test
    32. 'zu bearbeitenden Bereich leeren
    33. .Range("HR:HR").ClearContents
    35. .Range("HR40").Value = "Renovierung" 'Spaltenüberschrift setzen
    36. ZeileMax = .UsedRange.Rows.Count 'letzte Zeile ermitteln
    38. For Zeile = 41 To ZeileMax 'jede Zeile
    40. If .Cells(Zeile, 101).Value = "BCA" Then
    41. AnschlussZahl = AnschlussZahl + 1
    42. End If
    43. .
    44. .
    45. .
    46. Geht noch weiter, aber das reicht erstmal :D

    Ich nehme an, dein Test soll das Worksheet Objekt sein.
    Weil du setzt es ja einfach mit dem String (dem Codename) des Worksheets.
    String hat auch kein Range Member usw.

    Wenn dann:

    Visual Basic-Quellcode

    1. ​
    2. set Test = Worksheets(1)
    Das ist meine Signatur und sie wird wunderbar sein!

    Ja du kannst es in dem einen Modul global und public deklarieren:

    Visual Basic-Quellcode

    1. Public Test As Worksheet
    2. Public Sub setit()
    3. Set Test = Worksheets(1)
    4. End Sub


    Im 2. Modul dann einfach verwenden:

    Visual Basic-Quellcode

    1. Sub useit()
    2. Module1.setit
    3. Debug.Print (Module1.Test.CodeName)
    4. End Sub


    Du musst nichtmal zwingend den Modulnamen am Anfang verwenden, aber es ist dann denke ich besser zu lesen und sobald du Module1. schreibst erhältst du auch Vorschläge von der IDE.
    Aber Achtung, theoretisch kannst du auch auf Test zugreifen, ohne das es vorher via Module1.setit gesetzt wurde! Dann ist Test nicht initialisiert und ist Nothing!
    Das ist meine Signatur und sie wird wunderbar sein!