วีดีโอ

Danke, Reverse Charge kann ich schon. Es ist so, dass ich fast jeden Tag dazu lerne und eine neue Version stricke, um weitere Dinge wie optionale Felder usw. einzuarbeiten. Ist schon alles recht komplex, aber macht auch etwas Spaß.

@vba-kracherheld-office Perfekt!

Mit dem FilesystemObject, so wie ich das umgesetzt habe, sollte das klappen. Es kann gut sein, dass es das schon vor 21 Jahren gegeben hat.

ok, vielleicht mal vorher Outlook starten?

klar, kann ich: Private Sub ListView1_DblClick() Dim ListViewRow As MSComctlLib.ListItem ' Holen Sie sich das ausgewählte Element im ListView Set ListViewRow = Me.ListView1.SelectedItem ' Überprüfen, ob ein Element im ListView ausgewählt wurde If ListViewRow Is Nothing Then MsgBox "Bitte wählen Sie eine Zeile im ListView aus.", vbExclamation Exit Sub End If ' Schreibe den Wert der ersten Spalte in die TextBox Me.TextBox1.Value = ListViewRow.Text End Sub

Die .NET-Framework-Laufzeitumgebung ist nicht installiert oder beschädigt Die System.Collections.ArrayList-Klasse ist Teil der .NET-Laufzeitumgebung (CLR). Wenn diese nicht installiert ist oder beschädigt wurde, kann der Fehler auftreten. Lösung: Installiere oder repariere die .NET-Framework-Installation (z. B. .NET Framework 4.7 oder höher). 2. Nicht unterstütztes Betriebssystem Die .NET-Laufzeit ist auf neueren Betriebssystemen wie Windows 10 und höher standardmäßig vorhanden. Auf älteren Systemen wie Windows XP oder Vista kann es sein, dass die entsprechende .NET-Version fehlt. Lösung: Stelle sicher, dass das Betriebssystem die .NET-Framework-Klasse unterstützt. Falls das Betriebssystem veraltet ist, könnte ein Update erforderlich sein.

Sie haben Post.

Hi, so: Sub BedingtesFormatMitFormelMehrereTabellen() ' Dieses Makro wendet bedingte Formatierungen auf den Bereich B2:Cn '(wobei n die letzte Zeile in Spalte A ist) ' basierend auf der Formel $A2>=10 an. Wenn der Wert in Spalte A größer 'oder gleich 10 ist, wird die Zelle fett formatiert ' und erhält einen grünen Hintergrund. Dim wksTab As Worksheet ' Definiert den Bereich, auf den die bedingten Formatierungen angewendet werden Dim rngBereich As Range ' Definiert eine einzelne Zelle im Bereich Dim rngZelle As Range ' Definiert die letzte Zeile in Spalte A Dim lngZeileMax As Long For Each wksTab In Worksheets Select Case wksTab.Name Case "Tabelle1", "Tabelle2" ' Festlegen des Arbeitsblatts (ändern Sie "Tabelle1" entsprechend) With wksTab ' Bestimmen der letzten Zeile in Spalte A lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row ' Festlegen des Bereichs, auf den die bedingten Formatierungen angewendet werden Set rngBereich = .Range("B2:C" & lngZeileMax) ' Löschen aller vorhandenen bedingten Formatierungen im Bereich rngBereich.FormatConditions.Delete ' Schleife durch jede Spalte im Bereich For Each rngZelle In rngBereich.Columns ' Hinzufügen einer neuen bedingten Formatierung basierend auf der Formel $A2>=10 rngZelle.FormatConditions.Add Type:=xlExpression, Formula1:="=$A2>=10" ' Festlegen der Formatierungsoptionen für die bedingte Formatierung rngZelle.FormatConditions(1).Font.Bold = True ' Fettschrift rngZelle.FormatConditions(1).Interior.Color = vbGreen ' Grüner Hintergrund Next rngZelle End With End Select Next wksTab End Sub VG Bernd

@@vba-kracherheld-office danke für die schnelle und sehr gute Antwort. Es läuft aber nur bedingt. Da in den Zellen die für die Formatierung überprüft werden bei mir Formeln drin stehen, markiert er mir alle, lösche ich die Formeln funktioniert es. Soweit alles gut habe aber vor Freude, anscheinend die richtige Lösung gefunden zu haben, gar nicht festgestellt das ich das ja soweit bereits gelöst hatte. trotzdem war es nicht verkehrt so VBA (Makros) mal ausprobiert zu haben. Bei mir geht es darum: in den Zellen wo die Bedingung für die Formatierung erfühlt werden soll kommt über eine Wenn Formel (die steht ja in der jeweiligen Zelle bei ihren Beispiel A2 und weitere in Spalte A). durch eine Suchabfrage. Wenn die Suche erfolgreich war soll in die jeweilige Zelle der Spalte A, bei mir ein X eingetragen werden und nach Löschen oder erneuter Suche aber das X und somit auch die Bedingte Formatierung bestehen bleiben. Hoffe einigermaßen verständlich erklärt. Danke falls sie mir noch weiter helfen können. LG UG

@@Uga1177 hi, ich kann es mir gerne einmal anschauen, wenn du mir die Mappe senden magst. b.held@held-office.de

ja, das ist auch eine gute Idee!

Danke Dir

b.held@held-office.de

Wäre mal interessant.. kannst mir ja eine Demodatei mailen.

@@vba-kracherheld-office das mach ich sehr gerne, hast mir ne E-Mail-Adresse? Habe es auch mit Remove Duplikate versucht, vergebens. Hab es über eine If Abfrage gelöst. Allerdings bei mehreren Ergebnissen bis zu 30000 wird das lange gehen :D

@@vba-kracherheld-office vielen Dank für die schnelle Rückmeldung. Ich habe es mit der Remove Duplikate Möglichkeit versucht, leider ohne Erfolg. Habe es mit einer If Abfrage gelöst allerdings bei 30000 Daten werden es zu viele abfragen. Ich werde die Datei schicken. Haben sie eine E-Mail Liebe Grüße

@@marcobosch9219 ja. b.held@held-office.de

Danke. Die steht weiter unten in meiner Rechnung. Da ich seit September in Polen ansässig bin, muss die Ust-ID mit auf der "normalen" Rechnung drauf. In der e-Rechnung taucht die nicht auf, aber Danke. War einen kurzen Augenblick etwas unsicher...

@@vba-kracherheld-office Ich würde das nochmal recherchieren, dass die USt-ID des leistenden Unternehmers NICHT in die eRechnung aufgenommen werden muss. Nach meinem Kenntnisstand muss sie auch in die eRechnung aufgenommen werden, weil die Rechnungangaben gem. § 14 zwingend auch für eRechnungen gelten. Es würde auch dem langfristigen Gedanken widersprechen, dass Rechnungen nur noch elektronisch und über eine zentrale Plattform ausgetauscht werden sollen. Das soll insbesondere die Ahndung der Steuerkriminalität unterstützen. Die USt-ID ist in diesem Zusammenhang auch ein internationales Kennzeichen, womit auch gleiche Firmennamen in zwei Ländern anhand der ID unterschieden werden können.

ja, ich weiß. Ich bin auch gerade an einem Import-Tool dran. Lesen und Schreiben muss dann sein. Danke!

Was denkt Ihr über einen Reader? Ich stelle mir das so vor, dass alle x-Rechnungen in einem Ordner gelesen und als jeweils eine Zeile in Excel eingelesen werden. Ich weiß aktuell dann halt nicht so recht, wie ich das mit der Beziehung n-Rechnungspositionen hinbekommen soll. Möglicherweise würde es ja auch reichen, die wichtigsten Bestandteile auszulesen. Wie seht Ihr das?

Die Frage ist, was der Zweck des Importes ist. Wenn es darum geht, eine Liste der vorzunehmenden Überweisungen zu haben, dann ist der Excel Ansatz sicher OK. Wenn ich das aber weiter auswerten möchte und es ggf. Mit Bestellungen und Warenbeständen verknüpfen möchte, dann bin ich bei Access.

@@michaelkramer406 Danke Michael für Deine Einschätzung!

das ist eine richtig gute Idee! Danke. Ich werde das umsetzen!

ich habe eine Textbox unterhalb des Rechnungsformulars eingebaut und da dann per VBA das XML eingelesen und von beidem eine PDF erstellt (oben das Menschenlesbare, unten dann die xlm). Sieht soweit ganz gut aus. Ich werde das im nächsten Video mal vorstellen.

Ich denke, langfristig wird es nur noch die XRechnung geben - ZUGFeRD wird es wohl nur für eine Übergangszeit gelten, bis wir uns an die Datensätze gewöhnt haben.

Langfristig liegst du vermutlich richtig, momentan sind es hauptsächlich Kommunen die auf ZugFERF setzten

Hi Felix, ich denke da eher an Deine zuerst beschriebene Vorgehensweise vg bernd

Ich habe Dir die Beispieldatei hier hochgeladen. Bei mir tickt das.: drive.google.com/drive/folders/19S4gwnS87pxpKSzQf4PL_55PejaMWpAG?usp=drive_link

so: Sub ArrayListFuellenHorizontal() Dim ArrLst As Object Dim lngspalte As Long Dim lngSpalteMax As Long Set ArrLst = CreateObject("System.Collections.ArrayList") With Tabelle1 .Rows(3).Clear lngSpalteMax = .UsedRange.Columns.Count 'ArrayList füllen For lngspalte = 2 To lngSpalteMax ArrLst.Add .Cells(1, lngspalte).Value Next lngspalte ArrLst.Sort 'Aufsteigend sortieren 'oder 'ArrLst.Reverse 'Absteigend sortieren 'ArrayList in Tabelle ausgeben .Range(.Cells(3, 1), .Cells(3, lngSpalteMax)).Value = ArrLst.toArray End With End Sub Kommt gleich in meinen VBA-Tanker rein!

@@vba-kracherheld-office Vielen Dank! Du hast mir wirklich sehr damit geholfen!

DEr Code-Namen Deiner Tabelle muss stimmen. Das ist eine Zeile drüber. Bei mir steht hier "tbl_Daten". Kannst Du ersetzen durch activeSheet.

@@vba-kracherheld-office jetzt bleibt er in der nächsten zeile mit Nr. 1004 stehen

@@michael-hf1dq schick mir eine e-Mail und ich gebe Dir das Original. b.held@held-office.de

@@vba-kracherheld-office Danke für die Hilfe Funktionier die Zahl "1" und der Buchstape "l" sind in der Schriftart nicht zu unterscheiden. Gibt es die beispiele auch direckt zum downloaden?

@@michael-hf1dq drive.google.com/drive/folders/1Y9hv4u8k5v9g8WpXxnTcp9wrEgMKsxen?usp=drive_link ausgewählte nicht alle, je nach dem, ob die mal angefordert wurden

@@andreasvogel7514 ich denke schon

Danke Klaus

ja, gern: #If VBA7 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As Long #Else Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long #End If 'Global deklariert Dim strZiel As String Private Sub UserForm_Initialize() ' Dieses Makro lädt eine Datei aus dem Internet herunter und speichert sie lokal auf Ihrem Computer. ' Deklaration der Variablen Dim strUrl As String Dim lngErg As Long Dim ctrl As Control ' URL der herunterzuladenden Datei strUrl = "www.held-office.de/Downloads/Perlfee2023.jpg" strZiel = ThisWorkbook.Path & "\Perfee2023.jpg" ' Aufruf der API-Funktion URLDownloadToFile, um die Datei herunterzuladen lngErg = URLDownloadToFile(0, strUrl, strZiel, 0, 0) If lngErg = 0 Then Me.Image1.BorderStyle = fmBorderStyleNone Me.Image1.Picture = LoadPicture(strZiel) Me.Image1.PictureSizeMode = fmPictureSizeModeStretch Me.TXT_URL.Value = strUrl Me.Caption = "" Me.BackColor = RGB(240, 240, 240) End If For Each ctrl In Me.Controls ' Je nach Typ des Steuerelements wird die Formatierung festgelegt Select Case TypeName(ctrl) Case "TextBox" ' TextBox-Steuerelemente werden mit grauer Schriftfarbe ' und einer Schriftgröße von 10 formatiert. ctrl.Font.Size = 10 ctrl.ForeColor = RGB(128, 128, 128) ctrl.Enabled = False Case "Label" ' Label-Steuerelemente werden mit grauem Hintergrund, ' grauer Schriftfarbe und einer Schriftgröße von 12 formatiert. ctrl.BackColor = RGB(240, 240, 240) ctrl.Font.Size = 10 ctrl.ForeColor = RGB(128, 128, 128) ctrl.TextAlign = fmTextAlignLeft Case "CommandButton" ' CommandButton (OK-Schaltfläche) wird mit grünem Hintergrund, ' weißer Schriftfarbe und einer Schriftgröße von 11 formatiert. ctrl.BackColor = RGB(0, 100, 0) ctrl.ForeColor = RGB(255, 255, 255) ctrl.Font.Size = 11 End Select Next ctrl End Sub Private Sub cmd_ok_Click() Dim shp As Shape Dim rngTarget As Range ' Zielbereich für das Bild in der Tabelle festlegen Set rngTarget = Tabelle1.Range("B6") ' Bild aus dem Image-Steuerelement kopieren und in die Tabelle einfügen Set shp = Tabelle1.Shapes.AddPicture _ (strZiel, msoFalse, msoCTrue, rngTarget.Left, rngTarget.Top, -1, -1) ' Größe des Bildes anpassen, um in die Zelle zu passen shp.LockAspectRatio = msoTrue shp.Width = rngTarget.Width shp.Height = rngTarget.Height End Sub Private Sub cmd_Cancel_Click() Unload Me End Sub

Hi Martin, probier mal: ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ ThisWorkbook.Path & "\Bestand.xlsx" & ";Extended Properties=Excel 8.0;"

@@vba-kracherheld-office Vielen Dank für die Prompte Antwort! Leider aber kommt immer noch der selbe Fehler...🤔

@@MartinFriedli-jh4dl ich habe Dir meine Version mal zugemailt. Die tickt bei mir

so: Sub ExcelBereichAlsEmailVesenden2() Dim rngBereich As Range Dim objDoc As Object Dim lngZ As Long ' Den umliegenden Bereich der Zelle A1 identifizieren Set rngBereich = Tabelle1.Range("A1").CurrentRegion ' Einen Verweis zu Outlook setzen und leere E-Mail erstellen With CreateObject("Outlook.Application").CreateItem(0) ' E-Mail anzeigen .Display ' Den eigentlichen Textinhalt der E-Mail definieren .Body = "Der eigentliche Text des E-Mails..." ' Einen Verweis zum Word-Editor herstellen Set objDoc = .GetInspector.WordEditor ' Bereich kopieren rngBereich.Copy ' Den Cursor an das Ende des Dokuments setzen objDoc.Range.End = objDoc.Range.End - 1 ' Einfügen des Bereichs objDoc.Range.Paste ' Einfügen des zusätzlichen Textes objDoc.Range.InsertAfter vbCrLf & "Zusätzlicher Text hier..." ' Hier den zusätzlichen Text einfügen ' Adressat und Titel der E-Mail festlegen .To = "info@held-office.de" .Subject = "Titel des E-Mails" ' Zwischenablage leeren Application.CutCopyMode = False ' E-Mail versenden .Send End With End Sub

Super, vielen Dank. Werde ich testen😊

​@@vba-kracherheld-office Funktioniert leider nicht bei mir. Der Inhalt der Nachricht und die Tabellenzeilen werden nicht angezeigt. Lediglich der letzte Satz "Zusätzlicher Text hier..." ist zu sehen.

@@sogehts433 das ist echt etwas verzwickt, aber so geht es bei mir: Sub EmailErstellen() Dim OutlookApp As Object Dim Mail As Object Dim RangeToSend As Range Dim EmailBody As String ' Start Outlook-Anwendung Set OutlookApp = CreateObject("Outlook.Application") Set Mail = OutlookApp.CreateItem(0) ' E-Mail-Eigenschaften setzen With Mail .To = "beispiel@email.com" .Subject = "Betreff der E-Mail" End With ' Einleitenden Text einfügen EmailBody = "Guten Tag," & vbCrLf & vbCrLf & _ "Hier sind die aktuellen Daten:" & vbCrLf & vbCrLf ' Bereich aus Excel-Tabelle einfügen Set RangeToSend = Sheets("Tabelle1").Range("A1:B10") ' Beispielbereich For Each cell In RangeToSend EmailBody = EmailBody & cell.Value & vbTab If cell.Column = RangeToSend.Columns.Count Then EmailBody = EmailBody & vbCrLf End If Next cell EmailBody = EmailBody & vbCrLf ' Abschließenden Text einfügen EmailBody = EmailBody & "Mit freundlichen Grüßen," & vbCrLf & "Max Mustermann" ' E-Mail senden With Mail .Body = EmailBody .Display ' Zum Anzeigen der E-Mail vor dem Senden '.Send ' Zum direkten Senden der E-Mail End With Set OutlookApp = Nothing Set Mail = Nothing End Sub

Hi, so z.B. Um die Größe der Bilder, die in das Arbeitsblatt eingefügt werden, zu ändern, müssen die Width und Height Parameter der Shapes.AddPicture Methode angepasst werden. Sub BilderEntfernen() Dim objShp As Shape With Tabelle2 For Each objShp In .Shapes If objShp.Type = 13 Then objShp.Delete End If Next objShp End With End Sub Sub BilderEinfuegen() Dim rngTreffer As Range Dim strBild As String Dim i As Integer Dim objShp As Shape Dim lngSpalte As Long Dim lngZeile As Long With Tabelle2 Call BilderEntfernen lngZeile = 4 lngSpalte = 1 For i = 0 To .ListBox1.ListCount - 1 If .ListBox1.Selected(i) = True Then Set rngTreffer = Tabelle1.Range("A:A").Find _ (what:=.ListBox1.List(i), lookat:=xlWhole) If Not rngTreffer Is Nothing Then strBild = ThisWorkbook.Path & "\" & _ rngTreffer.Offset(0, 1).Value & ".jpg" If Dir(strBild) <> "" Then ' Hier die Bildgröße anpassen Set objShp = Tabelle2.Shapes.AddPicture _ (Filename:=strBild, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoTrue, _ Left:=.Cells(lngZeile, lngSpalte).Left, _ Top:=.Cells(lngZeile, lngSpalte).Top, _ Width:=450, Height:=300) ' Anpassung der Bildgröße lngSpalte = lngSpalte + 6 If lngSpalte >= 12 Then lngZeile = lngZeile + 16 lngSpalte = 1 End If End If End If .ListBox1.Selected(i) = False End If Next i End With End Sub

hallo Nadir, magst Du mir Deine Datei mal mailen? Ich schaue es mir gerne na. Ist bestimmt nur eine Kleinigkeit. Mail an: b.Held@held-office.de

Hi Achim, so: Sub UnikateInDictionary() Dim vardat As Variant, ObjDict As Object, lngZeile As Long, lngZeileMax As Long Debug.Print "Start V.3: " & Now With Tabelle1 .Range("C:C").Clear lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row Set ObjDict = CreateObject("Scripting.Dictionary") vardat = Tabelle1.Range("A1:A" & lngZeileMax).Value2 For lngZeile = 1 To UBound(vardat, 1) If vardat(lngZeile, 1) <> "" Then ObjDict(vardat(lngZeile, 1)) = Empty End If Next lngZeile vardat = WorksheetFunction.Transpose(ObjDict.keys()) .Range("C1").Resize(UBound(vardat, 1)).Value = vardat .Range("C:C").Sort key1:=.Range("C1"), order1:=xlAscending, Header:=xlNo End With Debug.Print "Ende V.3: " & Now & vbLf End Sub VG Bernd

@@vba-kracherheld-office Danke, Bernd! Das hat gefluppt. Prima!

Menü "Ansicht" - "Neues Fenster," dann Fenster so hinziehen, wie Du es brauchst. Mit der Tastenkombination "Windows-Fenster" + Pfeil nach links oder rechts kannst Du auch die Fenster "automatisch" anordnen. Für mich ist das super wichtig, damit ich sehe, was auf den Tabellen passiert, wenn ich im Einzelschrittmodus mit der Taste F8 Zeile für Zeile durch das Makro durchgehe.

@@vba-kracherheld-office Dabei gehen alle anderen Fixierungen verloren....😒

sowas in der Art? Sub SpaltenAnzeigenAusblenden() Dim wksTab As Worksheet Dim VarSpalten As Variant Dim i As Integer ' Arbeitsblatt mit der Tabelle festlegen Set wksTab = Tabelle1 ' Array mit den Nummern der sichtbaren Spalten festlegen VarSpalten = Array(1, 2, 4, 6, 7, 8, 9, 12, 19, 20, 21, 22, 24, 25) wksTab.Columns.Hidden = True ' Sichtbare Spalten einblenden For i = LBound(VarSpalten) To UBound(VarSpalten) wksTab.Columns(VarSpalten(i)).Hidden = False Next i End Sub

Ja, das geht auch. Ich wollte eben dass beide Arrays gleich dimensioniert sind. Danke aber für Deine Anmerkung.

Hallo. Das ist glaube ich nur in der ersten halben Stunde so. Bitte probiere das in einer Stunde nocheinmal. Vg Bernd

applocation.Commandbars("cells').reset noch ein Sieb

Hi Kjeld, das klingt spannend. Kannst Du mir dazu einmal eine Demodatei zukommen lassen?

Hallo Bernd, gerne ! Ich würde diese dann auf deine an deine Firmeneigene Email schicken. Vg Kjeld

@@KjeldSeegert Du hast Post. Habe das ganz nett hinbekommen

Hi, also wenn Du vor dem Refresh die Ereignissteuerung lahm legst, dann wird nichts dokumentiert. Application.EnableEvents=False dann Dein Refresh und dann wieder einschalten. Application.EnableEvents=True

Da fällt mir keine ein. Ich arbeite mit Wind 64 Bit und Office 32 Bit. Das tickt