Makro – die besten Beiträge

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

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,

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

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?

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