ich habe im meinen Augen ein großen Problem. Ich habe schon sehr viel mir VBA-Programmierung gemacht und konnte bis heute die Übergabe von Variablen vermeiden.
Doch nun ist es soweit. Ich komme nicht drum rum. Mein Problem dreht sich um die Übergabe einer Variable in einen andere Excelmappe. Hier meine aktuelle Vorgehensweise was ich alles per Makro mache:
-ich habe eine Steuerdatei. In dieser Steuerdatei befinden sich viele Pfade von verschiedenen Dateien.
Diese öffne ich nun per Klick auf einen Button nach einander. Hier definiere ich den steuerparameter.
Option Explicit
Public steuerparameter As String
Public Sub Update_selber_starten()
steuerparameter = "ok"
With Sheets("Zentrale")
.Activate
arbeitszeile = 60
anz_dateien = .Range("O7").Value
uf_Importinfo.Show vbModeless
For ii = 1 To anz_dateien
If .Cells(arbeitszeile, 15).Value Empty Then
Workbooks.Open .Cells(arbeitszeile, 15).Value
-nun öffnet sich die erste Datei und in dieser Datei gibt es zum Anfang diess Makro
Private Sub Workbook_Open
Dim ctrl As CommandBarPopup
Set ctrl = Application.CommandBars.FindControl(ID:=30026) 'ID für Blatt im Menü Format
If ctrl Is Nothing Then Else ctrl.Enabled = False
Set ctrl = Application.CommandBars.FindControl(ID:=30029) 'ID für Blattschutz im Menü Extra
If ctrl Is Nothing Then Else ctrl.Enabled = False
If Sheets("Update").Range("E1").Value = "x" Then Updatelauf
End Sub
- in dem nächsten Makro "Updatelauf" soll nun dieser Parameter abgefragt werden mit dem Makro:
Option Explicit
Option Private Module
Public Sub Updatelauf()
kz2 = "update"
Application.ScreenUpdating = False
With Sheets("Update")
.Activate
If steuerparameter "ok" Then
If .Range("E1") = "x" Then
z = MsgBox("Ein neues Update ist vorhanden. " & _
vbLf & _
vbLf & _
vbLf & _
vbLf & "Das Plantool wir nun auf den aktuellen Stand gebracht." & _
vbLf & "Klicken Sie bitte auf den OK-Button um das Update zu starten.", vbOKOnly)
If z = vbOK Then
GoTo weiter
Else
Exit Sub
End If
End If
End If
weiter:
Nun noch mal meine Frage. Wie bekomm ich den Wert des Steuerparameter in das andere Makro?
Danke für eure Hilfe.
Gruß Ron