Hallo nochmal

Ich habe vorhin bereits eine ähnliche Frage gestellt. Jetzt hat sich eine weitere Frage ergeben. Ich habe ein Excelfile mit 2 Tabellenblättern (Inhalt und Template). Beim Ausführen eines Makros auf der Seite "Inhalt" soll nun folgendes geschehen:

Tabellenblatt "Template" wird kopiert. Dieses neue Blatt wird nach dem Inhalt der Zelle C8 des Tabellenblatts "Inhalt" benannt.

Wäre super, wenn mir jemand ein VBA dazu machen könnte :) Vielen Dank im Voraus!

Ich sollte haufenweise Werte einzeln nacheinander von Excel in ein SAP Texfeld kopieren, weiss jedoch nicht, wie ich dies automatisieren kann, da der Befehl leider immer so ausschaut: ... session.findById("wnd[0]").resizeWorkingPane 115, 38, False

session.findById("wnd[0]/usr/ctxt").Text = "525445"

session.findById("wnd[0]/usr/ctxt").caretPosition = 6

session.findById("wnd[0]").sendVKey 0

anstatt bei .Text="525445" sollte wahrscheinlich irgend ein paste Befehl stehen.

Kann mir irgendwer helfen bitte?

Ich möchte gerne eine Suchfunktion in meine Exceltabelle integrieren die, wenn ich drauf klicke und ein Wort eingebe, nicht nur auf mehreren Listen sucht, sondern auch jedes Wort markiert, welches sich auch nur dem gesuchten Wort ähnelt. (z.B. Wolke 1, Wolke 22, Wolke 8, Wolke) Vielen Dank!

Leider habe ich diesbezüglich noch keine Erfahrungen!

Hallo zusammen.. Muss für die Arbeit ein Excel-Macro erstellen, dass wie eine Stoppuhr funktioniert. Ist aber keine normale Stoppuhr, denn wenn man den STOP-Button betätigt, soll die gemessene Zeit in verscheidene Tabellen, mithilfe von Gründen, zugeordnet werden.

Ich weiß ist etwas schwieriger, aber freue mich über jede Hilfe:)

Guten Morgen liebe Community!

Vorerst: Ich habe nur ganz wenig Kenntnisse über VBA und Makros!

Ich habe folgendes Problem:

Ich arbeite im Sicherheitsdienst und möchte durch eine Durchgangskontrolle Personen aufzeichnen, die durch eine art "Schleuse" mit Barcode-Ausweisen ein- und aus-checken. Das ist soweit alles fertig. Jede Person wird in einem Protokoll festgehalten, zu welcher Zeit Sie durch die Schleuse gegangen ist. (Alles in Excel)

Im Protokoll fehlt lediglich der Eintrag, ob die Person gerade gegangen oder gekommen ist.

Hat irgendjemand eine Idee, wie ich den Eintrag einfüge, dass er sich nicht mehr ändert, wenn die Person wieder aus- bzw eincheckt? (durch wenn-Formel klappt das nicht so ganz)

Ich hoffe meine Frage ist irgendwie verständlich und jemand kann mir dabei weiterhelfen.

Vielen lieben Dank!

Hallo Zusammen,

ich bin was Makros angeht ziemlich unerfahren. Dennoch möchte ich es gerne mit eurer Hilfe angehen! Was machen brauche ist ein Makro, dass beim klicken eines Buttons folgende Funktion durchführt.

1. Wechsel auf "Tabellenblatt 2" (in meiner Datei "Vorlage CSV"
2. Zelle "B2" kopieren
3. Speichern Unter -> Dateiname "Roh_[Inhalt Zelle B2]"
4. Dateiformat .CSV
5. Dateipfad indem gespeichert werden soll (M:\Abrechnung..Funk- und MBus-Ablesungen..Versandlisten Funkzähler parametriert)

*Das habe ich bisher:

sub csvexp rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Nr" args1(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ---------------------------------------------------------------------- dim args4(2) as new com.sun.star.beans.PropertyValue args4(0).Name = "URL" args4(0).Value = "file:///M:/Abrechnung/..Funk-%20und%20MBus-Ablesungen/..Versandlisten%20Funkz%C3%A4hler%20parametriert/Roh_Fe12-11111,%20Kupferstr.%2040-46,%2070565%20Stuttgart.csv" args4(1).Name = "FilterName" args4(1).Value = "Text - txt - csv (StarCalc)" args4(2).Name = "FilterOptions" args4(2).Value = "59,34,22,1,,0,false,true,true,false"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args4())

end sub *

Das Problem ist nun, dass er immer unter dem Namen "Fe12-11111, Kupferstr. 40-46, 70565 Stuttgart" speichert, egal welcher inhalt in der Zelle B2 steht.

Habt ihr Ideen, woran das liegt?

Vorab vielen Dank für Eure Hilfe!

Ich arbeite grade für eine Kollegin an einer Excel-Tabelle (Excel 2010). Sie wünscht sich nun, dass sich unter einer bestimmten Bedingung die Farben der Registerblätter automatisch ändern. Ich habe dafür die gesamte Tabelle schon soweit vorbereitet, dass eine Formel mir bereits die entsprechende Bedingung ausliest und ausgibt.

Ich gehe dabei jetzt mal ins Detail: In allen Tabellenblätter gibt das Feld J19 mir einen Wert, der entweder =0 oder >0 ist. Bei =0 soll sich der Registername rot färben, bei >0 grün.

Natürlich habe ich Google dazu schon befragt, und mir ist mittlerweile klar, dass sich das mithilfe eines Makros machen ließe. Allerdings liegt genau hier das Problem: Ich habe noch nie mit Makros gearbeitet, schon gar nicht welche geschrieben. Ich weiß mittlerweile wie ich auf die Entwicklertools komme, und wie ich das "Makros"-Fenster öffne. Allerdings habe ich auch nach mehreren (Copy&Paste aus dem Netz) Versuchen es nicht geschafft, dass mir in dem entsprechenden Dialog ein Makro zum Ausführen angezeigt wurde.

Ich bräuchte also eine genaue Anleitung, wo ich was eintragen muss. Ich habe die Tabelle extra so gestaltet, dass der Wert mir in jedem Tabellenblatt im selben Feld ausgegeben wird.

Was ich bislang nicht rausgefunden habe: Läuft das Makro immer automatisch? Oder muss man es immer wieder neu aktivieren? Das wäre nämlich kontraproduktiv, denn die Tabelle soll weitergegeben werden und das Einfärben der Register soll eine "Kontrollfunktion für Dummies" darstelen. Wenn es also jedes Mal aktiviert werden muss, wäre es sinnlos.

Ich hoffe sehr, dass mir jemand helfen kann.

Vielen Dank im Voraus!

Hallo zusammen

Leider konnte ich bis jetzt noch keine Lösung resp. Code finden, um dieses Problem zu lösen.

Aufgabenstellung: Die Zeilen 1 bis 33 wurden auf dem Tabellenblatt "Rechnung" als Wiederholungszeilen definiert. Die Zeilen 25 bis 30 sollen nur auf der ersten Seite erscheinen, danach sollen diese auf den folgenden Seiten nicht mehr erscheinen. Die Zeilen 25 bis 30 sollen auf den nächsten Seiten ausgeblendet werden und die Zeilen 31 bis 33 sollen wiederrum auf jeder Seite zu sehen sein. Die Anzahl der folgenden Seiten ist immer individuell, das heisst, es können 3, 4 oder manchmal auch 12 Seiten oder mehr sein.

Wie lautet der korrekte Code? Vielen Dank im Voraus für hilfreiche Antworten.

Pablo223344

Hallo meine lieben,

ich benötige wieder einmal eure Hilfe. Ich habe im Internet einen VBA Code gefunden der es ermöglich in einer PowerPoint Präsentation die aktuelle Uhrzeit mit Sekunden anzuzeigen. Da der Code leider nicht 64bit tauglich war hab ich ein wenig rumgetüftelt und siehe da, die Uhr selbst funktioniert schon mal. Aber leider bekomme ich ständig eine Fehlermeldung sobald die Folie gewechselt wird. "slides (unknown member): bad argument type. Excectet Collection index (string or integer). Ich verwende Windows 10 und Office 2016.

Würde mich rießig freuen wenn mir hier jemand weiterhelfen kann.

Vielen Dank im Voraus.

Leider ist der Code zu lange daher in 2 Teile.

Erster Teil:

Option Explicit

'API Declarations
Declare PtrSafe Function SetTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr, _
                             ByVal uElapse As LongPtr, _
                             ByVal lpTimerFunc As LongPtr) As LongLong

Declare PtrSafe Function KillTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr) As LongLong

' Public Variables
Public ClockTimerID As LongLong
Public prevSlideIdx As LongLong

Const TIMEFORMATSTRING As String = "dd.mm.yyyy - HH:mm:ss - KW :ww" 'show seconds with: "HH:mm:ss""

Dim pptEventObject As New Klasse1 'AppClassModule
'DIESE METHODE EINMALIG UNTER MAKROS STARTEN, DAMIT DAS EVENTHANDLING FUNKTIONIERT!
Sub InitializeApp()
    Set pptEventObject.App = Application
End Sub


Sub StartClockTimer()
    On Error GoTo ErrorOccurred
    
    'first make sure its not already running
    ClockTimerID = KillTimer(0, ClockTimerID)
    ClockTimerID = SetTimer(0, 0, 1000, AddressOf TimerProcClock)
    If ClockTimerID = 0 Then
        MsgBox "Unable to create the clock timer", vbCritical + vbOKOnly, "Error"
        Exit Sub
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


Sub StopClockTimer()
    On Error GoTo ErrorOccurred
    
    If Not ClockTimerID = 0 Then
        ClockTimerID = KillTimer(0, ClockTimerID)
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


' The defined routine gets called every nnnn milliseconds.
Sub TimerProcClock(ByVal hwnd As LongPtr, _
                    ByVal uMsg As LongPtr, _
                    ByVal idEvent As LongPtr, _
                    ByVal dwTime As LongPtr)
On Error GoTo ErrHandler
    
    If Not ActiveSlide Is Nothing Then
        ActiveSlide.Shapes("PointaixClockLabel").TextFrame.TextRange.Text = WeekdayName(Weekday((Now()))) + " " + Format(Now(), TIMEFORMATSTRING)
    End If

    Exit Sub
ErrHandler:
End Sub

Ich habe in Excel eine kleine Userform erstellt, mit 4 Textboxen, in 3 werden Werte eingetragen und in der 4. ein Ergebnis ausgegeben.

Diese Userform wird jetzt als eigenständiges Fenster über dem eigenlichen Arbeitsblatt angezeigt.

Was ich gerne hätte ist, dass die Userform in einer Zelle angezeigt wird, so dass ich sie in mein Arbeitsblatt integrieren kann und zB in der Zelle A4 dann die Userform angezeigt wird.

Ist soetwas realisierbar?

Hallo leute, Ich habe gester ein programm gefunden "X-Mouse Button Control" da kann ich einstellen das ich wenn ich Maus taste "5" GEDRÜCKT halte dass mein PC denkt ich spame richtifg schnell Maus Links. Ist das erlaubt? Kann man das "detecten"? Eigentlich doch nicht, oder? Es gibt ja Minecraft spieler (bestimmt auch andere) die in der Sekunge auch 15+ Klicks in der sekunde bekommen (Mein programm macht ca 15 Klicks pro sekunde) Sowas gibt es auch für Razer Produkte, wenn man z.B. eine Razer Maus hat gibt es von Razer ein eigeness Programm dafür. Das ist ja vllt. zum Vorteil in CS:GO mit Pistolen. Und wenn man das Programm von Razer hat +(Gaming Maus/Tastatur) Kann man sogar noch mehr machen wie Tab-Shooting also wieder gedrückt halten aber die Schießt im Einzelschuss modus dann hat die waffe eine Viel höhere Präzision, schießt aber auch langsamer. Also ist das erlaubt? Ich denke schon denn das ist ja KEIN Hack o.ä. Danke für eure Antworten!

Was für ein makro objektiv würdet ihr mir empfehlen?

Hallo,

Ist das überhaupt möglich, dass sich ein Makro automatisch ausführt, wenn die Excel Datei nicht geöffnet wird? Ich möchte, dass ich ein E-Mail bekomme, wenn eine bestimmte Bedingung erfüllt ist. Aber für den Schritt möchte ich diese Excel-Datei auf meinem Laufwerk nicht öffnen. Wie lautet der Befehl?

Für eine hilfreiche Antwort bin ich sehr dankbar.

Ich möchte wenn ich in eine Zelle klicke ein Bild erscheint, aber ohne Link. Ist das möglich? und wenn ja wie ?

Hallo zusammen,

habe mal wieder ein problem mit excel.... im nachfolgenden code geht alles soweit bis auf die zwei if cods bzw. der eine der sich auf die 4 ("D") Zeile bezieht geht. der code der auf zeile 9 gerichtet ist geht einfach nicht... wenn ich anstelle 9, 8 angebe und ändere gehts. es gehen alle spalten bis auf 8. dann is sense...

kann es sein, dass nur 8 zeilen irgendwie unterstützt werden oder hab ich da was falsch gemacht?

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
   
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("a2:h100")) _
      Is Nothing Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target = UCase(Target)
ERRORHANDLER:
   Application.EnableEvents = True

    If Target.Column = 4 Then Call Zelle11 ' Heim
    
    If Target.Column = 9 Then Call Zelle12 ' Gast
    
    
End Sub

Sub deleteTable()

If CurrentProject.AllForms("tblUpload").IsLoaded Then DoCmd.Close acForm, "tblUpload" Else DoCmd.DeleteObject acTable, "tblUpload" End If

End Sub

Bekomme aber eine Fehlermeldung: In dem von ihnen eingegebenen ausdruck wird auf ein objekt verwiesen, das geschlossen oder nicht vorhanden ist.

Moin ihr Lieben. Ich habe folgendes Problem. Ich brauche genau eine Funktion die Excel schon hat.. aber etwas geändert. Undzwar gibt es ja die Möglichkeit unter Datei -> Externe Daten importieren -> Aus Text, CSV Dateien sehr gut zu importieren. Dort kann man angeben ab welcher Zeile der CSV Datei erst importiert werden soll, weil z.B. in der ersten Zeile nur Überschriften stehen. Mein Problem ist das dies immer nur mit einer zur Zeit geht. Kennt jemand ein Makro mit welchem dies geht bloß eben mit mehreren? Das man sagt: die ersten 3 Zeilen immer ignorieren und alles andere ab A1 oder so untereinadner einfügen?

Wäre eine super Hilfe!!!

Excel VBA: wie kann ich in einer Spalte Zellen nach unten mit dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis zur nächste Zelle mit einem Wert minus einer Zelle: es soll B1+B2 durch das Makro selektiert werden, dann sollen diese Zellen merged werden; danach soll B3 gewält werden und gemergered werden; danach dann B4+B5+B5 markiert werden und ebenfalls merged werde usw bis zum Ende der Spalte B

Reihe       A    B    C   D

Reihe 1    1   da    er  we

Reihe 2    2

Reihe 3    1   be    de   oi

Reihe 4    1   as    sa   ds

Reihe 5    2

Reihe 6    3

Reihe 7    1  dw

Vielen Dank für Hilfe und Anregungen

Grüße Sascha

Jetzt noch mal für Doofe: schaut euch bitte das beigefügte Bild an. Mein Problem: Ich hätte gern, dass wenn ich die Datei (als eine normale Exceldatei) speichere, dass sie wie folgt heißt: "11.01.2017 10:22 Esel", sprich "A3_B3_C3". Zweck soll sein, dass wenn ich den Ordner öffne, wo sich dann anschließend die so benannten Datei aufhalten, ich eine chronologische Folge habe. Ich habe absolut keine Ahnung von Excel und bitte euch mir zu helfen. Solche Aussagen wie "Füge einfach XY als MAkro ein" helfen mir nicht, weil ich nicht weiß, wie und wo ich was reinkopieren muss. Könntet ihr mir bitte helfen und mir wirklich wie für eine wirklich ahnungslose senile Person mit IQ von 3 erklären? Wie für einen Steinzeitmenschen, aller Schritt für Schritt? Sonst verliere ich den Faden und erkenne nicht die Zusammenhänge. Und noch was: die Ausgangsdatei sollte am Besten als Vorlage abgespeichert werden, damit ich nicht jedes Mal aufs Neue diese Tabelle erstelle müsste. Danke!