Variable Bereiche definieren

[hziemer]

Hallo an alle Forenmitglieder

Ich habe folgendes Problem:

Wenn ich wie unten automatisch CommandButtons zuordne

Private Sub Worksheet_Activate()

  Me.CommandButton1.Caption = Worksheets("Liste Artikel").Range("a2").Value & Chr$(10) & Worksheets("Liste Artikel").Range("a8").Value
  Me.CommandButton2.Caption = Worksheets("Liste Artikel").Range("a19").Value & Chr$(10) & Worksheets("Liste Artikel").Range("a25").Value
.
.
.
.
Me.CommandButton2.Caption = Worksheets("Liste Artikel").Range("a750").Value & Chr$(10) & Worksheets("Liste Artikel").Range("a787").Value
End Sub

funktioniert das einwandfrei.

Aber das Problem ist dabei, dass sich die Anzahl der Zeilen innerhalb einer Selektion ändern können. Der Bereich der zu den Buttons gehört muss variabel verarbeitet werden.
Ich habe schon mit Namen für die einzelnen Bereiche probiert. Aber das funktioniert nicht, weil mir Wissen fehlt.

Kann mir jemand dafür einen Tipp geben.

Vielen Dank an alle
hziemer

[Kuwer]

Hallo Hermann,

ohne zu wissen, wie das Blatt "Liste Artikel" aufgebaut ist, wird das nichts.

Gruß Uwe

[hziemer]

Hallo Hermann,

ohne zu wissen, wie das Blatt "Liste Artikel" aufgebaut ist, wird das nichts.

Gruß Uwe

Hallo Uwe

Hier mal eine Beispiel Tabelle

Danke

[Kuwer]

Hallo Hermann,

ich habe mal die entsprechenden Bereiche in Spalte A benannt.
Siehe dazu auch hier: Namen (1) - Einstieg und folgende

Gruß Uwe

[atilla]

Hallo,

ich gehe davon aus, dass Du mit den Schaltflächen Bereiche in der Tabelle auswählen möchtest.

Wenn meine Vermutung richtig ist, dann würde ich in Deiner Datentabelle die Spalte A mit Gruppennamen auffüllen und die Liste immer nach dieser Spalte sortieren. In meinem eingestellten Beispiel geschieht das immer bei Aufruf der Userform

Dann kann das alles wesentlich dynamischer aufgebaut werden.

Weil mir langweilig war habe ich unten eine Beispieldatei erstellt, so wie ich es aufziehen würde.
Meine Glaskugel sagte mir, dass Du noch eine Pivottabelle benötigen könntest, in der Du bequem verschiedene Abfragen tätigen kannst.

Die habe ich dann auch mal eingebaut. Die Pivottabelle ist dynamisch und wird bei Aktivierung des Blattes automatisch aktualisiert.

Die Schaltfläche in Tabelle "Liste Artikel" ruft eine Userform auf. Sie sollte, soweit ich, wie oben geschrieben, richtig liege, Deine Commandbuttons ersetzen. Die Schaltfläche auf der Tabelle gibt gleichzeitig die Startposition der Userform vor.


  Artikelsuche.xlsm (Größe: 38,95 KB / Downloads: 5)

[hziemer]

Hallo Uwe

Vielen Dank für Deine Hilfe.
Es funktioniert, aber ich habe keine Ahnung warum.
Was bedeutet .Cells(7) ?

Viele Grüße
Hermann

[Kuwer]

Hallo Hermann,

.Range("Knopf").Cells(7) z.B. ist die 7. Zelle des Beeichs "Knopf".
Gehe mal mit dem Cursor auf Cells und drücke F1.

Gruß Uwe

[hziemer]

Hallo Hermann,

.Range("Knopf").Cells(7) z.B. ist die 7. Zelle des Beeichs "Knopf".
Gehe mal mit dem Cursor auf Cells und drücke F1.

Gruß Uwe

Guten Morgen Uwe

Meine Hilfe im Excel versucht immer die Hilfe aus dem Internet zu holen nd findet nichts. Die Offline Hilfe ebenso.
Die einzige Hilfe ist dann Google etc...

Mein Problem ist dank Deiner Hilfe gelöst.

Liebe Grüße
Hermann

[Kuwer]

Hallo Hermann,

das ist bei mir auch so.
Dann klicke ich auf den Dropdownpfeil von Suchen und wähle
unterhalb von Inhalte von diesem Computer die letzte Zeile Hilfe für Entwickler aus.

Gruß Uwe

[Rabe]

Hi Uwe,

das ist bei mir auch so.
Dann klicke ich auf den Dropdownpfeil von Suchen und wähle
unterhalb von Inhalte von diesem Computer die letzte Zeile Hilfe für Entwickler aus.

das ist bei vielen so (auch bei mir). Es wäre gut, wenn Du das als Tipp in einen Extra Beitrag schreiben könntest.