Python: Aufgabe Hilfe ausführlich, bitte?

5 Antworten

Dein Programmcode ist in Visual Basic.Net geschrieben, nicht in Python. Daher ist der Python Tag überflüssig. Denn VB.Net und Python sind nicht die gleiche Programmiersprache.

Zu deinem Problem: das Komma in der ersten Zeile vor dem Schlüsselwort As ist zu viel. Ohne jedoch die genaue Aufgabe zu kennen, ist es kaum möglich, dir bei der Aufgabe zu helfen.

Woher ich das weiß:
Berufserfahrung

Python 2.7.15: There is an error in your programm: invalid syntax.

Und das schon beim z.

Python 3.7: Invalid Syntax

ebenfalls wieder bereits das z markiert.

Das ist kein Python-Code, den du da gepostet hast, sondern Visual Basic.

Ich habe einen Code in Excel der in der If Funktion mir sagt das er einen Audruck erwartet.. Ab If ist alles rot markiert.?

Sub Tabellen_ausblenden()

Dim wks As Worksheet

For Each wks In ThisWorkbook.Worksheets  

If wks.Name = "Tabelle1" Then     wks.Visible = xlVeryHidden   End If Next wks

End Sub

...zur Frage

In VB prüfen ob ein Prozess läuft

Servus, Ich möchte gerne in VB prüfen ob ein Prozess läuft, wenn er es tut soll der Text eines Labes geändert werden. Ich hab es bisher so gemacht, aber das funktioniert nicht :(

Dim p As Process For Each p In Diagnostics.Process.GetProcesses() If p.ProcessName = "..." Then Form1.Label1.Text = "..." Else Form1.Label1.Text = "..." End If Next

Ich hoffe ihr könnt mir da helfen

...zur Frage

VB.net Webbrowser If webbrowser1.Navigate(youtube.com) me.hide?

Hey. Wie mache ich es genau wenn man eine bestimmte seite besucht das dann etwas geschehen soll? Z.B wenn ich youtube besuche soll sicher Form2 schließen

Ich dachte zuerst

If  WebBrowser1.Navigate("https://YouTube.com") then
Form1.show()
Me.hide()
End If

Wie mache ich es richtig?

...zur Frage

Ich möchte in Excel, dass man einen Druckauftrag nur per VBA geben kann, und NICHT über Datei -> Drucken oder STRG+P. Geht das?

Meine Idee war, zunächst das Drucken mittels InputBox per Passwort zu schützen.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pw As String, chk As String
pw = "Passwort"
chk = InputBox("Bitte Passwort eingeben", "Druckauftrag", "xxx")
If pw <> chk Then
    MsgBox "Falsches Passwort. Druckauftrag abgebrochen"
    Cancel = True
    Exit Sub
End If
End Sub

Dann einen zweiten VBA-Code der tatsächlich das Drucken ermöglicht.

Option Explicit                                     

Sub Drucken()

    Dim LoI As Long                                 
    Dim LoLetzte As Long                           
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 45)), _
        Cells(Rows.Count, 45).End(xlUp).Row, Rows.Count)
    For LoI = LoLetzte To 2 Step -1
        If Cells(LoI, 45) <> Empty Then Exit For
    Next LoI
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AU$" & LoI
    ActiveSheet.PrintOut
    
End Sub

Inklusive der Eingabe des Passworts für die InputBox.

Aber ich habe mich belesen, dass das Eintragen des PW per VBA in einer InputBox sehr aufwendig sein soll.

Habt Ihr andere Ideen?

...zur Frage

Hilfe bei VBA Code, FilePicker geht nicht?

Hallo Leute,

ich habe hier einen Code. der funktioniert soweit aber nur mit msoFileDialogFolderPicker.

Wie bekomme ich den Code mit msoFileDialogFilePicker zum funktionieren? Ich bekomme fehler "Dateiname oder Nummer falsch"...

Code siehe unten!

Option Explicit
Sub Dateiimport()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\"
Range("M2").Value = 1
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Bitte den Pfad auswählen"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
If xRow = 12 Then
xRow = 0
ActiveCell.Offset(0, 3).Select
End If
xFname$ = Dir

Dim d As Double d = Range("M2").Value

Range("M2") = d + 1 If Range("M2").Value = 36 Then MsgBox "Maximum erreicht!." End If If Range("M2").Value = 37 Then End Loop End If End With End Sub

...zur Frage

Was möchtest Du wissen?