Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - Botpenner

Seiten: [1]
1
Excel / Antw: Makro zum Importieren von Daten in Excel
« am: Juli 14, 2017, 09:38:18 Vormittag »
Hallo hab versht den Code zu nehmen leider funktioniert das durchsuchen des Blattnames nicht!

Hab in Zeile B10 Angebot reingeschrieben.
Er soll bitte diesen namen bei meiner zu kopierenden Datei suchen und das Blatt Angebot kopieren.
Es kommt immer Laufzeitfehler.

Wenn ich die Funktion (blatt) rausnehme und einen festen Wert eintrage funktioniert der import.
Mir scheint das er die funktion mit blatt nicht nehmen will.


So würde es funktionieren ohne vorher den Blattnamen in einer Zelle zu definieren, aber das möchte ich ja nicht
Code: [Auswählen]

Set Quelle = ActiveWorkbook.Worksheets(2)
Set Ziel = ThisWorkbook.Worksheets(3)


Kann jemand den richtigen code posten?

2
Excel / Daten per Button aus einer anderen Exceldatei einlesen
« am: Juli 13, 2017, 16:21:09 Nachmittag »
Hallo Freunde,

ich bin gerade dabei ein Button zu programmieren der bei Knopfdruck eine Excel datei einliest und ein zuvor gewähltes Tabellenblat in meine Datei kopiert.

Die Definition des Tabellenblattes welches er kopieren soll steht in "B2" meiner Tabelle ( die mit dem Button ).
Er soll dann die Tabelle in meine Zieldatei kopieren .  Das blatt hierfür lautet "import"

Ich schaffe es niccht den Blattnamen zu definieren. Es kommt immer Laufzeitfehler an.

So sieht mein code aus:

Code: [Auswählen]
Sub Import_mit_Dialog()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
 
On Error GoTo Fehler
 
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsx),*xlsx")
 
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
  MsgBox "keine Datei ausgewählt", , "Abbruch"
  Exit Sub
End If
 
'MsgBox "Ausgewählte Datei: " & Datei, , ""
 
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
 
 
'** Auslesen der gewählten Tabelle
'** Angenommen die Blatt-Auswahl "Airbus" und "Bombadier" stehen in Zelle B10
'** Wichtig: die Auswahl muss genauso lauten, wie die Tabellenblätter von denen kopiert werden soll

 

Set Ziel = ThisWorkbook.Worksheets("import")

blatt = Ziel.Range("B2").Value

Set Quelle = ActiveWorkbook.Worksheets(blatt) '<-- gewähltes Blatt wird definiert als Quelle, alles andere wie gehabt

 

 
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
 
 ActiveWorkbook.Close Application.DisplayAlerts = True
MsgBox "Import abgeschlossen!"
 
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
 
Exit Sub
 
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
 
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub


Muss ich die Zelle B2 in ein bestimmtes format bringen?
Die Eingabe in B2 stimmt zu 100% überein mit dem Blattnamen aus der Quelldatei di er kopieren soll.

Sobald ich den begriff "blatt" herausnehme und einen festen Blatnamen eintrage im Code, funktioniert es.
Ich möchte aber gerne das man zuvor in Zelle B2 den Namen der Tabelle eingibt die man aus der Quelldatei kopieren möchte.
Ich bin am verzweifeln

3
Excel / Antw: Einzelne Zellen zuweisen -> Rüstplan erstellen
« am: Februar 05, 2016, 08:24:58 Vormittag »
Hallo ja  dafür muss ich mich entschuldigen.
Bis jetzt wurde aber noch kein Vorschlag oder Lösung gestellt.


In folgenden Foren wurde die Frage gestellt:

http://www.ms-office-forum.net/forum/showthread.php?p=1721381&posted=1#post1721381] [url]http://www.ms-office-forum.net/forum/showthread.php?p=1721381&posted=1#post1721381[/url]

http://www.clever-excel-forum.de/Thread-Einzelne-Zellen-zuweisen-Ruestplan-erstellen?pid=33202#pid33202] [url]http://www.clever-excel-forum.de/Thread-Einzelne-Zellen-zuweisen-Ruestplan-erstellen?pid=33202#pid33202 [/url]

4
Excel / Antw: Antw: Einzelne Zellen zuweisen -> Rüstplan erstellen
« am: Februar 05, 2016, 07:54:37 Vormittag »
Zitat von: Frank Furter am Februar 05, 2016, 01:03:22 Vormittag
... schau mal..: http://www.ms-office-forum.net/forum/showthread.php?p=1721381&posted=1#post1721381


Hallo diese Frage hatte ich in mehren Foren gleichzeitig erstellt um schnell an eine Lösung zu kommen.

Der Text und die Bilder sind ja gleich sowie der Benutzer.



Leider ist noch keine Lösung dabei


5
Excel / Einzelne Zellen zuweisen -> Rüstplan erstellen
« am: Februar 04, 2016, 20:41:11 Nachmittag »
Hallo Leute ich bin gerade dabei einen Rüstplan zu erstellen.

Dieser dient dazu, verschiedene Rollenbahnen mit Bauteilen zu bestücken.


Die Bauteile stehen auf Paletten. Pro Palette wird eine Rollbahn benutzt. Es kann vorkommen das Paletten "Reste" von Bauteilen haben nach abarbeiten des Auftrages,

dann müssen diese wieder zurück geführt werden. Es findet also eine Rückführung statt. Um im laufenden Betrieb immer "Nachrüsten" zu können bzw. schon den nächsten

Auftrag auf den Rollbahnen zu stellen werden Bahnen die eine "Rückführung" besitzen nicht bestückt. Es wird stadessen die nächste "Nachbarbahn" freigelassen und für den nächsten Auftrag reserviert.


Diese Zuweisung, welches Palette welche Rollbahn bekommt möchte ich gerne mit Excel lösen und in einer zweiten Tabelle Grafisch darstellen in form eines "Rüstplanes"

Mitlerweile bin ich soweit vorangekommen das ich die "Rückführung" eines Bauteils von den Aufträge bestimmen kann mit "Ja" und "Nein".

Nur wie ich das mit der Zuweisung der einzelnen Rollbahnen hinbekommen soll, darann scheitert es im moment. Zumal die einzelnen verschiedenen Aufträgen aus den verschiedenen Tabellen in einer Mappe miteinader verküft werden müssen. Da es ja bei einen zweiten Auftrag sein kann, das wiederum "Rückführungen" entstehen, sodass wieder eine Rollbahn neben dieser Palette reserviert werden muss, es kann jedoch sein das genau diese Rollbahn eine Rückführung vom ersten Auftrag besitzt. So muss dies Excel erkennen und muss diese Rollbahn überspringen.



Hab das ganze mal versucht anhand von einfachen Skizzen darzustellen:


Auf der ersten Skizze sieht man die einfachste zuweisung.
Die Grünen Kästchen sind die Bauteile aus den ersten Auftrag. Die Blauen Kästchen stehen für die Bauteile aus den 2 Auftrag.
Diese sollen nun den einzelnen Rollbahnen zugewiesen werden.
Sobald ein Bauteil des 1. Auftrages eine Rückführung hat ( roter Pfeil nach hinten) wird eine Rollbahn freigelassen für ein Bauteil des 2. Auftrages.
Hat ein Bauteil des 1. Auftrages keine Rückführung (roter Pfeil nach vorne) wird das Bauteil direkt dahinter gestellt vom 2. Auftrag.

Skizze 1:



In der zweiten Skizze sieht man schon die komplizietere Variante. Dabei wird nicht nur die Rückführung des 1. Auftrages beachtet sondern schon die des 2. Auftrages. Rollbahnen die eine Rückführung vom 1. Auftrag haben werden dann gesperrt ( rotes X). Sollte ein Bauteil vom 2. Auftrag eine Rückführung haben wird dann wiederum eine Rollbahn freigelassen, sollte die nächste Rollbahn gesperrt sein, wird die nächste Bahn freigelassen.

Skizze 2:



So nun wollte ich das ganze in Excel berechnen und zuweisen.
Jede Tabelle steht dafür für ein Auftrag indem ich die Bauteile eingebe und die Rückführung berechne mit einer Wenn-Funktion.
In einer leeren Mappe möchte ich gerne diese "Rollbahnzuweisung" Grafisch darstellen. Siehe Bilder. Hoffe ihr wisst was gemeint ist.


Skizze Auftrag Datenerfassung



Rollbahnzuweisung



Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more