Office: Liste aus einer Tabelle erstellen.

Hallo,
ich habe da ein Problem. Und zwar in der unten angehängten datei sind 2 Datenblätter. Einmal "Master" und "neue Muster" mein problem ist das ich gerne möchte das die Blechnrn. aus "Master" (von beiden Tabellen) in "neue Muster" in die Tabelle eingetragen werden (desweiteren müssten wenn es mehr Blechnr. werden neue Zeilen engefügt werden). ich habe keine idee wie man das lösen könnte, da ich mich so gut wie gar net mit VBA auskenne und ich glaube das es ohne das nicht geht....

Vielen dank schon mal im Voraus.

MfG Xinor

PS: Die zeillen die Blau eingefärbt sind müssen leer bleiben.... da wird später noch was nachgetragen.

 

Hallo!

Kannst du bitte nochmal etwas genauer beschreiben, was genau wohin genau kopiert werden soll?
Ich blicke da ehrlich gesagt nicht durch, denn Blechnummern finde ich eigentlich nur ab Spalte N, aber das passt dann nicht mit den Spaltenbezeichnungen im Blatt "neue Muster"...

 

genau das ist das Problem... Der erste bereich ist N28:BK52 und der zweite N57:BK81 . und diese Nummern müssen in die Spalten "neue Muster" F28:F53. Wobei die Spalten niemals alle voll gefüllt werden

 

Hallo!

Wenn du im Blatt "Neue Muster" einen Button erstellst und ihm diesen Code zuweist, dann sollte es funktionieren:

Code:

Private Sub CommandButton1_Click()
Dim Bereich As Range, Zelle As Range, Zeile As Integer
With Sheets("Master")
Set Bereich = Union(.Range("N28:BJ52"), .Range("N57:BJ81"))
End With
Range("F28:F53").ClearContents
Zeile = 28
For Each Zelle In Bereich
If Zelle <> "" Then
Cells(Zeile, 6) = Zelle
Zeile = Zeile + 1
End If
Next Zelle
End Sub

 

und wie mache ich das? ich kenn mich mit VBA net so aus....

 

Hallo!

Über
Menü Ansicht > Symbolleisten > Steuerelemente-Toolbox
kommst du an das Button-Symbol.
Ziehe ihn auf, rechtsklicke ihn und wähle "Code anzeigen".
Den Coderumpf erweiterst du wie oben angegeben.
Zurück in der Tabelle klickst du in der Steuerelemente-Symbolleiste auf "Entwurfsmodus beenden" und der Button ist klickbereit.

 

thx scheint auf den ersten blick zu funktionieren^^ vielen vielen dank

 

Hallo,
da das so gut klappt habe ich da ne Frage und zwar kann man den Code erweitern so das der aus der gleichen Zeile auch Länge Breite etc. automatisch einfügt? wenn nicht dann ist das nicht sooo schlimm da ich sonst irgendwie mit wverweis arbeiten wobei ich noch nich genau weiß wie

Gruss Xinor

 

Hallo!

Ich hoffe, ich habe die Problemstellung richtig verstanden, denn so ganz klar ist mir der Aufbau immernoch nicht...

Code:

Private Sub CommandButton1_Click()
Dim Bereich As Range, Zelle As Range, Zeile%
With Sheets("Master")
Set Bereich = Union(.Range("N28:BJ52"), .Range("N57:BJ81"))
Range("F28:F53").ClearContents
Zeile = 28
For Each Zelle In Bereich
If Zelle <> "" Then
Cells(Zeile, 6) = Zelle
Cells(Zeile, 3) = .Cells(Zelle.Row, 5) '<--Länge
Cells(Zeile, 4) = .Cells(Zelle.Row, 4) '<--Breite
Cells(Zeile, 5) = .Cells(Zelle.Row, 3) '<--Dicke
Zeile = Zeile + 1
End If
Next Zelle
End With
End Sub

 

und wie füge ich die zusammen also das beide über einen button laufen
wenn ich die zweite einfach daunter "hänge" krieg ich die Fehlermeldung: Fehler beim Kompilieren. Mehrdeutiger Name: CommandButton1_Click

Also um mein Problem zu verdeutlichen. es geht darum das verschiede arten von blechen angeliefert werden. Jedes Blech hat eine eigene Nr. die wir in verschiedene Tabellen eintragen müssen. Zurzeit nur eine, allerdings wird dieses Bald erweitert, aber dann übernehme ich das VBA, da sich das nur in der Formatierung varieren wird.
Um Arbeitszeit zu sparen soll man nicht jede Tabelle einzeln ausfüllen sondern mit dem jeweiligen Button die Liste automatisch ausfüllen lassen (alle bekommen die selben Nr.) um dieses dann ausdrucken zu können und dem Kunden zu übergeben.

 

Hallo!

Dies ist die Erweiterung des ersten Codes, also brauchst du den ersten nicht mehr.
Es sind nur die drei gekennzeichneten Zeilen dazugekommen.

 

Funktioniert alles perfekt^^ vielen vielen Dank