Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mittels Makro in anderen Makros Zeilen ändern

Mittels Makro in anderen Makros Zeilen ändern
12.12.2003 11:46:43
Claudia
Hallo liebe Forumer,
ich bin noch halber Anfänger in VBA aber lerne täglich dazu vor allem durch das Forum. Ist echt super hier.

Ich habe ein mittelgroßes Programm für unsere Firma geschrieben in dem bestimmte Daten eingelesen werden. In jedem der Excel-Dateien befinden sich verschiedene Makros die teilweise auch automatisch nacheinander abgearbeitet werden. Auch habe ich ein Add-In geschrieben wo ein weiterer Automatismus generiert wird.

Das Programm kann sowohl im Netz als auch bei meinen Kollegen/innen stationär eingesetzt werden. Bei der Installation muß ich aber jedes Mal in jedes Programm, in jedes Makro und dort bestimmte Zeilen abändern wegen der Laufwerks und Pfadzugehörigkeit.

Wie kann ich das mittels eines Makros automatisieren in dem ich in eine Abfragebox den
- Namen des Makros
- die Zeilennummer
- den zu ändernden Wert eingebe

Kann mir einer helfen? Wäre echt super

Vielen Dank für Eure RÜ's
Gruss Claudia

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Rückfrage
12.12.2003 11:57:06
ChrisL
Hi Claudia

Verstehe zwar in etwa was du machen möchtest, frage mich aber ob es nötig ist.

Kannst du denn deine Makros nicht im vornherein 'variabel' gestalten. Meine damit die Pfadangabe kannst du z.B. mittles ThisWorkbook.Path ermitteln resp. mit Left auch den Laufwerksbuchstaben.

Gruss
Chris
AW: Rückfrage
12.12.2003 12:10:50
Claudia
Hi Chriss,

ups, das kenne ich nicht. Wie gesagt, ich bin noch Anfänger. Mein Problem ist, das evtl. 200 Mitarbeiter dieses Programm bekommen sollen. Einige hängen hier am Netz in der Verwaltung, einige haben Home-Offices, einige arbeiten in Niederlassungen. Ich muss das Programm so gestalten, das alle Mitarbeiter beim kopieren bzw. installieren eine eigene Abfrage erhalten wo Sie eingeben können
- Namen des Makros (gebe ich Ihnen im Anschreiben vor)
- die Zeilennummer (gebe ich Ihnen im Anschreiben vor)
- den zu ändernden Wert eingebe (müssen Sie selber definieren dürfen)
Kannst Du mein Problem verstehen, warum ich eine "Art Abfragebox" benötige?

Danke und Gruss Claudia
Anzeige
AW: Rückfrage
12.12.2003 13:18:34
ChrisL
Hi Claudia

ja aber... :-)

Zeig mal einen Auszug von deinem Makro. Den Teil, welcher individuell angepasst werden soll.

Gruss
Chris
AW: Rückfrage
12.12.2003 14:38:35
Claudia
Hi Chriss,

sorry abe kann erst jetzt, nach dem Meeting wieder antworten. Hoffe Du liest es.

Also hier sind z.B. zwei der vielen Makros. Im ersten Beispiel müssen in Zeile 6 Angaben verändert werden dürfen. Sowohl in diesem als auch in anderen Makros müssen solche oder ähnliche Zeilen geändert werden. Aber die Angaben beziehen sich immer auf das Laufwerk und ggfs. einen Übergeordneten Dateiordner/Pfad in dem der User das Programm ablegt.

Erstes Beispiel:


Sub copy_Data()
Dim wb1 As Workbook, wks1 As Worksheet
Dim wb2 As Workbook, wks2 As Worksheet
Dim wbo As String
Dim wksr1 As Long, wksr2 As Long
wbo = "E:\ALWIN\Prod\Archivierung.xls" 'Pfad zur Datei 2 anpassen
Set wb1 = ActiveWorkbook 'Datei "ArchivAenderung.xls"
Set wb2 = Workbooks.Open(wbo) 'Datei "Archivierung.xls"
Set wks1 = wb1.Worksheets("Archiv") 'Namen bitte anpassen
Set wks2 = wb2.Worksheets("Archiv") 'Namen bitte anpassen
'Datenbereich der kopiert werden muss auslesen
wksr1 = wks1.Cells(65536, 1).End(xlUp).Row
'Kopiervorgang beginnen
wks1.Rows("2:" & wksr1).Copy Destination:=wks2.Rows(Cells(65536, 1).End(xlUp).Row + 1)
'Datei 2 schliessen
wb2.Close True
'Daten in aktiver Tabelle löschen
wks1.Rows("2:" & wksr1).Delete
End Sub


ZWEITES Beispiel (nur ein Auszug aus dem Makro)

Public 

Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Dim u As UsedObjects
Set WS = Worksheets("Archiv")
Set fso = New FileSystemObject
Set f = fso.GetFolder("E:\ALWIN\Aenderung\")
h = 0
USW USW so bibt es viele Makros.
Ich hoffe Du kannst mit diesen Angaben etwas anfangen.
Danke und Gruß Claudia
Anzeige
AW: Rückfrage
12.12.2003 14:46:41
ChrisL
Hi Claudia

Ich gehe mal davon aus, dass es dir um folgende Zeilen geht...

wbo = "E:\ALWIN\Prod\Archivierung.xls" 'Pfad zur Datei 2 anpassen
Set f = fso.GetFolder("E:\ALWIN\Aenderung\")

Befindet sich denn die Datei mit den Makros im selben Ordner z.B. "E:\ALWIN\DeineDatei.xls" oder wo...

Mein Ansatz wäre den Code z.B. wie folgt zu gestalten...

wbo = ThisWorkbook.Path & "\Prod\Archivierung.xls"
Set f = fso.GetFolder(ThisWorkbook.Path & "\Aenderung\")

Gruss
Chris
AW: Rückfrage
12.12.2003 15:05:12
Claudia
Hi Chris,
hier die Struktur des Programmes so wie es auf meinem Rechner liegt. Nun ist es möglich für jeden Mitarbeiter (gerade für die die ein HomeOffice haben) das diese sich das Programm auf ein Laufwerk Ihrer Wahl legen und ggfs. das gesamt Programm noch in einen Dateiordner ablegen. Wenn dem so wäre (und davon muss ich ausgehen) dann sind in allen *.xls und *.xla Dateien einen ganze Menge Makros zu ändern die zur Zeit nur auf das Laufwerk und den Pfad in meinem Rechner verweisen.

E:\ALWIN
├───Aenderung
│ └ArchivAenderung.xls
├───Table_Scripts
│ ├───_scripts
│ │ ├───tabelle
│ │ │ └displayTab.
│ │ └───images
│ │ ├ check.gif
│ │ ├ down.gif
│ │ ├ Logo.gif
│ │ └ up.gif
│ ├───_css
│ │ ├ CMbase.css
│ │ └ tabStyle.css
│ └───Excel add-in
│ └ CMTabellen_erweitert.xla
├───Prod
│ └Archivierung.xls
│
└───Programm
├───Originale
│ ├ Archivierung.xls
│ └ ArchivAenderung.xls
├───Backups
└───Progs
├3Namenaendern.xls

Ich muss erreicheen, das wenn das Programm zum erstten Mal gestartet wird, der Anwender die Möglichkeit hat in den einzelnen Makros die entsprechenden Angaben (wie schon geschrieben Makroname, Makrozeile würde ich mitgeben) zu ändern und anschließend zu speichern. Die Makros werden laut Firmenleitung nicht geschützt.

Kannst Du damit etwas anfangen?
Vielen Dank und Gruss Claudia
Anzeige
AW: Rückfrage
12.12.2003 15:42:53
ChrisL
Hi Claudia

> Wenn dem so wäre (und davon muss ich ausgehen) dann sind in allen *.xls und *.xla Dateien einen ganze Menge Makros zu ändern die zur Zeit nur auf das Laufwerk und den Pfad in meinem Rechner verweisen.

Dies kannst du relativ einfach per Suchen/Ersetzen bezogen auf das ganze Projekt erledigen. Auch wenn du den von dir gewünschten Ansatz umsetzen willst, musst du trotzdem sämtliche Programmzeilen identifizieren, welche geändert werden müssen.

Du könntest den Pfad in einem versteckten Tabellenblatt ablegen. Per Workbook_Open Ereignis prüfst du ob schon eine Pfadangabe besteht und falls nicht, rufst du die Abfrage auf. Den Programmcode beziehst du nachher auf die Zelle in der Tabelle. Etwa so (Ansatz)...

With Worksheets("Tabelle1")

If .Range("A1") = "" Then
' Abfrage z.B. Inputbox
.Range("A1") = Abfrage
End If

End With

Persönlich würde ich aber den Ansatz ThisWorkbook.Path weiter verfolgen. Ich würde die Struktur so vorgeben, dass die Zusatz- und Hilfsdateien in einen spezifischen Unterordner des selben Verzeichnisses in welchem sich die Makrodatei befindet muss.

Also z.B.

IrgendeinLaufwerk:\IrgendeinVerzeichnis\DeineDatei.xls
IrgendeinLaufwerk:\IrgendeinVerzeichnis\Programm\HierDieHilfsdateien

In dem Verzeichnis z.B. Programm kann eine beliebige Struktur (Unterordner) bestehen.

Mit einer solchen Struktur kannst du wie folgt arbeiten...

z.B.
ThisWorkbook.Path & "\Programm\Unterordner\Hilfsdatei.xla"

Bin jetzt dann bald offline und erst wieder am Montag dabei. Ich hoffe, mein Input hilft.

Gruss
Chris
Anzeige
AW: Rückfrage
12.12.2003 15:46:39
Claudia
Hi Chris,
danke für Deine Ansätze. Ich werde diese mal nachher gleich probieren. Vielen Dank und schönes Wochenende.
Gruß Claudia

302 Forumthreads zu ähnlichen Themen

mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
Anzeige
Makros nacheinander ausführen
Philipp

Hallo Leute, dies ist mein erster Eintrag in einem Excel-Forum ever, also hallo erstmal! ;-)
Ich hoffe auf Eure Hilfe zu einem VBA Problem. Habe schon ähnliche Einträge in anderen Foren gefunden, jedoch keine lösung, die bei mir funktioniert.
Problem ist folgendes:
Ich habe verschie...
18.06.2009 11:33:36
Thread-ID: 1082519
3 Beiträge
Makro in neue Arbeitsmappe ausführen
Fred

Hallo zusammen
Ich komme mal wieder nicht weiter. Ich habe unten ein Makro zusammen gestrickt was auch prima funktioniert und weiss jetzt nur nicht wie ich es anstellen soll das im hintergrund eine vorhandene Arbeitsmappe geöffnet wird dann in der Mappe ein neues Tabellenblatt mit dem unten...
07.07.2009 17:11:23
Thread-ID: 1086973
5 Beiträge
Anzeige
Makro warnung obwohl kein Makro vorhanden...
Torsten

Hallo zusammen,
ich habe in einer Exceldatein mal ein Marko gehabt. In der Zwischenzeit habe ich das Marko gelöscht, die Warnmeldung, dass die Datei Makros enthält, kommt aber immer noch.
Kann man das irgendwie abschalten?
Grüsse
Torsten
07.08.2009 08:37:53
Thread-ID: 1094191
8 Beiträge
Makro in Makro schreiben lassen ?
alexander

Hallo,
mein Problem:
Ich habe ein Makro zur Massenpflege von verschiedenen Dateien erstellt. Nun möchte ich aber, das mir das Makro beim abändern der einzelnen Dateien einen bestimmten Code (ein weiteres Makro) in die Tabellenblattmodule der einzelnen Dateien schreibt. Sprich, das die v...
10.08.2009 10:16:27
Thread-ID: 1094632
24 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Formel per Makro einfügen - Ausführen fehlerhaft
Dennis

Hallo Gemeinde,
nachdem mir gestern hier so toll geholfen wurde, bin ich mir sicher, dass ihr mir auch bei dem Problem helfen könnt :)
Also, ich füge per Makro eine Formel (=SUMMEWENN(AI:AI;A11;AR:AR)) in Tabellenblatt 1 ein, ein paar mal untereinander (A11 variiert dabei). Funktionier...
09.09.2009 15:28:39
Thread-ID: 1101555
5 Beiträge
Makros beim Speichern eliminieren
Chris

Hallo Excelianer
Also, folgendes Problem
Ich habe eine Datei, die per Makro einige Berechnungen ausführt. Am Ende der ganzen Berechnungen speichert sich die Datei mit SaveAs. Das heisst: Das Tool an sich wird nicht überschrieben.
Die "SaveAs"-Datei ist eine reine Werte-Datei. Mein...
16.09.2009 16:39:45
Thread-ID: 1103283
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
4
2
7
23
5
4
2
4
2
3
10
5
3
1
3
11
2
6
15
4
3
5