Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Variable Bereiche definieren
#1
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
Antworten Top
#2
Hallo Hermann,

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

Gruß Uwe
Antworten Top
#3
(01.03.2015, 18:06)Kuwer schrieb: 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


Angehängte Dateien
.xlsx   Beispiel.xlsx (Größe: 15,15 KB / Downloads: 4)
Antworten Top
#4
Hallo Hermann,

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

Gruß Uwe


Angehängte Dateien
.xlsm   Variable Bereiche definieren.xlsm (Größe: 32,83 KB / Downloads: 6)
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • hziemer
Antworten Top
#5
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.


.xlsm   Artikelsuche.xlsm (Größe: 38,95 KB / Downloads: 5)
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • hziemer
Antworten Top
#6
Hallo Uwe

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

Viele Grüße
Hermann
Antworten Top
#7
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. Wink

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • hziemer
Antworten Top
#8
(02.03.2015, 20:25)Kuwer schrieb: 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. Wink

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
Antworten Top
#9
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
Antworten Top
#10
Hi Uwe,
(03.03.2015, 06:10)Kuwer schrieb: 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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste