Wie geht das mit Dim in VBS?

Hallo liebe Community,

ich will den Text kurz halten:

Dim a1
a1 = InputBox ("Datum", "Wann?", " ")
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "cls"
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "Wir fahren am

Ich habe schon viel im Internet gesucht, aber leider nichts gefunden. Am Ende soll das stehen, was auch in die Box geschrieben wurde (das Datum), aber ich weiß leider nicht wie.

Diese Sachen sollen in CMD stehen (deshalb auch cls, usw.).

Ich hoffe, dass die Frage verständlich ist, weil ich wenig Ahnung von dem Ganzen habe.

MfG

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

09.05.2021, 00:16

Bevor du wshshell nutzen kannst, musst du das Objekt dazu auch erstellen.

Hier ein komplettes Beispiel, welches eingegebene Daten vom Nutzer und Weiteres in einem Konsolenfenster einträgt:

Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.Run "cmd", 9
WScript.Sleep 500

Dim inputData
inputData = InputBox("Datum", "Wann?", " ")

wshShell.SendKeys inputData
wshShell.SendKeys "{ENTER}"
WScript.sleep 500
wshShell.SendKeys "cls"
wshShell.SendKeys "{ENTER}"
WScript.sleep 500

Mit Set wird einer Variable ein Objekt zugewiesen.

Mit Dim wird eine Variable deklariert, dem Programm also für die folgenden Zeilen bekannt gemacht. In diesem Beispiel betrifft dies inputData. Die Variable wird deklariert und in der darauffolgenden Zeile wird ihr der Wert zugewiesen, der vom Nutzer eingegeben wurde.

juderechte

Fragesteller

09.05.2021, 18:40

Danke für deine Antwort. Ich habe jetzt verstanden wie das funktioniert.

Hallo, ich habe folgendes Script:

set WshShell = CreateObject("WScript.Shell")
for i=0 to 15
WScript.Sleep 300
WshShell.SendKeys " "
next

wie kann ich einbauen, dass beim drücken von "ESC" das Script vorzeitig beendet wird? Oder egal ob mit esc oder auf anderem Weg.

VIelen Dank!

...zur Frage

VBS Fakultät?

Guten Tag,

ich habe eine VBS-Datei, die die Fakultät einer Zahl berechnen und diese dann in einer MsgBox ausgeben soll.

Momentan habe ich das:

---

dim i

i = InputBox("Bitte geben sie eine Zahl ein", "Fakultaet")

Do while i = 1

i = i(i - 1)

loop

MsgBox "Die Fakultät deiner Zahl ist: " & i , 0, "Fakultaet"

---

Allerdings zeigt mit die MsgBox das alte i an und nicht das neue.

Was kann man tun, damit die Fakultät von i angezeigt wird?

Ich weiß, dass VBS sich dafür eher weniger eignet, aber aus diversen Gründen muss es VBS sein.

Für hilfreiche Antworten wäre ich sehr dankbar. =)

...zur Frage

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zur Frage

Excelformel: Gegeben sind 10.000€ - aufteilen in Scheine (500,200,100, ..etc)?

Hallo,

ich möchte mir das "zur Bank gehen" erleichtern.

Ich habe Budget X (Beispiel: 10.000€), diese sollen nun verteilt werden auf die jeweilig verfügbaren Euro-Scheine.

Die Summe muss insgesamt 100% ergeben.

Also:

Gegeben 10.000€

5x 500€

6x 200€

5x 100€ etc. - Bis zum 5€ Schein.

== 10.000€

Hat der wer eine Excelformel parat?

Danke und liebe Grüße

Folgendes habe ich mir gebastelt:

VBA Code sieht aus wie folgt:

Sub Schaltfläche_Klicken()

    Dim totalBudget As Double
    Dim billValue As Double
    Dim billCount As Integer
    Dim billWeight As Double
    Dim remainingBudget As Double

    'Prompt user for total budget
    totalBudget = InputBox("Enter total budget:")
    remainingBudget = totalBudget
    ActiveSheet.Range("B9").Value = totalBudget

    'Array of bill types and weighting
    billTypes = Array(500, 200, 100, 50, 20, 10, 5)
    billWeights = Array(0.1, 0.2, 0.3, 0.2, 0.1, 0.05, 0.05)

    'Distribute budget based on weighting
    For i = 0 To 6
        billValue = billTypes(i)
        billWeight = billWeights(i)
        billCount = billWeight * (totalBudget / billValue)
        remainingBudget = remainingBudget - (billCount * billValue)
        ActiveSheet.Range("A" & i + 1).Value = billCount
    Next i
End Sub

Leider finde ich meinen Denkfehler noch nicht, da nicht der gesamteingegebene Wert verarbeitet wird. Häufig bleibt ein unlogisch Rest (bspw: User: 1450€, berechneter Geldwert der Scheine jedoch 1185€, sprich man hätte nochmal 2x 100€ mindestens ausgeben lassen können.

...zur Frage

In Ecxel Datum + Tage rechnen?

Hallo liebe Community!

In der Zelle A1 hab ich einen Wert (41), den ich zu dem Datum in Zelle A2 (=Jetzt()) Dazurechen will.

Die Zahl 41 ist in Tagen. Ich möchte in der nächsten Zelle A3 stehen haben, welches Datum von Jetzt (A2) aus gesehen in 41 (A1) Tagen ist.

(Die Zahl - und Zellwerte sind hier nur als Beispiel)

Danke schonmal im voraus!!

...zur Frage

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zur Frage

Excel/Geburtstag in Liste suchen und als Name unter Datum darstellen?

Hallo Excelfreaks,

Ausgangslage:

Spalte A1:A50 stehen Geburtstage im Format tt.mm.jjjj

Spalte B1:B50 stehen Vornamen

Zelle C1 steht ein Datum im Format tt.mm.jjjj

Aufgabe/Wunsch:

Zelle C2 (hier soll der Vorname aus der Reihe B1:B50 stehen, wenn das Datum in C1 mit einem Datum aus der Reihe A1:A50 übereinstimmt, bzw. wenn die Person (Vorname) an dem tag Geburtstag hat, unabhängig von der Jahreszahl.

Mein bisheriger Ansatz für die Zelle C2

=SVERWEIS(C1;A1:B50;2;FALSCH)

aber dann komme ich trotz einiger Beispiele im Internet nicht weiter ...

Wer kann sich hier einbringen und beweisen?

Gruß und Dank im Voraus!

Galsan

...zur Frage

Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

...zur Frage

Excel "wort" in versch. Zellen durch Inhalt aus A1 autom. ersetzen?

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!

...zur Frage

Excel, Formatierung, Datum, Addierung?

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.

...zur Frage

Excel Datum wird nicht erkannt?

Hi all,

hier habe ich nun mal eine ganz seltsame Frage, die einfach nicht in meinen Kopf will.

Normalerweise wenn man in einer Zelle ein Datum stehen hat und daneben 1 Jahr später angezeigt bekommen möchte, muss man ja nur z.b =A1+365 nehmen und es geht auch.

Nun habe ich in der Zelle A1 aber kein Datum sondern eine Formel die ein Datum auswirft. Egal welche Formel ich dann darauf anwenden will, er rechnet mir einfach das Jahr nicht drauf, sondern zeigt immer nur #Wert an...

In der Vergangenheit hat es schon zich mal funktioniert, aber in dieser Datei hier will es einfach nicht funktionieren...

Bitte helft mir! :)

...zur Frage

Excel VBA - Zelle auswählen, dann F2

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

...zur Frage

Excel Tabelle wenn Funktion mit Datum in mehreren Zellen?

Hallo. Ich habe eine Tabelle mit 3-5 Spalten (A1-A5). In jeder steht ein Datum oder ist leer. In der letzten (A6) soll "ja" stehen wenn alle Daten in einem jahr sind oder "nein" wenn der Zeitraum darunter liegt.

Welche Formel wende ich da an?

...zur Frage

ExCel VBA Werte in anderes Tabellenblatt?

Hallo, kurze Frage zu VBA, falls sich da jemand findet der das gut kann ^^

Wir müssen zur Hausübung folgendes Szenario "erschaffen":
Wir haben die Tabelle "Buchungsmaske", die in Spalte B freie Felder zur Eingabe von Werten hat (Beispiel: Datum - Konto-Nummer - Kontobezeichnung...). Diese sollen dann durch die Schaltfläche "speichern" in das bereits vorhandene Tabellenblatt "Buchungen" gespeichert werden, und zwar in die nächste freie ZEILE.

Ich habe schon danach gesucht aber finde kaum anwendbares für diesen Sachverhalt in Foren, bzw. suche ich möglicherweise auch falsch.

Mein Code derzeit:
Dim Copy As Range, Paste As Range

Dim aWerte()

Set Copy = Sheets("Buchungsmaske").Range("B4:B20")

Set Paste = Sheets("Buchungen").Range("A1:U20")

If Sheets("Buchungsmaske").CheckBox1.Value = True Then

aWerte() = Copy

Paste = aWerte()

End If

Laufzeitfehler der immer auftaucht ist "438"

Danke für die Hilfe im Vorraus!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen