PowerPoint VBA?

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?

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

poseidon42

25.11.2022, 18:20

Ja das geht. Hierzu musst du der Variable Iduration den Wert von Zelle Xyz zuweisen. Angenommen der Werte stehe in der Zelle A12:

Iduration = Range("A12").Value

Zusätzlich ließe sich das ganze noch so kombinieren, dass falls diese Zelle leer ist (=0) ein Standardwert für Iduration gesetzt wird.

If Range("A12").Value = 0 Then
  Iduration = 120 'Hier Standardwert definieren
Else
  Iduration = Range("A12").Value
End If

Siehe hierzu auch:

https://www.automateexcel.com/vba/cell-value-get-set/

https://learn.microsoft.com/de-de/office/vba/language/concepts/getting-started/using-ifthenelse-statements

poseidon42

25.11.2022, 18:29

Ich habe deine Frage jetzt nochmal gelesen und gemerkt, dass die hier dargestellte Antwort nicht ausreichend ist, bzw. eine leicht andere Frage beantwortet. Die Antwort auf die ursprüngliche Frage ist ebenfalls ein JA. Man kann zum Beispiel mithilfe einer InputBox den Wert für die Variable einlesen (siehe Beispiel):

https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/inputbox-function

Auch interessant:

https://stackoverflow.com/questions/20214072/passing-variable-from-form-to-module-in-vba

Schlaul1

Fragesteller

26.11.2022, 00:06

@poseidon42

Gaaaaanz großes Kino!!!

Genau das, was ich gesucht habe, vielen Dank :-)

VBA Excel, Ich suche einen Passwortgenerator.

Der Passwortgenerator soll die aktuelle Uhrzeit hh:mm:ss und den Wochentag beinhalten. Der Wochentag ist schon ein Textfeld Do oder We oder Mo und die 3 anderen Zellen A1 ist Datumsformat + hh vom =()Heute, A2 ist Datumsformat + mm vom =()Heute, A3 ist Datumsformat + ss vom =()Heute (aktuelle Tageszeit), A4 ist =TEXT(E9;"TTT") vom Datumsformat in E9 . Das kreierte zufällige PW soll so aussehen: 120334Mo oder 0312Mo34 oder Mo341203. Immer 8 Zeichen per Macro und keine Zelle doppelt. Das Macro kann über das Script bisher die Felder A1 - A3 nicht richtig auslesen: Mo,1283642429,308022685242429,3085777778.

...zur Frage

dreieckiges textfeld in word erstellen?

Hallo, ich möchte ein Textfeld ohne Ränder erstellen, welches sich meinem eingefügten bild anpasst, sodass der Text sich perfekt an den angeschrägten Seitenrändern meines Bildes langschlängelt, wie geht sowas? kann ich ein Textfeld erstellen, welches eine dreieckige Form hat?

...zur Frage

Nur Zellen mit gleichem Wert addieren, aber wie?

Hallo zusammen,

folgende Herausforderung, ich habe eine Liste mit 3 Spalten und circa 1000 Zeilen.

In Spalte 1 sind Namen, 180 verschiedene, welche mehrfach vorkommen (daher die 1000 Zeilen), in Spalte 2 steht ein Datum (unwichtig) in Spalte 3 steht eine Stundenanzahl, die diese Person an dem entsprechendem Datum gearbeitet hat. Ich möchte nun, dass alle Stunden, die zu einer Person gehören, addiert werden. Also dass ich am ende, von mir aus in spalte 4 sehe, Mitarbeiter Hans hat im Zeitraum XY 120 stunden gearbeitet.

Beim googlen hab ich gesehen, es gibt die "summewenns" funktion, aber ich brauche etwas dynamisches, gerne auch VBA basiert, denn erstmal kommen ständig neue Mitarbeiter dazu und zweitens wäre das Einrichten bei 180 Namen (also 180 verschiedene Suchkriterien) ein Riesenaufwand.

Danke und bis denn, gruß stroiner

...zur Frage

Farbe einer Rectangle ändern? (Tkinter)?

Hi!

Wie kann ich durch eine IF-Stellung die Farbe des Rechteckes ändern?

Mein Code:

from tkinter import *
import random
from tkinter import ttk

window = Tk()
window.title('Memory Game')

tabs = ttk.Notebook(window)
root = ttk.Frame(tabs)

w = Canvas(window, width=1920, height=1080)
window.geometry('1910x1080')
w.pack()

w.create_rectangle(0, 0, 150, 80, fill='red')                                                                       
w.create_text(75, 40, text="Frei", font=20)

w.create_rectangle(150, 0, 300, 80, fill="green")                                                     
textfeld1 = Text(master=w, width=10, height=1, wrap='word', font='arial')
textfeld1.place(x=180, y=30)

window.mainloop()

Wenn jetzt zum Beispiel Tom in das erste Textfeld geschrieben wird und durch einen Button in einer Variable geschpeichert wird, ich eine If-Stellung aufstellen kann, in der dann das Rechteck eine andere Farbe bekommt.

Danke im Vorraus!

...zur Frage

Powerpoint VBA Code funktioniert nicht?

Keine Ahnung ich bitte um Hilfe

...zur Frage

Excel-Code für Mehrfachauswahl in Dropdown-Listen?

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

Application.EnableEvents = True

End If

Errorhandling:

Application.EnableEvents = True

End Sub

...zur Frage

Wie kann ich in excel per vba die letzten gefüllten Zeilen von unten kopieren?

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

...zur Frage

Kann mir bitte jemand helfen?

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.

...zur Frage

Excel, Kombobox als Datum formatieren?

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

Danke, Gruß

...zur Frage

Excel VBA Button erstellen und Makro zuweisen?

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)

...zur Frage

Word VBa Initialize funktioniert nicht?

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!

...zur Frage

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

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 :)

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

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?

...zur Frage

Button in Excel mit Funktionalität programmieren?

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{};

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen