|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.11.2010 16:15:06 |
Niklas |
|
|
 Aw:Übersichtsdatei |
09.11.2010 16:41:59 |
Severus |
|
|
|
09.11.2010 16:49:26 |
Niklas |
|
|
|
09.11.2010 17:21:10 |
Severus |
|
|
|
09.11.2010 17:49:30 |
Niklas |
|
|
|
09.11.2010 18:22:26 |
Severus |
|
|
|
09.11.2010 18:35:41 |
Niklas |
|
|
|
10.11.2010 06:53:47 |
Severus |
|
|
|
10.11.2010 14:50:57 |
Niklas |
|
|
|
10.11.2010 16:03:37 |
Severus |
|
|
|
10.11.2010 17:34:25 |
Niklas |
|
|
|
10.11.2010 18:00:26 |
Severus |
|
|
|
10.11.2010 19:05:39 |
Niklas |
|
|
|
10.11.2010 19:26:15 |
Severus |
|
|
|
10.11.2010 19:43:24 |
Niklas |
|
|
Von:
Severus |
Datum:
09.11.2010 16:41:59 |
Views:
1152 |
Rating:
|
Antwort:
|
Thema:
Aw:Übersichtsdatei |
Niklas schrieb am 09.11.2010 16:15:06:
Hey Ihr lieben,
ich versuche hier schon seit einiger Zeit eine Übersichtsdatei über einige Kunden zu erstellen.
Dabei möchte ich in VBA mit einer Loop-Funktion, dass in Spalte A der Wert A2 aus einem externen Excel Arbeitsblatt steht, in B der Wert B2, in C der Wert A4 in E der Wert AH1 und in F der Wert AI1.
Dabei habe ich mir gedacht, dass der Pfad (bis auf den Namen der Excel Datei) als simple Eingabe eingegeben wird und der Name der Excel Datei wird über eine Userform eingegeben.
Bis jetzt habe ich den Code, allerdings funktioniert der noch nicht so wie er soll.
Worksheets("Übersicht").Select
Range("A2").Select
i = 0
Do
i = 1 + i
Loop Until ActiveCell.Offset(0, i) = ""
ActiveCell.Offset(0, i).Value = "='C:\Dokumente und Einstellungen\Administrator\Desktop\Fertig\["kunde".xls]Kunden'!$A$2"
Hi Niklas,
sei mir nicht böse, aber das ist gequirlte Sch...!
Entweder Du versuchst einen Wert, also Value, einzugeben, dann muß die Datei offen sein und der Befehl lautet:
Workbooks.open C:\Dokumente und Einstellungen\Administrator\Desktop\Fertig\kunde.xls
ActiveCell.Offset(0, i).Value = Workbooks(kunde.xls).Sheets("Kunden").Range($A$2)
oder Du erstells eine Verknüpfung mit der Ursprungsdatei. Dann ist das aber kein Value, sondern eine Formel:
ActiveCell.Offset(0, i).Formula = "='C:\Dokumente und Einstellungen\Administrator\Desktop\Fertig\[kunde.xls]Kunden'!$A$2"
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.11.2010 16:15:06 |
Niklas |
|
|
Aw:Übersichtsdatei |
09.11.2010 16:41:59 |
Severus |
|
|
|
09.11.2010 16:49:26 |
Niklas |
|
|
|
09.11.2010 17:21:10 |
Severus |
|
|
|
09.11.2010 17:49:30 |
Niklas |
|
|
|
09.11.2010 18:22:26 |
Severus |
|
|
|
09.11.2010 18:35:41 |
Niklas |
|
|
|
10.11.2010 06:53:47 |
Severus |
|
|
|
10.11.2010 14:50:57 |
Niklas |
|
|
|
10.11.2010 16:03:37 |
Severus |
|
|
|
10.11.2010 17:34:25 |
Niklas |
|
|
|
10.11.2010 18:00:26 |
Severus |
|
|
|
10.11.2010 19:05:39 |
Niklas |
|
|
|
10.11.2010 19:26:15 |
Severus |
|
|
|
10.11.2010 19:43:24 |
Niklas |
|
|