Tabellen von Modul aufrufen
21.01.2025 15:57:20
Chatzebuseli
Ich hogg wieder mal etwas fest.
Nicht das erste mal an dieser Stelle... offenbar ist mir das noch nicht ganz klar!
Um was geht es im grossen ganzen:
Ich verwalte von einer Userform mehrere "Konten". Diese Konten sind Workbooks mit den darin enthaltenen Daten.
Innerhalb der Userform kann man die anwählen, verwalten, ändern u.s.w.
Die Pfads sind als Const im Head des codes gespeichert.
Option Explicit
Dim oBerechnungen As clsBerechnungen
Const conKontoKatze= ("C:\Users\Chatzebuseli\Documents\Haus\KontoChatzebuseli.xlsx")
Const conKontoHund = ("C:\Users\Chatzebuseli\Documents\Haus\KontoHundibello.xlsx")
die Konten werdn Ausgewählt
Select Case (strKonto) ' Hund oder Katze = Combobox2.value
Case ("Katze")
Set wbKonto = Workbooks.Open(conKontoKatze=)
intZ = 21
With wbKonto.Worksheets("Konto")
' und tut dann hald was, was er auch tut !
End With
Case ("Hund")
'selber scheiss..... geht auch!
End With
End Selectzusäzlich habe ich ein Modul, welches eine Constante enthält:
Public wbKonto As WorkbookSo jetz habe ich mal erzählt was ich habe, nun kommt dass, was ich nicht habe:
An einem Punkt aber aktiviert die Userform eine vorgefertigte Tabelle(Tabelle4) in der Mappe in welchem der Code,für die Userform steht. In dieser Tabelle4 ist ein Button,
welcher wiederum ein Modul (Modul 2) aktiviert. Also code der nicht in der Userform hinterlegt ist.
Die Daten sollten vorrangig in die Userform eingelesen werden. Einzelne aber direkt in die Mappe Konto.
Und da kann ich nicht auf wbKonto.Worksheets ("Übersicht") zugreifen.
With wbKonto.Worksheets("Übersicht") ' Hier kommt im modul 2 Laufzeitfehler 91
Do While .Cells(intZ, 2) > Empty
strLesen = .Cells(intZ, 2).Value
If strWert = strLesen Then
bolWerdtDaP = True 'Schon Vorhanden
Exit Do
Else
intZ = intZ + 1
End If
Loop
End WithLaufzeitfehler 91..... aber warum? ich habe nie ...
set wbKonto = Nothing .. auf dem weg dahin.
Hab ich ein Brett vor dem Kopf, wer hat n Zollstock und ne Säge?
Wie greife ich auch von dem "Modul 2" auf das wbKonto zu bzw.auf die Tabelle1 ("Übersicht")?
Da bin ich nicht das erste mal kirre geworden wegen.
Danke für eure Hilfe
E liebs Griessli
Chatzebuseli
Anzeige