Hallo Zusammen
Ich bin gerade berufsbedingt mit einer liste am kämpfen und hoffe ihr könnt mir weiterhelfen
Ich
Es geht um Lüftungsgeräte die eine Kabelanspeisung brauchen
Diese kabel sollen in einer Liste erscheinen wenn ich ein Lüftungsgerät mit der dazugehörigen Ventilatoranzahl auswähle.
Das Ergebnis dieser Zusammensetzung Gerät+Ventilatoranzahl soll jedoch auf einer neuen Seite erstellt werden
[
attachment=5618] erklärt das ganze nochmal
Danke für euren Support!
Hallöchen,
gehe ich richtig in der Annahme, dass Du immer die zur jeweiligen Ventilatorenanzahl gehörende Liste auf ein anderes Blatt kopieren willst?
Auf dem Bild fehlen die Zeilen- und Spaltenbeschriftungen. Ich gehe jetzt mal davon aus, dass das "Bild" mit A1 beginnt. Bei einem Ventilator soll der Bereich A11:C14 kopiert werden, bei vier Ventilatoren der Bereich M11:O17?
Die Daten stehen auf einem Tabellenblatt "Tabelle1" und sollen in ein Tabellenblatt "Tabelle2" eingefügt werden und dort immer in A1 und daneben + darunter. Bei der nächsten Auswahl werden die Daten in Tabelle2 gelöscht und die neue Auswahl dort eingefügt?
Ja genau da liegst du genau richtig!!!
Hast du etwa auch die lösung dafür??
Hallöchen,
hast Du schon mal was mit Makros gemacht?
Gehe mit Alt+F11 in den VBA-Editor und öffne im Projektexplorer (linke Seite) das Tabellenblattmodul von Tabelle1 ( Tabelle1 anklicken ). Füge dort diesen Code ein:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn in B2 etwas eingegeben wurde, dann
If Target.Address = "$B$2" Then
'Tabelle2 komplett leeren
Sheets("Tabelle2").Cells.ClearContents
'Gerätebereich kopieren. Bereich beginnt in Spalte 1 und folgend in jeder 4. Spalte: (Target.Value - 1) * 4
'und verlängert sich je Ventilator um eine Zeile: Resize(3 + Target.Value, 3)
'Einfügen in Tabelle 2, Zelle A1
Cells(11, 1 + (Target.Value - 1) * 4).Resize(3 + Target.Value, 3).Copy Sheets("Tabelle2").Cells(1, 1)
'Eingabezwlle auswaehlen
Target.Select
'Ende Wenn in B2 etwas eingegeben wurde, dann
End If
End Sub
Beachte, dass das Makro bei jeder EIngabe in B2 die komplette Tabelle2 leert.
Eingabezelle ist B2. Bitte dort nur Werte eingeben und keine Texte.
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| | A | B |
| 1 | Gerät | Ventilatoren |
| 2 | Gerät XY | 1 |