Hallo, ich habe verschiedene Tabellen, in denen sich durch Löschen einer Spalte Leerzeilen ergeben haben. Diese kann ich leider nicht per Makro löschen; es kommt eine Fehlermeldung wegen der vertikal verbundenen Zellen. Daher würde ich gerne die vertikal verbundenen Zellen trennen.

Etwas genauer vielleicht noch

Es bleiben zwei Spalten übrig.

Spalte 1 enthält keine verbundenen Zellen.

Spalte 2 enthält die verbundenen Zellen, die unterschiedlich vielen Zeilen in Spalte 1 entsprechen. Mal sind nur zwei Zeilen verbunden, mal 10.

Vielen tausend Dank für eure Hilfe!

Hallo Community, wie funktioniert das mit den Makros? also wie kann man in einem Spiel wie z.B. Playerunknow Battlegrounds ein Makro erstellen das Rapid Fire und no Recoil macht?

Weiß das es verboten ist, mich Interessiert nur wie das funktioniert.

Vielen Dank im Voraus

Ich möchte, wenn ich in eine neue Zeile (unter einem bereits vorhandenen Rahmen) gehe, sofort eine Rahmenlinie übertragen haben - mit den gleichen Formatierungen wie oben. Das doch irgnd makro...? Wer nen plan?

Hallo Community.

Ich möchte gerne per Hotkey/Makro ( Eine Taste auf der Tastatur ), die Lautstärke für eine separate Anwendung ( Spiel ) steuern, ohne die Master-Lautstärke zu verringern oder extra in den Lautstärkenmixer bzw. Soundeinstellungen im inGame einstellen zu müssen.

Wie mache ich das, ohne eine extra Software herunterzuladen?

Grüße

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!

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

1. Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.

2. Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

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 ?

Liebe Community, ich habe versucht eine Schiebepuzzle aus Zahlen in Excel zu programmieren. Den Text seht ihr unten. Jedoch sobald ich auf Ausführen (Wiedergabe-Button) drücke, kommt folgender Fehler:

Laufzeitfehler '424':
Objekt erforderlich

Könnt ihr mir bitte helfen den Fehler zu finden?

Vielen Dank im Vorraus
Lamio13

Dim xpos As Integer   
Dim ypos As Integer  
Dim AlleKnoepfe(1 To 15) As CommandButton

Private Sub UserForm_Initialize()
Set AlleKnoepfe(1) = CommandButton1
Set AlleKnoepfe(2) = CommandButton2
...  
Set AlleKnoepfe(14) = CommandButton14
Set AlleKnoepfe(15) = CommandButton15
End Sub

Sub FindMich(ich As String)
    Dim ii As Integer
    Dim jj As Integer

    For jj = 1 To 4
                 For ii = 1 To 4
                      If (Cells(jj, ii) = ich) Then
                         xpos = ii
                          ypos = jj
                          ii = 5
                          jj = 5
                      End If
                 Next ii
    Next jj
End Sub
Private Sub KannMichBewegen()

    'untersuche, ob rechts frei ist
    If (Cells(ypos, xpos + 1) = "") Then
        Cells(ypos, xpos + 1) = Cells(ypos, xpos)
        Cells(ypos, xpos + 1) = ""
    End If

End Sub

Sub VerschiebMich(SchubladenNummer As Integer)
    'untersuche, ob rechts frei ist
    If (xpos < 4) Then
            If (Cells(ypos, xpos + 1) = "") Then
                Cells(ypos, xpos + 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob unten frei ist
    If (ypos < 4) Then
            If (Cells(ypos + 1, xpos) = "") Then
                Cells(ypos + 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

    'untersuche, ob links frei ist
    If (xpos > 1) Then
            If (Cells(ypos, xpos - 1) = "") Then
                Cells(ypos, xpos - 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob oben frei ist
    If (ypos > 1) Then
            If (Cells(ypos - 1, xpos) = "") Then
                Cells(ypos - 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

End Sub

Private Sub CommandButton1_Click()
    FindMich (CommandButton1.Caption)
    VerschiebMich (1)
    End Sub
...

Hallo, ich habe wieder eine Excel Frage: ich habe eine Tabelle, Spalten A-H. In der Spalte G habe ich den Status, wo ich eine DropDown-Liste habe und zwischen: "in Bearbeitung", "Material bestellt", [...], "erledigt" auswählen kann. In Spalte H habe ich als Überschrift "erledigt am", es soll also in Spalte H, sobald ich in Spalte G den Status "erledigt" ausgewäht habe, das aktuelle Datum erscheinen. Ich habe also in Spalte H folgende Formel: "=WENN(G50="erledigt";TEXT(JETZT();"TT.MM.JJ");"")". Ich glaube, ihr wisst, worauf ich hinaus wil, also nach dem Speichern soll dich das Datum nicht ändern, tut es aber natürlich. (Ist ja klar!) Aber, da ich erst seit ein paar Monaten mit Excel arbeiten, habe ich noch keine Ahnung. Durch das Stöbern im Internet, habe ich rausgefunden, dass es nicht einfach so funktioniert (oder doch?), sondern, dass man dafür ein Makro braucht (wovon ich absolut keine Ahnung habe). Also so weit bin ich: ich habe die Tabelle offen vor mir, ich klicke auf den Tabellen-Namen und klicke auf "Code anzeigen", dann öffnet sich ja ein Makro Fenster. So, was soll ich nun machen? Ihr wisst ja, welche Spalte ich brauche, es wäre schön einen Code zu haben. :-) Und wenn ich da den Code eingefügt habe, was muss ich dann machen? Ich würde dann auf "speichern" klicken, dann öffnet er ja ein Fenster und weist mich darauf hin, dass ich die Datei als eine Mappe mit Makros speichern muss. Richtig? Dann würde ich das tun. Und dann wenn ich das gespeichert habe, müsste ich die Makros (-> "Inhalt aktivieren") jedes Mal, wenn ich die Datei öffne anklicken, oder? und dann habe ich das, was ich will. Bitte helft mir, ich verzweifle so langsam...

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

In einer Altklausur wird gefragt warum Unterprogramme im Gegensatz zu Makros langsamer sind aber weniger Speicherplatz benötigen.

Hat hierzu jemand eine Antwort / Erklärung für mich?

Hallo Makro1 Wirtschaftswissenschaftler,

Ich verstehe nicht genau, wann ich zur Optimierung (Maximierung) das Substitutionsverfahren, Lagrange oder den Hamiltonian anwende. Meine Vermutung ist, dass es von den Nebenbedingungen / Restriktionen abhängig ist. Erkenne nur leider keine Logik dahinter.

Kann mir jemand weiterhelfen?

Vielen Dank!  

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!

Hallo,

da ich leider nicht alle technischen Begriffe richtig kenne und deshalb evtl. hier falsch verwende bereits vorab die Bitte um Entschuldigung.

Ich bekomme täglich eine csv Datei mit Daten aktueller, also zum heutigen Tag angestellten, Mitarbeitern. Hier steht bspsweise Personalnummer (eindeutiger Schlüssel), Nachname, Vorname,Eintrittsdatum und Austrittsdatum (Achtung: Das Austrittsdatum stimmt leider nicht immer). Zur Veranschaulichung die Datumsangaben mal weggelassen.

...

124514; Müller; Jonas;

231423; Fischer, Joachim;

423313; Haupt, Christian;

...

Sobald ein Mitarbeiter nicht mehr aktiv ist (also aus der Firma ausgetreten ist) wird der Datensatz am folgenden Tag auch nicht mehr übergeben (kommt also in der aktuellen csv Datei nichtmehr vor).

Es würde also am Folgetag die csv folgendermaßen aussehen, wenn Müller das Unternehmen verlassen hat und Newbie beispielsweise neu angefangen hat. Die Neueintritte müssen nicht abgefangen werden, wollte ich nur als Info dazusagen, dass diese dann zusätzlich in der neuen Datei vorhanden sind. Es geht ausschließlich um die Austritte, also die Mitarbeiter die in Vortagsdatei vorkamen, jetzt in tagesaktuellen aber nicht mehr vorkommen.

...

231423; Fischer, Joachim;

423313; Haupt, Christian;

599999; Newbie, Franziska;

...

Da das Austrittsdatum, welches auch mitgeliefert wird, leider teilweise nicht korrekt ist, kann ich mich nicht auf dieses Feld verlassen und irgendwie danach gehen. Auch haben beispielsweise unbefristete Mitarbeiter hier keinen Eintrag.

Ich bin nun auf der Suche nach einer Möglichkeit, wie ich die täglichen Austritte abfangen kann, also die Differenz zwischen mitgelieferten Daten der aktuellen Datei gegenüber der zum Vortag vergleichen kann. Dies sollte jeden Tag automatisiert funktioniert (durch einen Windows Dienst?)

Meine Idee war, dass ich diese beiden csv Dateien Datei H (Heute, im Beispiel oben die Datei mit Newbie) und Datei H-1 (gestern, Datei mit Müller) täglich vergleichen lassen und mir die Austritte jeweils in eine extra Datei, egal ob csv oder Excel, ausgeben lasse, sodass ich am Ende jeden Monats alle Austritte nochmal überprüfen kann.

Im obrigen Beispiel sollte dann beispielsweise der Datensatz zu Herrn Müller in eine Datei übergeben werden inkl den mitgelieferten Informationen wie Eintrittsdatum und Co. und wenn möglich dem aktuellen Tag (oder Zeitpunkt/aktueller Zeitstempel, damit nachvollzogen werden kann, wann genau dieser Mitarbeiter ausgetreten ist)

Leider fehlt mir jede technische Idee, wie ich sowas am schlausten umsetze und technisch realisiere. Hierfür wäre ich euch sehr über eure Ideen dankbar! Ich will ungern zunächst in eine komplett falsche Richtung laufen und danach bemerken, dass dies mir diesem System nicht umsetzbar ist.

Da dies wohl meine Mammutsaufgabe in meinem Praktikum sein wird, bin ich demjenigen, der sich hier die Zeit nimmt, mir bei der Lösungsfindung zu helfen, natürlich sehr, sehr dankbar! Vielen dank!

Ich bin auf der Suche nach einen No Recoil, der No Recoil sollte können: wenn ich die rechte Maus taste gedrückt halte (anvisieren) und danach schieße sollte man einstellen können das die Maus XY runter zieht und wenn ich nicht anvisiere, sollte es ein anderer Wert sein.

Falls positive Antworten kommen, danke im voraus ^^

Moin!

Meine Frage:

Wie lautet der VBA-Code, wenn ich in Spalte S (Besetzte Zellen: S9:S157) "Ja" schreibe, soll in Spalte U in der jeweiligen Zeile das aktuelle Datum automatisch eingesetzt werden und eingefriert werden ohne das es sich am nächsten Tag aktualisiert. Wenn ich eine Zelle in Spalte S die Zelle freilasse, soll in Spalte U automatisch "Nein" erscheinen.

Danke schonmal im Voraus!

Gruß

Luka

Hallo zusammen

Ich habe eine Exceltabelle erstellt mit zwei Blättern. In dem einen Blatt trage ich die Resultate eines Turniers ein, im anderen die Tabelle.

Nun konnte ich die Tabelle sortieren, dass ist ja keine Kunst. Ich sortiere die Tabelle nach Punkte, Tore etc. Nun, das Problem ist, dass wenn ich im anderen Blatt ein Resultat ändere, die Tabelle nicht automatisch neusortiert. Also der erste bleibt erster, auch wenn ein anderes Team mehr Punkte holt. Ich müsste dann immerwieder neu sortieren, damit ich die Tabelle aktuell halten kann.

Ich habe gelesen, dass es mit Makros möglich ist, konnte jedoch den Code nicht richtig abändern.

Es betriffrt die Zeilen A20:F24 und A28:F32

Vielen Dank für eure Hilfe.

Meine Datentabllen wachsen und wachsen. Dennoch möchte ich die gesuchte Excel Zeile möglichst schnell finden.

Ich hatte hierfür schonmal eine Suchzeile, inder mir die Zeile mit dem Wert ausgegeben wird, welche ich für die erste Spalte als Vergleich gesucht habe.

=WENNFEHLER(INDEX($A$2:$Z$4400;VERGLEICH($AC$4;$A$2:$A$4400;0);VERGLEICH(AE$2;$A$1:$Z$1;0));"Gib in AC4 einen Wort ein!")

Also kurz erklärt, In AC4 gibt man den gesuchten Wortlaut an. In AE2 ist die varilable Beschriftung der zu durchsuchenden Spalte.

Nun möchte ich, dass in der ersten zu durchsuchenden Spalte (das Wort wird in AC4 angegeben) nach dem Wort auch innerhalb der Zelle gesucht wird. Eignet sich zB für Doppelnamen und man nur nach einem Suchen kann, weil der zweite im Schreiben nicht erwähnt ist. Es sollte ein Treffen mit dem vollständigen Inhalt der gefundenen Zelle ausgegeben werden.

Die darauf folgende Formel rechts nebendran ließt jetzt aus Zelle AC5 einen weiteren Wortteil heraus, welcher in der gleichen Zeile existieren muss wie der Wortteil aus AC4. Somit muss durch die Eingabe in Zelle AC5 (falls FALSCH) die Tabelle weiter durchsucht werden nach dem gleichen Prinzip.

Am Ende der Suchspalte ist dann ein variabler Hyperlink der mich direkt zur passenden Zeile führt, nachden ich bestätigen kann, dass es bei den angezeigten Angaben sich um den richtigen Datenzeilensatz handelt.

Theoretisch gelaube ich schon, dass das mit Excel möglich ist. Bloß ich weiß es einfach nicht :(

Vielen Lieben Dank Für Deine Hilfe !!!

Diese Paar Codezeilen würden mir Stunden an Arbeit in Zukunft sparen :)

Hallo,

Ich hab heute in der Arbeit ein Dokument in Excel 2010 erstellt.

Im Dokument habe einen Button erstellt und ihm einer Makro zugewiesen.

Der Button soll die Datei als .PDF unter einem bestimmten Pfad abspeichern und die Zeile [F7] als Dateinamen benutzen.

Der Code für die Makro:

Sub Speichern_PDF()

ChDir "PFAD"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Range("F7").Value & "_" & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

End Sub

Soweit funktioniert auch alles wie gewünscht, jedoch wenn ich das Verzeichnis von [C:] auf [M:] ändere wird die Datei nicht mehr abgespeichert.

In Excel selbst habe ich unter dem Sicherheitscenter den Pfad schon als Vertrauenswürdig eingetragen, und Vertrauenswürdige Dokumente im Netzwerk erlaubt.

Wenn ich den UNC Pfad verwende erstellt es eine Datei, aber nach schließen des Dokumentes funktioniert die Makro wieder nicht.

Eventuell hat ja jemand von euch eine Gute Antwort auf mein Problem.

Würde mich freuen

Gruß Maximilian

Hallo,

ich versuche ein Makro aufzuzeichnen, welches mir Deckblatt und Inhaltsverzeichnis in ein Word Dokument einfügt. Leider funktioniert das nicht. Bedeutet das, dass sowohl Deckblatt als auch Inhaltsverzeichnis nicht in ein Makro integriert werden können?

Danke für eure Hilfe und ich freu mich auf eure Antworten

Hallo, ich habe eine extrem lange Liste bestehen aus zwei Spalten. In Spalte A sind Zahlen und in Spalte B sind Wörter.

Frage 1: Wie kann ich bestimmte Bereiche in eine Zelle zusammenfügen; am besten durch Komma getrennt. Was ich bislang gefunden habe erscheint mir etwas kompliziert: VERKETTEN(MTRANS(B1:B67)) Dann kommt da sowas raus: {"Nähe"."Nu"."Uni"."Hahn"."Neue"."Huhn"."On"."Yen"."Nahe"."Hohn"."Ion"."Henne".} Hier mache ich nun mit Ersetzen die Anführungszeichen und die Klammern weg und aus dem Punkt ein Komma mit Leerzeile. Geht das nicht irgendwie noch leichter?

Frage 2: Könnte man auch gleich befehlen, dass alle Wörter, denen in Spalte A die gleiche Zahl zugeordnet ist, in einer Zelle zusammengefasst werden?

So sieht das ganze etwa aus:

A B

1 Eid

1 Hoheit

1 Hit

1 Heute

2 Huhn

2 Henne

3 Mühe

3 Oma

3 Heim

usw. Die Liste hat an die 270.000 Einträge (Zeilen). Die Zahlen in Spalte A gehen bis 99999. Daher sollte so viel wie möglich automatisch laufen. Denn fast einhunderttausend Einträge (so wie ich es bislang von Hand mache) zu ändern ist der Horror ... Ein Freund sagte mir, ich brauche wahrscheinlich ein Makro. Allerdings habe ich überhaupt keine Ahnung wie ich das verwende. Daher bitte ich um eine ausführliche Erklärung und hoffe, dass ich nicht zu viel verlange...

Vielen vielen lieben Dank schonmal. Ich hoffe und freue mich auf Antworten

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

End If

Loop

End Sub

Geht es, eine Makro auf der DeathAdder so zu konfigurieren, dass diese solange hält, wie man die Taste drückt? Oder funktionieren dort nur welche, bei denen man nur kurze Aktionen durchführen kann? (Ich möchte z.B eine Spielerliste damit öffnen/offen halten).

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub 

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

Ich habe eine Excel Arbeitsmappe, die ich per Mail bzw. über einen Server verschicken will. Dabei soll aber mein aufgezeichnetes Makro nicht verloren gehen, sondern von jedem, der die Datei empfängt, benutzbar sein.

Wie müsste ich das anstellen?

Hallo, folgendes Problem. Ich möchte mehrere Spalten nach einem Schlagwort aus einer Zelle Filtern. Egal in welcher Spalte das Schlagwort auftaucht, diese Zeile soll stehen bleiben.

ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=2, Criteria1:=Cells(2, 3).Value
ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=3, Criteria1:=Cells(2, 3).Value
ActiveSheet.Range("$A$14:$K$62").AutoFilter Field:=4, Criteria1:=Cells(2, 3).Value

Das war mein Versuch der aber nicht funktioniert. Es Funktioniert immer nur wenn ich den Quelltext mit nur einer Spalte verwende. Sobald ich mehrere Spalten verwende funktioniert es so nicht mehr. Außerdem sucht er mir so immer nur den direkten Wortlaut. Beispiel es steht ein Vor- und Nachname in einer Zelle und das Schlagwort beinhaltet nur den Vornamen, findet er nichts.

Hoffe es kann mir jemand helfen.

Danke!

Guten Morgen, hat jemand sich das Office Paket gekauft und wendet er es ebenfalls auf sein Handy, Tablet oder ein anderes mobiles Gerät an? Funktionieren die Makros?

Bei Tablets gibt es ja unter einer Größer von 10,1 Zoll kostenlose Apps, doch da funktioniert vba nicht. Bei über 10,1Zoll muss man sich ja das Paket holen und sich über das Gerät anmelden. Geht es damit? Hat da jemand Erfahrung? Die vom Microsoft-Support wissen es nämlich nicht, ob Makros unbedingt ausführbar sind....

Hi Leute,

ich möchte folgendes in einer Exceltabelle realisieren:

In einer Zelle C6 ist ein Wert und in Zelle D6 ist ein Wert. Das Makro soll diese Wertebei klick in fortlaufende Zeilen Kopieren, sodass quasi eine Auflistung der Werte entsteht.

Bsp.: Ich klicke auf den Button, das Makro schreibt die Werte von C6 und D6 in C20 und D20. Nun ändern sich die Werte von C6 und D6. Ich klicke jetzt wieder auf den Button und das Makro schreibt die Werte aus C6 und D6 dieses mal in C21 und D21, damit die anderen nicht überschrieben werden.

Gibt es da eine Möglichkeit das umzusetzen?

Beste Grüße Melina

Ich habe bisher diesen Makro benutzt:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wksSheet As Worksheet
    For Each wksSheet In ThisWorkbook.Worksheets
        With wksSheet
            If .AutoFilterMode Then
                If .FilterMode Then
                    .ShowAllData
                End If
            End If
        End With
    Next wksSheet
    ThisWorkbook.Save
End Sub

Gutene morgen, ich habe bei excel ein makro, welches beim klicken bestimmt eingegebene Werte aus bestimmten zellen kopiert und in eine tabelle überträgt und anschließend die wert der eingabefeler löscht, sodass ein erneutes eingebne und speichern möglich ist. gerne würde ich ein button haben, der beim betätigen die letzte werte wieder in die eingabefelder macht und der nutzer sie somit bearbeiten kann. ich habe das mit dem aufzeichnen gemacht aber so wäre es jeden nutzer quasi möglich alle jemals eingegebene werte beim öfteren drücken zu ändern und löschen. es soll nur für die letzte eingabe sein. jemand ideen? danke im voraus

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

Hallo Community, wie kann ich es hinbekommen, dass die Dateinicht nur in den Postausgang gelegt wird sondern auch versendet wird? hier mein Code:

    Sub ExcelDateiSendenMitText()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.com; xxxxx@xxx.de"
.Subject = Range("F1") & Date & Time
.attachments.Add AWS
.Body = "text blabla"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Ich weiß nicht weiter bitte um hilfe

Danke schon mal im Voraus

Hi!

Ich habe mich gefragt ob es möglich wäre sobald man eine Excel Datei öffnet direkt den gesamten Inhalt von C:\Temp\PDMCAD\SE zu löschen und Excel danach wieder zu schließen?!

Achtung! Es können noch Dateien aus diesem Ordner offen sein, dh hier müsste er die Dateien überspringen und die nicht gebrauchten folgenden Dateien wieder löschen.

Wäre cool wenn einer bescheid weiß!

Guten Abend Weiss jemand, ob man bei der Roccat Isku FX Tastatur ein Makro einstellen kann, dass nur solange aktiv ist, bis man die taste loslässt ?

Würde gerne eine PTT Taste anlegen für TS3, nur klappt das leider nicht.... Wäre toll, wenn sich jemand damit auskennt und mir weiterhelfen könnte.

Guten Tag zusammen,

wie oben schon beschrieben benötige ich ein Makro, das aktive Zellen in einer Hellen gut zu erkennenden Farbe zb. Gelb einfärbt. Die Einfärbung sollte aber wieder verschwinden sobald eine andere Zelle ausgewählt wird. Die neu ausgewählte Zelle sollte sich aber wieder einfärben usw... Der Hintergrund ist der, dass ich sehr viel mit Listen arbeite, die sehr unübersichtlich sind.

Ich habe schon Makros im Internet gefunden von denen leider keines funktioniert. Ich arbeite mit Excel2013

Vielen Dank im Voraus

Darf ich Makros in LoL benutzen wie z.B den Ward jump für Lee Sin?

4 press; 4 release; W press; W release

Ich benutze die Sharkoon Skiller Tastatur und die zugehörige Software mit der ich die Makros einstellen kann? Ich möchte nur wissen ob Riot was dagegen hat oder sonnst was. Auf meinem Bild seht ihr wie das aussehen würde.

lg

Hallo, Ich würde mir gerne ein B-hopmakro für Cs Go erstellen, ich habe lange gesucht doch nichts gefunden... Ich bin im Besitz einer Roccat Isku und einer Lioncast LM30 und den dazugehörigen Treibern. Vielleicht kann mir ja jemand von euch sagen, welche Tastenkombis ich aufnehmen muss und welche Einstellungen wichtig sind. Lg DerGamer

Wie erstelle ich so ein Makro? Es soll die Entertaste betätigen 0.5sec Pause und wieder Entertaste 0.5sec Pause und so weiter. Entweder ausgeführt durch den ersten Tastendruck und deaktiviert durch ein zweiten Tastendruck. Oder halt solange aktiv, wie die taste gehalten wird, das wäre mir egal. Hab absolut kein Plan, wie ich sowas programmiere.

Hallo zusammen.

Ich hab leider nix gescheites zu meiner Problemstellung gefunden, deshalb frage ich jetzt einfach mal direkt nach: Ich möchte in einer großen Tabelle nach mehreren Kriterien in der ersten Zeile suchen. In dieser Zeile sind Überschriften (aus einer .xml übernommen). Leider wiederholen sich die Überschriften ab und an, allerdings mit den unterschiedlichsten Ziffern als Anhängsel (zb AKMKaufteile, AKMKaufteile5, AKMKaufteile324...). Das wäre jetzt aber noch kein Problem, da ich ja normalerweise eh nur nach Teilen des Wortes suche. Ich habe allerdings auch Überschriften die ziemlich ähnlich sind und mit als Treffer gewertet werden so wie ich das mache (zb AKMKaufteileD34, AKMKaufteileB412... also immer entweder das D oder das B mit da drin, und diese Spalten brauche ich nicht).

Zusammengefasst möchte ich einfach nur die erste Zeile nach AKMKaufteile (das ohne D und B) suchen und auch die Zellen/Spalten haben, wo die Ziffern angehängt sind; es handelt sich dabei um Preise, bei D ist das Datum und B der Benutzername angegeben, letztere beiden sind uninteressant).

For i = 1 To 1000
   If InStr(1, Cells(1, i).Value, "AKMKaufteile") > 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileB*") = 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileD*") = 0 Then
      For j = 1 To 300
         If InStr(1, Cells(j, i).Value, "") > 0 Then
             Cells(j, i).Activate
              ActiveCell.Copy Destination:=Worksheets("Ergebnis").Cells(j, 10).Offset(1)
         End If
      Next j
         
   End If
Next i

(So klappt es leider nicht)

Vielen Dank für jeden Tipp der mich weiterbringt ::)

Gruß

Jan

Hallo, ich möchte in Adobe InDesign Fotos in ein 1.1 Format (800x800 px) umwandeln. Da die vorhandenen Fotos verschiedene Seitenverhältnisse aufweisen mache ich es wie folgt: In InDesign habe ich eine Vorlage erstellt (800x800px). Ich ziehe nun das gewünschte Bild hinein und mache dann "Inhalt propotional Anpassen" also Alt + Strg + Shift + E. Dann auf Anzeigeleistung -> Anzeige mit hoher Qualität und zum Schluss auf exportieren.

Nun habe ich mehrere hundert Bilder vor mir und möchte wissen, ob man eine Stapelverarbeitung durchführen kann? Quasi wie die Makros in Photoshop?

Mit IrfanView habe ich es auch schon probiert, bringt aber nicht den gewünschten Erfolg. Das Programm verkleinert nur aber macht es nicht in ein 1:1 Format.

Hey, ich versuche zur Zeit bei Excel einen Taschenrechner unter der Verwendung von Makros zu erstellen. Grundsätzlich habe ich damit keine Probleme, bloß das Ausrechnen und das "Die letzte Ziffer auf dem Anzeigefeld löschen" funktionieren einfach nicht... 0-9, Grundrechenarten, Pi, On, Off, Komma funktioniert super.

Würde einen Screenshot von dem anhängen, was ich dort bisher habe, aber das ist endlos lang und wahrscheinlich komplett falsch. :D

Habe auf mehreren Seiten nach Hilfe gesucht, konnte aber nichts Passendes finden.

Kann mir da eventuell jemand weiterhelfen, wäre super...? :D

Hallo zusammen,

ich habe ein Problem mit Excel, das vermutlich ganz leicht zu lösen ist, alleine komme ich aber nicht weiter.

Ich möchte gerne ein Makro immer bei einer Änderung in einer bestimmten Zelle ausführen lassen. Dazu habe ich bisher folgenden Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, Range("A1")) If Target Is Nothing Then Exit Sub Else FooterLeft End If End Sub

Der funktioniert auch, bloß soll jetzt die aktivierende Zelle nicht A1 auf diesem Tabellenblatt sondern beispielsweise Zelle A6 auf dem Tabellenblatt "Deckblatt" sein.

Was muss ich hier wie umformulieren damit das klappt, oder brauche ich grundsätzlich eine ganz andere Funktion dazu?

Vielen lieben Dank!

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

Ich habe eine Liste und jede einzelne Komponente hat ein Kontrollkästchen.

Jetzt bin ich an einem Leitfaden dran, über den ich je nach dem welche Zahl in ein Input Dialog eingegeben wird verschiedene Kontrollkästchen aktivieren will. Jetzt heißt mein normales Kontrollkästchen aber "Kontrollkästchen 1".

Wie kann ich ein solches Kontrollkästchen über ein Makro ansprechen um es auf "TRUE" zu setzen? Geht das überhaupt?

Hi Leute!

Folgendes... Ich habe in meiner UserForm1 einen "Beenden" Button erstellt. Drücke ich diesen öffnet sich meine UserForm2 mit der Frage (Zwei Buttons JA/NEIN) ob ich beide Masken wirklich schließen will. Soweit alles geschafft.

Nun weiß ich nicht was ich nach Private Sub CommandButton2_Click()

eintippen muss damit sich UserForm1 und UserForm2 beide schließen.

Hoffe ihr könnt mir helfen :)

Eine Bestandsauswertung wird in Excel(2010) ausgegeben und tägl. in meine zu analysierende Tabelle in einem Blatt (Abl.Schleifpuffer) abgelegt bzw. überschrieben. In diesem Blatt soll mittels VBA eine intelligente Tabelle erstellt werden.

Per Aufzeichnung klappt das ganz gut, nur gibt es da paar Haken:

1. sollte sich die Auswertung (Quelle) ändern aufgrund Programmanpassungen, verschieben sich auch die Zellen. So beginnt sie nicht von A11 sondern evtl. von B12

2. erstelle ich eine intelligente Tabelle, so gibt mir das Makro immer die Größe von der zuerst erstellten Tabelle "$A$11:$N$853" wieder, sodass bei der nächsten Auswertung die Zeilen ab 854 gar nicht mit einfließen. D.h. die Auswertung wird tägl. gemacht und die Länge ist definitiv variabel.

Wie bekomme ich Excel dazu das er automatisch erkennt "Ab Spalte A und Zeile 11 beginnt die Tabelle" und endet bei Spalte A und Zeile 999.

Derzeit ist die Aufzeichnung so verlaufen:

    Sub konvertiere_Abl_als_Tabelle()
'
' konvertiere_Abl_als_Tabelle Makro
'

'
    Sheets("Abl. Schleifpuffer").Select
    Range("A11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$11:$N$853"), , xlYes).Name = _
        "Abl.Schleifpuffer"
    Range("Abl.Schleifpuffer[#All]").Select
End Sub

Für eure Unterstützung wäre ich sehr dankbar.

Hätte gerne auf meinem "Blatt1" eine Auflistung aller Blätternamen der Exceldatei. Die Namen sollen untereinander ab Zelle D3 von "Blatt1" stehen. Zusätzlich soll in der nächsten Spalte E jeweils ein Zellenwert (Datum) von den Blättern stehen. Der Datumswert der Blätter steht in Zelle E9. Sprich am Ende soll mir das Makro eine Tabelle liefern in der Form:

Tabellenname Datum

Blatt 2 04.05.12

Blatt 3 02.02.10

... ....

Bin leider noch ein Anfänger bei VBA und hab dieses noch nicht Umsetzen können. Für mögliche Anregungen und Lösungen wäre ich sehr dankbar! Die Blätteranzahl variiert weshalb ein Makro von Nöten ist.

Z.B ich will ALT GR drücken und dann drückt mein programmiertes Programm die Tasten 331 !

Hallo liebes Gute Frage Forum,

ich bin ein blutiger Anfänger im Programmieren und möchte mich trotzdem an eine, wie ich finde, nicht ganz so leicht Aufgabe wagen.

Ich hoffe es erbarmt sich jemand und hilft mir weiter.

Meine Aufgabe:

Ich habe eine ExcelDatenbank die mehrere Einträge für mehrere Kunden verwaltet. ( Name, Anrede, Straße usw. )

Außerdem habe ich ein Word Dokument erstellt in das ich die Word Textmarken eingefügt habe ( Ebenfalls so benannt Name, Straße, Anrede usw. )

Nun möchte ich in Excel eine Zeile anklicken und anschließend das Makro ausführen. ( Das Makro soll dann nur für die Ausgewählte Zeile ausgeführt werden )

Die Vorlage soll aber nicht überschrieben werden, es soll ein neues Word Dokument erstellt werden, in dem die Felder dann ausgefüllt sind ( Am besten mit anderem Speicherpfad den ich dann auch direkt im Makro eingeben kann. )

Natürlich habe ich es auch schon selber versucht, allerding haben mir die Codeschnipsel die ich aus dem Internet geholt habe nicht ganz geholfen.

Hier mein Code: http://paste2.org/wFtw5UId

Mein Problem ist es nun, dass nur das letzte Textfeld wo ich die Referenz auf "Hallo" gesetzt habe befüllt werde, die anderen jedoch nicht obwohl excel keine fehlermeldung ausspuckt..

Außerdem hätte ichs gerne so wie oben beschrieben, dass er nur die Vorlage mit den Textmarken öffnet aber nicht überschreibt sondern ein neues Dokument mit den ausgefüllten Textmarken erstellt. (Pfad soll im Makro bestimmt werden)

Ich hoffe sehr das mir jmd. weiter helfen kann

Einen wunschönen Tag noch :)

Kann man die G-Tasten der Logitech G910 nach seinen Vorstellungen programmieren oder geht das nur mit vorgeschlagenen Sachen, die vorgegeben werden?

Ich möchte ein Formular erstellen, wenn dieses dann vom Benutzer ausgefüllt ist soll er nur noch an Mail anhängen drücken können und dann geht das Mail auf und man kann noch etwas anhängen z.B. Bilder oder so. Hat jemand eine Idee

Also eine Combobox bei mir wird unter gewissen bedingungen mit unterschiedlichen Items gefüllt.

Nun soll eine MSGbox kommen wenn ein gewisses Item Vorhanden ist, meine Ansätze waren ganz unterschiedlich aber alle ohne Ergebnis

If combobox9.object(range("J2") then ...

Wichtig ist das es in der Combobox nur vorhanden sein soll und nicht unbedingt ausgewählt

Vielen Dank für die Hilfe

Hallo,

ich suche ein makro programm womit ich alles 1:1 aufnehmen kann was ich machen und dabei ist es besonders wichtig, dass wenn ich eine taste z.b. W gedrückt halte er nicht wwwwwwwwwwwwwwwwwww aufnimmt sondern auch sozusagen simuliert die taste gedrückt zu halten. Danek im voraus

Ich brauche einen VBA code mitdem man aufgefordert wird einen Text einzugeben (Msg-Box) welche von Jan-Dec auswählbare diskrete Werte erlaubt und diese werte dann in einer Spalte B sucht (darin steht dann z.B. 10-OCT-2015) -> ich will dann OCT eingeben können und für alle Werte in Spalte B, die OCT enthalten, sollen dann die Spalten A,C,D,E ausgegeben werden bzw. sthen bleien und die restlichen Zeilen (die kein OCT in Spalte B enthalten), sollen gelöscht bzw. ausgeblendet werden.

Ich möchte eine vorhandene Aktualisierungsabfrage per Klick oder Ereignis ausführen, scheitere aber leider an der Umsetzung. Hat jemand einen Tipp für mich? Danke für die Hilfe!

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe

Hallo ihr Lieben, ich bräuchte Hilfe bei Excel Makros. Also, auf dem Bild erkennt ihr ein Diagramm, welches ich so mit Excel normal erstellt habe. Ich möchte jetzt, dass die Beschriftung links von der Y-Achse rechtsbündig und nicht zentriert ist. Also praktisch an der Achse direkt anschließt. Es scheint so nicht zu funktionieren. Ich habe mich schon ein wenig mit Excel Makros auseinander gesetzt, da es damit angeblich möglich sein soll, aber ich kriege diese eine Einstellung einfach nicht zum laufen!

Kann mir da bitte jemand helfen?

Hallo zusammen, ich fasse mich kurz: Ich kann bei den Hotkeys in TS3 nicht meine Makrotasten der Tastatur (Razer Blackwidow Chroma) nicht auswähen für eine Aktion. Weiß einer was ich da machen kann? Danke für eure Hilfe im Vorraus! LG Fabi :)

Guten Tag allerseits.

Wir haben auf der Arbeit 4 Arbeitsbereiche. Alle reichen abends einen Abschluss ein.

Wir haben dafür jeweils 4 excel Dateien mit jeweils 52 Tabellen (für jede kW 1)

Jetzt möchte ich gerne alle Dateien in wirbt haben.

Gibt es eine möglichkeit, mehrere Reiter mit unterkategorien zu erstellen?

Also man wählt Tabelle "Halle 1" aus und unten erscheinen dann 52 reiter. Ändert man auf "Halle 2" ändern sich die Reiter auf die 52 Tabelle von Halle 2 usw.

Gibt es eine Funktion oder eine alternative? Han überlegt den Bildrand oben zu fixieren und 52 knöpfe zu machen. Die zu bestimmten Bereichen springen. Also 52 Tabelle in einem Blatt und das Programm springt....

Lg Nifty

Ich soll für einen Bekannten in der Feuerwehr ein Makro zu einer Excel Liste schreiben. Konkret: - Wenn in Spalte B ein "A" für Atemschutz steht, soll die Zeile rot hinterlegt werden. Das Makro dazu habe ich auch schon geschrieben. Das Problem: Ich müsste dieses Makro jetzt für jede Zeile neu kopieren und abändern. Gibt es eine Möglichkeit das Makro für jede Zeile zu wiederholen?

Tabelle und Makro anbei.

Ich muss täglich viele Male eine Text aus Word, aus einem Browser oder aus einer anderen Applikation in eine Excel-Tabelle einfügen.
Das mache ich mit Ctrl-C und Ctrl.V.
Nach dem Einfügen wird mir das nachstehende Bild angezeigt.
Das heißt: der Text wird erst einmal samt vorheriger Formatierung übernommen.
Das ist aber ärgerlich, weil ich bei sämtlichen Einfügungen nur den Text übernehmen will.
Die Formatierung ist in der Tabelle vorgegeben.
Wie kann ich nun die beiden Einfüge-Optionen vertauschen, so dass immer An Zielformatierung anpassen Standard ist und nicht Ursprüngliche Formatierung anpassen?

Ich benutze Macro in BO3 mit 50 klickt/sec und wollte mal wissen ob man dafür gebannt werden kann ?

immer wenn ich die G-Tasten benutze werden die F-Tasten ausgeführt. Kann man das irgendwie ändern?

Hallo, ich habe eine Excel Datei mit einem Button, welches dieses Fenster aufzeigt wenn ich es anklicke. nun möchte ich unter dem "FMEA Notfallplan" noch weitere bedingungen einfügen wie z.B. "FMEA Test"

wie gehe ich da vor?

Hallo,

ich möchte eine Exceltabelle für Artikel herstellen. Die Daten, die ich einfügen möchte, sind in Spaltenform gelistet ( von oben nach unten. Ich brauche die Daten jedoch in der Zeilenform. Um den Vorgang zu automatisieren habe ich ein Makro erstellt. Jedoch schreibt er mir die Daten immer in die gleiche Zeilen. Ich habe es leider, mit meinem Laienwissen, nicht hinbekommen eine "wenn, dann" Funktion einzufügen.

Meine Formel lautet folgendermaßen:

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E9:K9").Select
    ActiveSheet.Paste
    Range("D23:D29").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Bei "Range("E9:K9").Select" brauche ich eine Funktion, die wenn der Wert zwischen E9:K9 besetzt/beschrieben sein sollte es dann auf E10:K10 die Daten einfügt.

Ich würde mich sehr freuen, wenn mir jemand mit meinem Problemchen behilflich sein könnte.

Vielen Dank

Hallo Excel-Helden,

wieder mal komme ich mit etwas vermeindlich einfachen nicht zurecht. Ich habe einen Wochenspeiseplan erstellt, beidem die Zutaten der Ausgewählten Gerichte in das Tabellenblatt "Einkaufszettel" übertragen werden sollen. Das Tabellenblatt "Frühstück" beinhaltet die Liste des Dropdowns sowie die Zutaten für die Einkaufsliste.

Ihr habt doch sicherliche eine Idee oder? :D

Hallo, ich möchten, wenn z.B in Zelle D4 eins steht das die Zeile also A4-D4 x mal kopiert werden und dann untereinander eingefügt werden. Ich habe das mit einer Formel versucht, habe aber keine Lösung gefunden. Ich hoffe jemand kann mir helfen.

P.S. (Copy und Paste geht nicht, da es sehr viele Zeilen gibt zum Kopieren)

 Danke im voraus.

hallo nochmal,

ich möchte gerne dass ich einen bestimmten Tabellenbereich aus Excel in einer Email versenden kann (nicht als Anhang, sondern im Textfeld, und nicht als Screenshot). das klappt bisher auch gut bei mir. jedoch ist da auch ein Logo mit drin, dass ich nicht anzeigen lassen kann (ein eingefügtes Bild). was muss ich da ändern?

mein makro sieht jetzt teilweise so aus:

Bodyteil der EMail:

.HTMLBody = fncRangeToHtml("E-Mail", "F13:O37")

und die funktion dazu:

Private Function fncRangeToHtml(strWorksheetname As String, _ strRangeaddress As String) As String Dim objFilesytem As Object, objTextstream As Object Dim strFilename As String strFilename = Environ$("temp") & "/" & _ Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ActiveWorkbook.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=strFilename, _ Sheet:=strWorksheetname, _ Source:=strRangeaddress, _ HtmlType:=xlHtmlStatic).Publish True Set objFilesytem = CreateObject("Scripting.FileSystemObject") Set objTextstream = objFilesytem.GetFile(strFilename). _ OpenAsTextStream(1, -2) fncRangeToHtml = objTextstream.ReadAll objTextstream.Close Set objTextstream = Nothing Set objFilesytem = Nothing Kill strFilename End Function

es liegt bestimmt an dem htmlbody, aber ich habe keine bessere lösung gefunden mit der es bisher gklappt hat

Hallo,

Ausgangssituation: ich habe eine Excel-Tabelle mit verschiedenen Daten von Personen, unteranderem auch in mehreren Spalten Email-Adressen.

Ich möchte über eine Schaltfläche, dass sich automatisch ein Nachricht versenden Fenster von Outlook öffnet mit allen Email Adressen aus der Excel-Tabelle. Zuvor müssten jedoch Duplikate entfernt werden

ist das möglich? und wenn ja wie?

Hallo zusammen

Kann man mittels VBA im Word ein Bild an einer bestimmter Position einfügen? Also nicht dort wo der Cursor sich befindet?

Ich möchte nämlich ein Bild am Rand des Blattes einfügen, wo man den Cursor nicht hinstellen kann.

Ich weiss es würde mit Textfeldern gehen, aber dann müsste man ca. 1500 Vorlagen anpassen.

Besten Dank für eure Hilfe

Ist es möglich, dass ich in Excel z.B. in Zelle A1 eine Zahl eingebe, dann in Zelle B1 die aktuelle Uhrzeit erscheint und beim zweiten eingeben der selben Zahl in einer ganz anderen Zelle (z.B. A38), dies automatisch erkannt wird und in C1 wieder die aktuelle Uhrzeit erscheint. Es geht um Einfahrt- und Ausfahrtszeiten... Erst wenn beim dritten Mal die selbe Zahl eingegeben wird, soll in einer neuen Zeile, das wieder mit der Einfahrtzeit begonnen werden.

Ich habe eine Ferienliste mit diversen Absenz-Möglichkeiten, welche mit einer Farbe hinterlegt sind.

Per Makro möchte ich es einrichten, dass, wenn ich in der Arbeitsmappe die entsprechenden Tage auswähle und dann auf die Makro-Schaltfläche klicke, dass die entsprechende Zelle in der definierten Farbe erscheint.

Nur bin ich wohl zu doof, das Makro zu schreiben... Ich schaff es nicht...

Weiss jemand Rat wie ich das anstelle (den Makro-Text in den Visual Basics)

Danke euch! :-)

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

Ich habe einen Spielberichtsbogen für ein Tischtennispunktspiel. Hier sind schon einige Formeln vorhanden, die mir das rechnen des Ergebnisses erleichtern. Am Ende des Spiels muss im Spielbericht auch das Spielende anhand der Uhrzeit eingetragen werden. Ich würde hier nun gerne eine eine Routine einbauen. Heißt, wenn eine der beiden Mannschaften den 7. Punkt geholt hat (den Siegpunkt), bzw. das Ergebnis eingetragen worden ist, soll in der Zelle, wo die Uhrzeit eingetragen wird, die aktuelle Uhrzeit erscheinen. Die soll auch nicht mehr veränderbar sein. Kann man das? Oder geht das überhaupt? Warum soll das automatisch passieren? Leider vergessen meine Mannschaftsführer der einzelnen Mannschaften des öfteren das Spielende einzutragen.

Hallo Leute,

Ich weiß das die Frage sehr schwierig ist und im Internet steht auch massig was, aber vielleicht gibt es hier ein paar Profis die mir konkrete Beispiele nennen können.

Ich möchte gerne mit der Fotografie anfangen und Makroaufnahmen von Insekten, Keimlinge, Pflanzen etc. machen, auch bewegte Bilder wie von Vögel im Flug oder eine fliegende Libelle. Zeitraffer Aufnahmen finde ich auch klasse.

Nun hat mir ne bekannte die Nikon D7100 empfohlen. Wenn ich mich im Internet so schlau mache dann hab ich am Ende 7 Favoriten und bin verzweifelt. Die eine rauscht dann auch mehr als die andere, dafür ist der  Live autofokus besser als bei der anderen.

Mich würde noch eine Nikon D300s oder Canon EOS 600D interessieren.

Wäre echt nett wenn ihr mir helfen könntet. Unten könnt ihr mal Beispiele sehen was ich meine.

Hallo Community,

ich habe eine große Tabelle, die eine bedingte Formatierung enthält. Ich würde diese jetzt gerne über einen Button ein bzw. aus schalten. Ich hab schon gelesen man könnte einfach den Button mit einer Zelle verknüpfen, und die bedingte Formatierung dann je nach Zellausgabe ein oder aus stellen. Allerdings weiß ich nicht wie man das anstellt :/

Ich hoffe mir kann geholfen werden,

Danke,

LG

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

Z.B. mit der Roccat Tyon oder Nyth. Also ist es möglich wenn ich die Taste einmal drücke die Taste einmal gedrückt wird und wenn ich sie länger länger gedrückt wird. Also wie eine Taste auf der Tastatur auf der Maus. Mit den Macros klappt das irgendwie nicht.

Ich möchte in Excel eine Liste mit Namen erstellen und diese mit gleichnamigen Ordnern verknüpfen. Natürlich kann ich die Namen in Excel eintragen und dann ganz normal Ordner erstellen und sie dann mit einem Hyperlink verknüpfen,, aber das müsste duch eine Funktion doch schneller gehen (weil ich das für über 100 Namen machen will...)

Ich bin schon so weit gekommen, dass ich das über dieses "VBA" mache, indem ich Alt+F11 drücke, dann gebe ich dort diesen Code ein:

Sub Ordner_anlegen () 'prüfen ob ein Ordner vorhanden ist und falls nicht 'fragen ob Ordner erstellt werden soll Dim Ord As String Dim Antwort As Integer

Ord = "F:\Kundenkartei\"

If Dir(Ord, vbDirectory) <> "" Then MsgBox "Ordner ist schon vorhanden" Else Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _ & vbNewLine _ & "soll der Ordner angelegt werden?!", vbYesNo) If Antwort = vbYes Then 'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung 'den neuen Ordner auf dem aktuelle LW. 'LW wurde durch "F:\Kundenkartei\" festgelegt MkDir Ord MsgBox "Ordner " & Ord & "angelegt" Else MsgBox "es wurden keine Änderungen vorgenommen" Exit Sub End If End If End Sub

Wenn ich nach "Ord = "F:\Kundenkartei\" z.B. Mustermann eingebe und dann F5 drücke, wird ein Unterordner auf dem USB Stick mit dem Namen Mustermann erstellt (wenn "Mustermann" noch nicht vorhanden ist), aber wie könnte ich diesen Code abändern, sodass ich beispielsweise nur noch "Mustermann" in die Zelle A25 eintragen muss und dann der gleichnamige Ordner, am Besten noch mit der Zelle A 25 verknüpft, in dem Ordner "Kundenkartei" eangelegt wird? Und wie kann ich das dann auf alle Zeilen in der Spalte A anwenden?

Vielen Dank für eure Antworten!

Ich habe mittlerweile schon hunderte Codes(oder Makros?), die ich in den Foren gefunden habe, ausprobiert, aber irgendwie mache ich etwas falsch und ich bin langsam wirklich am verzweifeln :/

Hoffentlich könnt Ihr mir weiterhelfen :) Danke!!!