Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Objekt nach Angabe von Maßen erstellen

Forumthread: Objekt nach Angabe von Maßen erstellen

Objekt nach Angabe von Maßen erstellen
Maßen
Nabend!
Kurze Erläuterung:
In meiner Ausbildungsfirma bin ich im Moment im Versand tätig. Wenn wir dort mehrere LKW's für einen Auftrag verschicken, planen wir die Anordnung der Maschinen per Skizze. Halt alles per Hand und das ist sehr aufwendig, soll ja auch genau sein.
Ich habe mir es zur Aufgabe gemacht diesen "Beladeplan" in Excel zu überarbeiten und mit möglichst wenigen Mausklicks oder Eingaben den selben Beladeplan zu erstellen. Nur in schöner und schneller.
Lösungswunsch:
Am Besten wäre es natürlich, wenn ich die Maße und die Namen der Maschinen in eine Excel-Liste eingeben könnte und Excel mir mitHilfe eines Makros dann sämtliche Maschinen mit ihren Maßen und Namen erstellen würde, sodass ich die Objekte nur noch nehmen und zu den entsprechenden Stellplätzen schieben brauch.
Nur leider bin ich kein Excel-Programmierer und weis daher auch nicht ob das überhaupt möglich ist. Ein Arbeitskollege hat mir diese Seite hier empfohlen.
Es wäre echt klasse, wenn mir jemand weiter helfen könnte.
Gruß,
Jan
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
19.01.2010 21:11:12
Maßen
Hallo Jan,
wenn du die Abmaße (Länge x Breite) der Maschinen als Rechtecke erzeugen willst, dann ist das kein großer Aufwand. Diese per VBA erzeugten Rechtecke könntest du dann in einem anderen großen Rechteck (entspricht der Ladefläche) manuell plazieren. Für eine etwaigen maßstäblichen Ausdruck passt das allerdings nicht, da Excel mit Points rechnet und nicht mit Zentimeter.
Wenn wir aber sowohl die Abmaße der Maschinen als auch die Ladefläche in Points darstellen, passt das ganze wieder, solange wir in Excel bleiben. Ein Beispiel:
https://www.herber.de/bbs/user/67333.xls
gib mir Bescheid, wie du damit zurecht kommst.
Gruß
Christian
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
20.01.2010 08:42:18
Maßen
Hi Christian!
Fürs erste bin ich total begeistert. Ich hätte nicht gedacht, dass Excel dazu fähig ist.
Kann man das Problem mit den Points nicht einfach beheben indem man per Formel die Maßeinheiten direkt umrechnen lässt. Ich habe in der Datei bei den Maßangaben jeweils eine Spalte mit den Pointsangaben hinzugefügt. Nun könnte Excel doch mit den Werten arbeiten, oder?
Nur bräuchte ich auf dem Beladeplan dann die Zentimeter- bzw. Meterangaben. Meinste das wäre möglich, dass Excel sich dann weiterhin noch auf diese Zellen bezieht?
Zusätzlich wäre es dann natürlich super, wenn die LKW's nebeneinander auftauchen würden. Da es eine Norm für die Breite der LKW's gibt, könnte das klappen, oder?
https://www.herber.de/bbs/user/67338.xls
Ich habe alles was ich geändert habe grün makiert.
Danke für deine Hilfe!
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
20.01.2010 11:33:43
Maßen
Hallo Jan,
deine Umrechnung Points zu Zentimeter stimmt aber nur für die Höhe, daher wirst du beim Ausdruck das selbe Problem haben. Aber wer druckt heute schon noch auf Papier - isch habe gar kein Drucker...
Anyway, ich hab das mal eingebaut - Basis sind die Tabellen aus meinem ersten Beispiel.
Gruß
Christian 

Option Explicit
Sub Ladung()
Dim sh As Shape, i As Long, j As Long, strTxt As String
Dim sngTop As Single, sngLeft As Single, sngMax As Single
Dim sngWidth As Single, sngHeight As Single
Const DST As Single = 15
Const PTS As Single = 28.35
For Each sh In shErgebnis.Shapes
sh.Delete
Next
With shLadeflaeche
sngTop = DST
sngLeft = DST
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
sngHeight = .Cells(i, 2).Value * PTS
sngWidth = .Cells(i, 3).Value * PTS
strTxt = .Cells(i, 1) & " " & sngHeight / PTS & "x" & sngWidth / PTS
Set sh = shErgebnis.Shapes.AddShape(1, sngLeft, sngTop, sngWidth, sngHeight)
sh.TextFrame.Characters.Text = strTxt
sh.Fill.ForeColor.SchemeColor = 22
sngLeft = sngLeft + sngWidth + DST
sngMax = IIf(sngMax

Anzeige
AW: Objekt nach Angabe von Maßen erstellen
21.01.2010 17:05:37
Maßen
Hi!
Danke für deine erneute schnelle Hilfe, die ich aber nochmal benötige. Da ich absolut keine Erfahrung beim Programmieren von Excel-Dateien habe und ich die Formatierungen nicht so ändern kann, wie sie beim Ausdruck dann am Besten aussehen würde, wäre ich dir sehr dankbar wenn du mir nochmal helfen könntest.
https://www.herber.de/bbs/user/67395.xls
Ich habe das Ergebnis so formatiert wie es am Besten nach Betätigen des Makro-Buttons aussehen sollte.
Die LKW's nebeneinander, die Schrift ein wenig größer und den Text zentriert. Desweiteren könnten im Tabellenblatt "Abmaße" die Anzahl entfernt und eine Zusatzbemerkung hinzugefügt werden (z.B. für alternativen Ladeort).
Wenn du diese Änderungen noch vollziehen könntest, wäre ich dir höchst dankbar!!
Gruß,
Jan
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
21.01.2010 17:08:13
Maßen
Hi!
Danke für deine erneute schnelle Hilfe, die ich aber nochmal benötige. Da ich absolut keine Erfahrung beim Programmieren von Excel-Dateien habe und ich die Formatierungen nicht so ändern kann, wie sie beim Ausdruck dann am Besten aussehen würde, wäre ich dir sehr dankbar wenn du mir nochmal helfen könntest.
https://www.herber.de/bbs/user/67395.xls
Ich habe das Ergebnis so formatiert wie es am Besten nach Betätigen des Makro-Buttons aussehen sollte.
Die LKW's nebeneinander, die Schrift ein wenig größer und den Text zentriert. Desweiteren könnten im Tabellenblatt "Abmaße" die Anzahl entfernt und eine Zusatzbemerkung hinzugefügt werden (z.B. für alternativen Ladeort).
Wenn du diese Änderungen noch vollziehen könntest, wäre ich dir höchst dankbar!!
Gruß,
Jan
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
21.01.2010 17:09:14
Maßen
Hi!
Danke für deine erneute schnelle Hilfe, die ich aber nochmal benötige. Da ich absolut keine Erfahrung beim Programmieren von Excel-Dateien habe und ich die Formatierungen nicht so ändern kann, wie sie beim Ausdruck dann am Besten aussehen würde, wäre ich dir sehr dankbar wenn du mir nochmal helfen könntest.
https://www.herber.de/bbs/user/67395.xls
Ich habe das Ergebnis so formatiert wie es am Besten nach Betätigen des Makro-Buttons aussehen sollte.
Die LKW's nebeneinander, die Schrift ein wenig größer und den Text zentriert. Desweiteren könnten im Tabellenblatt "Abmaße" die Anzahl entfernt und eine Zusatzbemerkung hinzugefügt werden (z.B. für alternativen Ladeort).
Wenn du diese Änderungen noch vollziehen könntest, wäre ich dir höchst dankbar!!
Gruß,
Jan
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
21.01.2010 20:21:51
Maßen
Hallo,
ich bin eigentlich nicht dafür, Komplett-Lösungen anzubieten, der Fragesteller lernt dabei so wenig ...aber da ich schon mal dabei bin...
Btw - es macht IMHO wenig Sinn, die Schriftgröße erst zu verdoppeln und anschließend den Zoom zu halbieren. Ich hab das im Code über den Skalierungfaktor "SCL" abgefangen.
Wenn du den Text der "Bemerkung" nicht in den Shapes haben willst, dann kommentiere die Zeile mit "Bermerkung" im Script aus.
Gib mir Bescheid, wie du damit zurecht kommst.
https://www.herber.de/bbs/user/67401.xls
Gruß
Christian
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
24.01.2010 21:19:38
Maßen
Hi!
Ich komme damit wunderbar zurecht.
Deiner Einstellung stimme ich soweit auch zu, nur ich muss die Datei bis Ende nächster Woche fertig gestellt haben und daher hatte ich nicht mehr die Zeit mir das mit dem Programmieren noch bei zu bringen. Daher bin/war ich total auf fremde Hilfe angewiesen, das aber auch sehr gut geklappt hat. ;)
Vorerst habe ich dann jetzt auch keinerlei Fragen mehr. Morgen soll die Datei zum ersten Mal eingesetzt werden. Mal gucken, wie zufrieden meine Kollegen damit sind. Falls dann noch Änderungswünsche auftreten sollten melde ich nochmal. Ansonsten kann ich mich bei dir immer wieder nur bedanken!!
Gruß,
Jan
Anzeige
AW: Objekt nach Angabe von Maßen erstellen
25.01.2010 12:49:04
Maßen
Hey!
Wie es immer so ist, gäbe es nun doch noch etwas, dass geändert werden könnte.. es ist aber auch nicht mehr so viel, glaube ich. Ich habe es schon selber versucht zu ändern, aber ich habe es nicht hingekriegt, aber ich bin mir sicher, dass du mir weiterhelfen kannst.
https://www.herber.de/bbs/user/67463.xls
Es wäre nämlich super, wenn der Maschinenname fett und die Maße darunter kursiv wären. Sieht einfach schöner aus!
Was muss ich dazu machen?
Gruß,
Jan
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Objekt nach Angabe von Maßen in Excel erstellen

Schritt-für-Schritt-Anleitung

  1. Vorbereitung der Excel-Datei: Erstelle eine Tabelle in Excel, in der Du die Maße (Länge und Breite) sowie die Namen der Maschinen einträgst. Achte darauf, dass die Maße in einer Einheit angegeben sind, die Du später leicht umrechnen kannst.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf dein Projekt im VBA-Editor und wähle Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Makro einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit
Sub Ladung()
    Dim sh As Shape, i As Long, sngTop As Single, sngLeft As Single
    Dim sngWidth As Single, sngHeight As Single
    Const DST As Single = 15
    Const PTS As Single = 28.35

    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next

    sngTop = DST
    sngLeft = DST

    For i = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        sngHeight = ActiveSheet.Cells(i, 2).Value * PTS
        sngWidth = ActiveSheet.Cells(i, 3).Value * PTS

        Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, sngLeft, sngTop, sngWidth, sngHeight)
        sh.TextFrame.Characters.Text = ActiveSheet.Cells(i, 1).Value
        sngLeft = sngLeft + sngWidth + DST
    Next
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro „Ladung“ aus und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

  • Fehler: Shape wird nicht erstellt
    Lösung: Stelle sicher, dass Du die Maße korrekt in der Excel-Tabelle eingetragen hast und dass das Makro nicht fehlerhaft ist.

  • Fehler: Maße werden nicht richtig dargestellt
    Lösung: Überprüfe die Umrechnung von Points zu Zentimeter. Achte darauf, dass die Umrechnungsformeln korrekt in der Tabelle implementiert sind.

Alternative Methoden

  • Diagramme verwenden: Eine Möglichkeit, den LKW Ladeplan zu visualisieren, wäre die Verwendung von Excel-Diagrammen. Du kannst die Daten in einem Diagramm darstellen, um eine einfachere Übersicht zu erhalten.

  • Excel Vorlagen nutzen: Es gibt bereits viele Excel-Vorlagen für Ladepläne, die Du anpassen kannst. Dies kann Dir helfen, schnell einen Beladeplan zu erstellen, ohne alles selbst von Grund auf neu zu machen.

Praktische Beispiele

  • Beispiel für Maßeingaben: Deine Excel-Tabelle könnte folgendermaßen aussehen:

    Maschinenname Länge (cm) Breite (cm)
    Maschine A 100 50
    Maschine B 120 60

  • Ladeplan erstellen: Mit dem oben genannten VBA-Code kannst Du nun die Maschinen in einem Ladeplan für den LKW visualisieren.

Tipps für Profis

  • VBA anpassen: Du kannst den VBA-Code so anpassen, dass er die Maschinen automatisch nebeneinander anordnet, basierend auf den Breitenangaben.

  • Formel zur Umrechnung: Implementiere eine Formel in Deiner Excel-Tabelle, um die Maße automatisch von Zentimeter in Points umzurechnen. Dies kann Dir helfen, den Prozess zu optimieren.

FAQ: Häufige Fragen

1. Wie kann ich die Maßeinheit ändern?
Du kannst die Maßeinheit direkt in der Excel-Tabelle ändern und die entsprechenden Umrechnungsformeln anpassen.

2. Ist es möglich, mehrere LKW Ladepläne gleichzeitig zu erstellen?
Ja, Du kannst den VBA-Code so anpassen, dass er verschiedene Ladepläne in einer einzigen Ausführung generiert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige