Visual Basic – die besten Beiträge

Servus,

mit folgendem Code kann ich meine Print Form drucken.

  If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK
  Then
    PrintDocument1.DocumentName = "Das ist ein Document"
    PrintDocument1.Print()
  End If

  Me.ShowInTaskbar = False
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  Handles PrintDocument1.PrintPage
  Dim bmp As New Bitmap(Me.Width, Me.Height)
  Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
  ' e.Graphics.ScaleTransform(0.2, 0.2)
  e.Graphics.DrawImage(bmp, 0, 0)
  Me.ShowInTaskbar = False
End Sub

Wie kann ich festlegen, dass immer der Microsoft PDF Creator verwendet werden soll und dass die Datei einen bestimmten Namen hat sowie an einer bestimmten Stelle gespeichert wird?

Der obige Code geht, aber man muss immer selber den Drucker, den Namen und den Speicherort wählen. Das soll aber automatisch gehen. Habt ihr eine Lösung?

Hallo ich hab ein Problem wenn ich in Visual Studio ein Code eingebe und strg+space drücke wird dieser code nicht automatisch vorgeschlagen aber wenn ich auf yt schaue wird der code im video vorgeschlagen an was kann das liegen?

So würde ich es gerne haben:

So siehts bei mir aus:

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

Wie kann ich meine eingetragenen Werte der Kombobox sortieren, die ich mit .addItem eingetragen habe?

Hallo,

ich habe eine Formularseite gebastelt, bei der eingegebene Daten in eine Liste eingefügt werden. Nun möchte ich, dass das Makro, welches die Daten in das andere Blatt in eine neue Zeile kopiert hat, auf der Formularseite die Zeilennummer in ein Feld einträgt.

Die Eingabeseite heißt "Eingaben" und das Blatt mit der Liste heißt "Liste"

Beispiel:

Ich gebe Daten ein, klicke den Button an auf dem das Makro liegt, und die Daten werden nach "Liste" in Zeile 10 kopiert (während Zeilen 5-9 schon Daten enthalten aus vorherigen Übertragungen).

In dem selben Makro soll nun am Ende die Nummer, die in A10 steht (In Zeile A stehen von mir eigens vergebene Nummern), auf der Eingabeseite in das Feld B10 kopiert werden.

Anders formuliert:

Spalte A (Lliste) enthält Reklamationsnummern, fortlaufend. Beginnend mit RK20220001.

Wenn ich jetzt in der "Eingaben"-Seite meine Daten erfasse und das Makro nutze, werden die eingegebenen Daten in die "Liste" kopiert. Es wird automatisch immer die letzte Zeile gefüllt, ab Spalte B.

Nun möchte ich, dass die Reklamationsnr., die neben den zuletzt eingefügten Daten steht, in das "Eingaben"-Blatt in das Feld B10 kopiert wird.

Denn die Eingabefelder sind bereits so formatiert, dass man ein Etikett drucken kann, das dann an die Ware kann. Damit man nicht immer manuell die Nummer raus suchen muss, soll sie halt automatisch dort rein.

Hallo,

Ich würde gerne wissen wie ich es machen kann das man durch Button also interaktive Tasten einen Text denn man im Button definiert hat in Excel oder Sheets in einer bestimmten Zelle einsetzen kann?

Die frage ist dann auch noch ob ich mit Powerpoint diese befehle eingeben kann oder ein Programm nutzen kann wie Adobe Captivate ? Das ding ist das Ich nicht genau weiß wie ich das einbinde sodass ein Button in Powerpoint einen Text in Excel oder Sheets einfügt ? Mir ist klar das man in Excel auch Buttons erstellen kann aber ich ich will das dass einfügen alles im Hintergrund passiert. Oder kann ich vllt. auch über Powerpoint oder Adobe Captivate auch sowas sagen wie bitte diesen Makro in Sheets auslösen also nur denn Befehl durch ein Button geben? Der Button selbst sich aber auf einem anderen Programm sich befindet.

Für eine Softwareschnittstelle, die ich gerade selbst in vb.net programmiere muss ich in einen String:

z.B. "Münsterländer Aperitif 16%"

Die Umlaute in Unicode umwandeln. Laut Dokumentation sollte das obige Beispiel dann So aussehen "M\u00fcnsterl\u00e4nder Aperitif 16%"

Zur Zeit versuche ich das so:

  Public Shared Function ToUnicode(Text As String) As String
    Dim UnicodeArray As Byte() = Encoding.Unicode.GetBytes(Text)
    Dim UnicodeString As String = Encoding.UTF8.GetString(UnicodeArray, 0, UnicodeArray.Length)
    Return UnicodeString
  End Function

Leider sieht der Inhalt des Strings dann so aus:

"M" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "s" & vbNullChar & "t" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & "l" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "d" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & " " & vbNu...

Was nicht wirklich hilfreich ist. Ich hab' keine Ahnung warum jedes zweite Zeichen NULL ist und die Coke Bottles "�" sind ja auch wenig hilfreich.

Hat jemand eine Idee für mich

Ich benötige Hilfe bei einem Programm.

Ich möchte in Visual Basic eine Query Abfrage machen und das Ergebnis (Richtig gegliedert) in eine .csv Datei schreiben. Die Datenbank habe ich via Visual-Studio eingebunden.

Ich will von QBASIC auf eine modernere Programmiersprache umsteigen und wollte fragen, ob Python oder Visual Basic .NET besser ist.

Hey, ich programmiere aktuell etwas in Visual Basic .NET, wo ich den Value von zwei DateTimePicker subtrahieren und als Sekunden in einem Label als String anzeigen möchte.

DateTimePicker1.Value = DateTime.Now
Dim value1 As DateTime = DateTimePicker1.Value
Dim value2 As DateTime = DateTimePicker2.Value
Dim timeSpan As TimeSpan = value1 - value2
Label1.Text = Math.Ceiling(timeSpan.TotalSeconds)

Bisher hat der oben gelistete Code perfekt funktioniert, um die Differenz der beiden DateTimePicker herauszufinden und als Sekunden darzustellen.

Nun habe ich aber die DateTimePicker als Custom Format eingestellt.

DateTimePicker1.CustomFormat = "dd.MM.yyyy hh:mm:ss"
DateTimePicker2.CustomFormat = "dd.MM.yyyy hh:mm:ss"

Und jetzt funktioniert mein Code nicht mehr und es ergibt sich die Fehlermeldung:

System.FormatException: "Die Eingabezeichenfolge hat das falsche Format."

wenn ich versuche die Differenz berechnen zu lassen.

Hat jemand eine Lösung? Ich wäre sehr dankbar!

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

    "=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

• Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
• Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

Hallo,

ich würde gerne mit eine .vbs den Wert aus einer speziellen Zelle einer Excel auslesen und in eine TXT-Datei schreiben. Kann mir jemand ein einfaches Beispiel liefern?
Danke.

Moin zusammen,

folgendes Problem :

ich habe ein 8 Seiten langes Dokument. Seite 1 und 8 sollen immer gedruckt werden.

Bei den anderen Seiten ist es davon abhängig, welche ToggleButtons in der Userform vorab auf TRUE gestellt wurden.

Button1 = Seite 2, 3

Button2 = Seite 4, 5

Button3 = Seite 6, 7

Also auch zum Beipsiel:

Button1 + Button2 = True, Button3 = False --> Seite 2, 3, 4, 5 sollen gedruckt werden.

Da alle möglichen Fälle einzeln zu programmieren sehr unübersichtlich und aufwendig ist, wollte ich mal fragen, ob einer von euch eine einfacherer Lösung kennt.

Danke schonmal ^^

Hallo Leute

Ich arbeite zurzeit an einem Visual Basic Project und habe ein Panel erstellt und wenn man einen Button auf diesem drückt sollte sich die "batch" Datei ausführen. Dies passiert aber nicht. Wenn mir jemand helfen kann währe das sehr Nett.

Bild zum Problem/Frage ist angehängt

Lg Hustensaft

Sollte man noch Visual Basic lernen, oder ist die Programmiersprache "tot"?

Ich und ein Kollege haben angefangen mit Visual Studio Code, wir haben auch schon begonnen mit Live Share aber haben noch nicht rausgefunden wie man die Rechte verteilt.(Danke im voraus)

Das mit der Workbench ausgeliefert wurde. Bezogen auf die Syntax und Co.

Hier der Code:

Module Program
    Sub Main()

        Dim QuellDatei As String
        Dim Zeile As Integer
        Dim Inhalt As String
        Dim Informationen() As String
        Dim Fileexport() As String
        Dim i As Integer
        Dim Zieldatei As String

        Zieldatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\Exportiert.txt"
        QuellDatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\w0000020.e01"

        FileOpen(1, QuellDatei, OpenMode.Input)
        FileOpen(2, Zieldatei, OpenMode.Output)

        Do While Not EOF(1)

            Inhalt = LineInput(1)

            Informationen = Split(Inhalt, ";")

            If Informationen(0) = 500 Then

                PrintLine(2, Informationen(0) & ";" & Informationen(3) & ";" & Informationen(8) & ";" & Informationen(9) & ";" & Informationen(10))

            End If

        Loop

        FileClose(1)
        FileClose(2)

    End Sub
End Module

Hallo

ich möchte eben etwas installieren. Ein update zu einem Tool welches ich bereits seit Jahren benutze. Nun wollte ich das update dafür installieren und der Setup Klient fragt mich nach der Datei "vc_red.msi". Nur kann ich diese Datei nirgends finden und google Suchergebnisse verwirren mich da die viele Hinweise darauf finde man solle die Datei neu installieren bzw neu runterladen, aber nirgends steht wo der Link dafür sein soll.
Kann mir jemand helfen wie ich das Problem beheb und wie ich diese Datei installiere??

danke