Datenzugriff auf andere Tabellenblätter

feuerharry · 2020-02-26T19:07:57+00:00

Hy an alle Würde bitte Eure Hilfe brauchen Habe eine Userform, eine Combobox (Auswahl) die auf Tabellenblätter zugreift, alle Blätter sind gleich formatiert. Wenn ich in UF1 auf Verbrauch clicke öffnet UF2. Nur beim ersten Mal auf korrektes Tabellenblatt. Bei anderer Auswahl in UF1 (Gas,Strom,Wasser) wechselt das Tabellenblatt, aber Coboboxen 1 + 2 auf UF2 greifen nicht auf die gewünschten Daten zu. https://www.herber.de/bbs/user/135463.xlsm LG feuerharry

Hallo Harry,
mit dem u.a. Code für UF2 werden in Combobox2 nur Datums > des gewählten Datums aus Combobox1 angezeigt.
Dieses zieht aber Probleme beim Ermitteln der Energiewerte via ListIndex nach sich, da ja nicht mehr alle Werte in der CB drin sind.

Private Sub ComboBox1_Change()

 Dim lngCounter As Long, iMax As Long, T1 As String, T2 As String

 Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "DD.MM.YYYY")

 TextBox1.Text = Cells(ComboBox1.ListIndex + 3, 2)

 With ActiveSheet

  iMax = .Cells(.Rows.Count, 1).End(xlUp).Row

  ComboBox2.Clear

  For lngCounter = 3 To iMax

   With .Cells(lngCounter, 1)

    If .Value &LT;&GT; "" Then

      If WorksheetFunction.CountIf(Range(.Cells(1, 1).Address, _

         .Address), .Value) = 1 Then

         If ComboBox1.Text Like "Dat*" Or ComboBox1.Text = "" Then

            ComboBox2.AddItem .Value

         ElseIf CDate(.Value) &GT; CDate(ComboBox1.Text) Then

            ComboBox2.AddItem .Value

         End If

      End If

    End If

   End With

  Next lngCounter

  ComboBox2.Text = "Datum wählen"

 End With

End Sub

viele Grüße
Karl-Heinz

Hy Karl-Heinz
Habe die Userformen ohne Rahmen eingebaut.
Nun zu meinen Problem:
Wenn ich auf UF1 Verbrauch Clicke öffnet UF2, dann Click auf UF1, dort wieder auf Verbrauch.
Bei 32 BIT: Die UF2 wird bei jeder Wiederholung der Höhe und Breite nach grösser. Erst bei Schliesen und wieder öffnen ist sie wieder in Originalgrösse.
Bei 64BIT: Beide UF sind beim Start schon grösser, wie bei 32 Bit, siehe Rahmen.
Weiters habe ich einen rot Rahmen in die UF1 + UF2 eingebaut,damit man die Änderungen der UF2 besser sieht.
Wie kann ich die die Datei senden, sie hat 180 KB.
Datei könnte man wahrscheinlich noch optimieren.
Sende mir deine Email-Adresse per Mail.
Mit besten Dank im Voraus
VLG feuerharry

Datenzugriff auf andere Tabellenblätter

Forumthread: Datenzugriff auf andere Tabellenblätter

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Datenzugriff auf andere Tabellenblätter

Forumthread: Datenzugriff auf andere Tabellenblätter

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread