Office - Word, Excel und Co. 9.706 Themen, 40.868 Beiträge

Verfolgung starten Optionen

Excel makro If

junny / 4 Antworten / Flachansicht Nickles

Hai Leute,


habe folgendes Problem, mein Makro soll eine Mappe speichern und vorher noch über eine If Abfrage den Pfad einstellen.


Bisher schaffe ich das nur mit einem Namen, hier meine Sub


Sub SpeichernUnter()
Cells(1, 5) = Application.UserName
Speicher = InputBox("Speicher Name : ")
Cells(1, 2) = Speicher


Dim DName, Dateiname, Pfad
If Cells(1, 7) = "u.maulbetsch" Then
Pfad = "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Makro\UM"
DName = Cells(1, 2)
Dateiname = Pfad & "\" & DName & ".xls"
ThisWorkbook.SaveAs Filename:=Dateiname



End If


End Sub


 


bspw. gibt es auch noch einen r.bosch, der dann im Ordner C:\\\\RB gespeichert werden soll usw.


 


Hoffe jemand kann mir sagen wie meine Sub aussehen muss, Danke junny

bei Antwort benachrichtigen
Schau mal hier http://www.xlfaq.herber.de/index.html Kolti
Excel makro If junny
Philosoph junny „Excel makro If“
Optionen

Salve und Salut.

Hallo Junny. Ist doch soweit ganz einfach, oder verstehe ich das Problem nicht?

Beispiel:

Wenn Bedingung A nicht erfüllt, prüfe ob Bedingung B erfüllt ist, wenn nein, dann prüfe Bedingung C... Sobald Bedingung A, B oder C erfüllt ist, steigt die Schleife aus und führt die entsprechende Funktion aus. Dazu findest du in der Hilfe von Visual Basic einige weitere Informationen.

Also hier ein Beispiel:
In diesem Beispiel wird die Blockform und die einzeilige Form der If...Then...Else-Anweisung gezeigt und zudem die Verwendung von If TypeOf...Then...Else demonstriert.

Dim Zahl, Stellen, Text1
Zahl = 53 ' Variable initialisieren.
If Zahl Stellen = 1
ElseIf Zahl ' Bedingung ist erfüllt, also wird die nächste Anweisung ausgeführt.
Stellen = 2
Else
Stellen = 3
End If´

Oder anders (mit ElseIf, also: Prüfe ob erfüllt, wenn nein, dann prüfe weiter... bis Prüfung mit Wahr abgeschlossen wird und Aktion ausgeführt wurde...):
Mit der If TypeOf-Konstruktion wird festgelegt, welcher Steuerelementtyp an eine Prozedur übergeben wird.

Sub Steuerelementverarbeitung(StElement1 As Control)
If TypeOf StElement1 Is CommandButton Then
Debug.Print "Sie haben folgenden Steuerelementtyp übergeben: " _
& TypeName(StElement1)
ElseIf TypeOf StElement1 Is CheckBox Then
Debug.Print "Sie haben folgenden Steuerelementtyp übergeben: " _
& TypeName(StElement1)
ElseIf TypeOf StElement1 Is TextBox Then

Debug.Print "Sie haben folgenden Steuerelementtyp übergeben: " _
& TypeName(StElement1)
End If
End Sub

Hier ein einfacher Syntax:
#If Ausdruck Then
Anweisungen
[#ElseIf Ausdruck-n Then
[elseifAnweisungen]]
[#Else
[elseAnweisungen]]
#End If

Konnte ich dir helfen? Wie weit bist du schon gekommen?
Mit besten Grüßen und überhaupt,

Thomas A. K.

bei Antwort benachrichtigen
Danke! Passt!! schönen Tag noch, volker junny