Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheets und zurück...

Forumthread: Sheets und zurück...

Sheets und zurück...
24.07.2005 20:04:48
Walter
Guten Abend,
habe folgendes Problem,
ich habe ein Makro, welches ich von einer Mappe in eine andere Mappe eine kompl. Zeile kopieren will, klappt auch.
Nun ist die Mappe von der ich kopiere nicht immer die GLEICHE daher variabel,
die Mappe in der ich kopiere ist natürlich die Gleiche wie vorher.
Die die Datei: "Näherei.xls"
Ausgangsmappe Name: "Schneiderei"
Wo Daten hin sollen: "Polster"
Die Ausgangsmappe kann aber auch "Bügelei" heißen anstatt "Schneiderei".
Vielleicht hat jemand eine Idee,
gruß Walter
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets und zurück...
24.07.2005 20:47:42
Ramses
Hallo
Irgendwie kapeiere ich das nicht
Nun ist die Mappe von der ich kopiere nicht immer die GLEICHE daher variabel,
die Mappe in der ich kopiere ist natürlich die Gleiche wie vorher.
Grundsätzlich würde ich sagen, das ist nur mit einem AddIn möglich, das relativ aufwändig programmiert werden müsste um alle Fehler abzufangen.
Ob sich das rentiert ?
Gruss Rainer
Anzeige
AW: Sheets und zurück...
25.07.2005 19:27:52
Ralf
Hallo Walter,
da hat der Rainer schon Recht. Etwas unglücklich formuliert das Ganze. Ich hab es so verstanden: Die Ausgangsmappe ist variabel, die Zielmappe immer gleich. Richtig?
Ok, das Makro hast Du ja schon, wie Du schreibst. Dir fehlt nur noch der variable Teil für die Ausgangsmappe. Ich gehe nicht davon aus, dass Du mit Mappe eine andere Datei (=Mappe) sondern nur ein anderes Tabellenblatt in Deiner Mappe (=Datei) meinst.
Versuche es unter diesen Voraussetzungen so: (In die schon vorhandene Prozedur einfügen)
dim Ziel as string, Ausgabe as string, richtig as boolean
ausgabe = "Geben Sie für Ausgangsmappe eine der untenstehenden Optionen ein:" & _
vbcrlf & "S - für Schneiderei" & vbcrlf & "P - für Polsterei" & vbcrlf & _
"B - für Büglerei"
Neu:
richtig = false
Ziel = inputbox(ausgabe,"Auswahl der Quelltabelle","S")
select case ucase(ziel)
case "S" : sheets("Schneiderei").select
case "P" : sheets("Polsterei").select
case "B" : sheets(Bügelerei").select
case else
if richtig = (Msgbox ("Möchten Sie die Eingabe wiederholen?", _
vbyesno + vbquestion,"Unzulässige Eingabe")= 6) then Goto Neu
end select
Ich hoffe, ich konnte Dir helfen!
Ciao, Ralf
Anzeige
Ja
25.07.2005 20:33:13
Walter
Hallo Ralf,
Du hast Recht.
Genau so hatte ich es gemeint, habe jetzt mit deinem Beispiel die Möglichkeit und
werde dann etws hin kriegen.
Gruß Walter
;

Beliebteste Forumthreads (12 Monate)

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