VBA – die besten Beiträge

Hi Leute,

ich stehe gerade etwas auf dem Schlauch.

Ich habe einen Bereich aus Excel als Bild in der Zwischenablage:

Range("D100:Z04").CopyPicture xlScreen, xlBitmap

Wie bekomme ich den jetzt in eine Email rein?

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
    .To = "test@test.com"
    .CC = ""
    .BCC = ""
    .Subject = "This is the Subject line"
    .HTMLBody = RangetoHTML(rng)
    .Display
  End With
  On Error GoTo 0

Hab es schon mit

-Body = SendKeys "^V" probiert aber das scheint nicht zu funktionieren.

In der Zwischenablage ist es. Wenn ich eine neue Mail öffne und Strg+V drücke wird es mir wie gewünscht eingefügt. Nur über VBA kriege ich das nicht hin.

Sorry fürs blöd anstellen und danke schon mal für eure Hilfe.

Chris

Hallo Zusammen ich habe ein Problem und irgendwie bin ich mittlerweile zu blind um dies zu lösen. Folgende Situation:
Ich habe eine Excel Liste mit allen meinen Produktdaten Name, Artikelnummer, Stockbestand etc. Von meinem Großhändler bekomme ich täglich eine Stockliste in der aber nur die Artikelnummer und der aktuelle Stockbestand ist. Jetzt führe ich nicht alle PRodukte des Lieferanten sodass ich nicht alle Artikelnummern pflege. Daher kommt ein einfaches Copy an Paste nicht in Frage.
Wie löse ich dieses Problem? Im Grunde brauche ich eine Formel die folgendes besagt: Finde in Liste 2 Zeile 1 den identischen Wert aus Liste 1 Zeile 1 (die identische ArtikelNummer) - Wenn du die identische Nummer gefunden hast. Kopiere den Stockbestand aus Liste 2 Zeile 2 in Liste 1 Zeile 2. Sodass der aktuelle Stockbestand zur richtigen Artikelnummer passt. Könnt ihr mir hier weiterhelfen? Ich finde langsam echt nicht mehr die richtige Formel. Hab schon soviel rumprobiert. Bin aber zu keinem richtigen Ergebnis gelangt. Vielen Dank an jeden der mir hier weiterhelfen kann.

Hallo zusammen,

wir stehen derzeit vor einer kleinen Umstrukturierung und sind uns nicht sicher in welcher Art und Weise wir es am Besten machen wollen.

Zur Situation. Aktuell haben wir viele Leute die für ein gemeinsames Projekt verschiedenste Dateien führen. Grundrisse, Excel-Daten, PDF´s und noch mehreres anderes. Leider wurde dies nie wirklich zusammengeführt, sondern man teilweise 4 verschiedene Bearbeitungsstände oder muss bei einer Änderung mehrere Dateien parallel bearbeiten und ändern. (Bsp: MAC-Adresse ändert sich: muss man in mehreren Dateien nachbearbeiten, damit es aktuell bleibt.) Das ist das Hauptproblem derzeit, welches geändert werden soll. Der erste Gedanke ging in die Richtung Access Datenbank. Hier sehe ich verschiedene Problematiken, bzw. habe verschiedene Fragen die vielleicht jemand Beantworten kann:

1. Es wäre notwendig verschiedene Ansichten/ Listen zu generieren: Bsp. alle Daten mit einem Bestimmten Atribut X sollen in einer Liste ausgegeben werden.
2. Ist es möglich einen Dateipfad zu verlinken?: Nach dem Motto ich hinterlege in einer Ordnerstruktur Grundrisse und kann mir diese in Access anzeigen lassen oder aufrufen lassen. Als Link zum Ordner zum Beispiel?
3. Ist es möglich (Stichpunkt Grafiken und allgemeine Übersichtlichkeit verschiedener Gewerke) eine grafische Abbildung einzubringen und diese mit Links zu einzelnen Unterdatenbanken zu versehen?

Soweit erstmal ein sehr grober Überblick zu unserer Thematik. Es sind sehr viele Daten die wir einpflegen würde und die auch ineinander Greifen.

Ich bin mir unsicher, ob Access wirklich die perfekte Lösung ist?

Habt ihr damit Erfahrungen und evtl. andere Lösungsansätze? Oder würdet ihr doch Access empfehlen, weil ich einige Funktionen vielleicht nicht kenne?

Vielen Dank und liebe Grüße

Williwasi

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

Hallo

Im Anhang sind die beiden Tabellen zu sehen. Der gelbe Inhalt

soll in die Lücken unter das jeweilige stichwort in der 2. Tabelle gelangen.

Hat Jemand eine Idee, wie das geht, ob makro oder Befehl ist egal.

( Hab es per Makro und sverweis versucht und in beiden Fällen ging es leider nicht auf)

Außerdem wird es ca 32. Seiten der 1. Tabelle geben und somit auch 32 Zeilen in Tabelle 2.

Ich freue mich über jede Hilfe und Rückfrage.

Danke

Hallo, ich versuche für eine exeltabelle einen befehl zu erstellen der immer dann ausgeführt wird wenn Zelle 1 weniger als 25% von Zelle 2 Beträgt, wie kann ich das machen?

Hi Leute,

zuerst einmal muss ich loswerden, dass ich verzweifle, aber glaube dass irgendetwas winzig kleines der Fehler ist....

Situation:

Ich möchte einen Button erstellen, der nur eingeblendet wird, wenn Zellen X,Y,Z, usw. ausgefüllt sind.

Wenn er dann eingeblendet ist, soll er das Makro "Meldung_Absenden" ausführen.

STAND JETZT: Funktioniert alles, bis auf das Ausführen des Makros. Der Button wird richtig ausgeblendet, wenn die Felder nicht ausgefüllt sind. Sobald alle felder ausgefüllt sind, kommt der Fehler: 1004 "Anwendungs- oder Objektdefinierter Fehler"

Ich finde den Fehler im Code nicht. Der Button "CommandButton1" ist ein ActiveX Steuerelement.

Mein Testbutton "Meldung absenden" ist ein Formularsteuerelement. Damit lässt sich das Makro auslösen. Ich will aber nicht, dass eine Meldung abgegeben werden kann, wenn nicht alle Felder ausgefüllt werden.

Könnt ihr mir da helfen? Bei nachfragen stehe ich gerne zur Verfügung.

Hallo zusammen,

ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).

Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?

Ich nutze ein Office 365, falls dies relevant ist.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

Vielen lieben Dank vorab :)

Hallo,

ich habe gerade folgendes Problem:

Ich habe einen VBA-Makro gebastelt der bestimmte Daten aus einer Excel Tabelle in eine andere kopiert und formatiert. Soweit so gut. Nun habe ich aber einen String, welcher aus einem Datum und einer Uhrzeit besteht.

Ich benötige von diesem String jedoch nur das Datum und zwar im Format

YYYY-MM-DD.

Die Formatierung des Datums bekomme ich hin. Jedoch konnte ich Datum und Uhrzeit bisher noch nicht erfolgreich trennen.

Genutzt wird VBA.

Ich würde mich über Tipps und Anregungen Freuen :-)

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

 If bolOn Then

  Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~", "NaechsteZeileEinblenden"    'EINGABETASTE

 Else

  Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~"    'EINGABETASTE

 End If

End Sub

Private Sub NaechsteZeileEinblenden()

 With ActiveCell.Offset(1).EntireRow

  .Hidden = False

  .Cells(1).Activate

 End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 With Target.Cells(1)

  EnterOnOff .Column = 10 And .Row > 9

 End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

.Formula = "=VLOOKUP(A5,EKPO.Cells(A1),C1000,2,FALSCH)"

Kann mir jemand hier helfen?

Hallo, wie kann ich folgenden XLookup als Makro schreiben

=VLOOKUP(A4;EKPO!$A$1:$C$1000;2;FALSE)

A5 soll dabei eine ortlaufende Nummer sein (dafür habe ich bereits eine Variable Zaehler)

Das Ergebnis des Sverweis soll dann hierrein  

Ansicht.Cells(Zeilenindex, 3)

ich bekomme immer wieder verschiedenst Fehlermeldungen

Mein Code:

Ansicht.Cells(Zeilenindex, 3) = WorksheetFunction.VLookup(test, Worksheets("EKPO").Range("A:B"), 2, False)
  

Hallo, ChatGPT hilft mir grade mit den Makros, da ich mich aber nicht so gut mit Makros auskenne möchte ich alles verstehen. Einfache Sachen konnte ich bereits verstehen nun ist aber ein etwas längere und schwerere Code Stück ausgespuckt worden:

wb2.Sheets(1).Rows(i).Copy
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Die Funktion des Programms ist leider sehr kompliziert. Dieser Schnipsel sollte aber für das kopieren und einfügen zuständig sein. Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

Hallo,

Mein Problem. Ich soll ein Makro erstellen. Das Makro soll eine neue Excel Datei erstellen. Diese Datei soll nun mit Informationen aus 50 (Im Normalfall +150) Excel Dateien herausnehmen. Die 50 Excel Dateien haben alle den selben Format. D.H in Zelle A2 steht immer der Vor Name. In Zelle A3 der Nachname. In Zelle B4 immer derselbe.... und so weiter.

diese Informationen müsste ich nun auf EINE Excel Dokument/Tabelle packen sodass alle Informationen in einer Reihe / Row sind.

Das wäre Problem 1

_____________

Problem 2

In den selben 50 Dokumenten gibt es eine Liste mit Gegenständen. In Spalte 1 ist immer der Gegenstandname und und Spalte 2 ist ...

Diese Gegenstände also die Länge der Reihen nach unten Unterscheidet sich aber von Tabelle zu Tabelle (Ist also nicht fest)

Diese müssten auch in DIESELBE Tabelle wie oben hineingehen, sodass es ungefähr so aussieht:

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

Ich möchte in Spalte F das Datum einfügen, an dem ich in Spalte D etwas reingeschrieben habe, ich habe viel ausprobiert aber nichts geht so richtig, mit today kommt ein wert von 44978 und bei Now eine Kommazahl.

ich benutze Mac

Dankeschön :)

Hi,

Der erste Textteil ist in jeder Zelle unterschiedlich, die Struktur aber immer gleich. Wie kann ich Zellen so verändern?

Hallo zusammen.

Ich habe einen großen Bereich mit Texteinträgen. Diese sind Zeilenweise erfasst.

Ich muss jetzt überall, wo in der Zelle "Markus" steht, eine leere Zelle links von "Markus" einfügen (Siehe Bild)

Geht das per VBA?

Gruß

Ich habe eine Variable und will diese jetzt an einer ganz gewissen Stelle ausgeben. Ich dachte eine Testmarke wäre sinnvoll aber leider bekomme ich es nicht hin ich bitte um Hilfe.