Liste aus einer Tabelle erstellen. :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Liste aus einer Tabelle erstellen.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 30.04.2008, 11:08

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.

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

60 KB

Heruntergeladen:

14 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4400

Verfasst am: 30.04.2008, 12:34

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"...

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 01.05.2008, 18:33

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4400

Verfasst am: 02.05.2008, 12:36

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

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 02.05.2008, 13:02

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4400

Verfasst am: 02.05.2008, 13:08

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.

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 02.05.2008, 13:16

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

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 05.05.2008, 06:15

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 Razz

Gruss Xinor

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4400

Verfasst am: 05.05.2008, 11:23

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

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 05.05.2008, 12:11

und wie füge ich die zusammen also das beide über einen button laufen o.O
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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4400

Verfasst am: 05.05.2008, 12:18

Hallo!

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

Xinor
Newbie
Newbie

Anmeldedatum: 30.04.2008
Beiträge: 19

Verfasst am: 06.05.2008, 06:41

Funktioniert alles perfekt^^ vielen vielen Dank

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Terminliste anhand eines Datumswert e...	vivi07	Microsoft Excel Hilfe	2	07.05.2008, 11:28
	Frage: Excel verknüfte Drop Down Liste	Sordon	Microsoft Excel Hilfe	6	05.05.2008, 08:37
	Inhalt einer Datei in eine Variable ü...	michl	Microsoft Word Hilfe	1	30.04.2008, 18:32
	Nach Auswahl aus Dropdown-Liste besti...	vision311	Microsoft Word Hilfe	1	30.04.2008, 09:03
	Tabelle auswerten und in neuer Übertr...	samos	Microsoft Excel Hilfe	2	30.04.2008, 08:04

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de