Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Bedeutet du kannst nicht helfen?

Hi Leute,

ich habe ein etwas mysteriöses Phänomen. Ich habe eine Pivot-Tabelle welche ich in diesem Aufbau schon in mehreren Dateiversionen verwendet habe. Jetzt habe ich festgestellt, dass nach dem Einfügen neuer Daten in die Datenbasis und dem Aktualisieren der Pivot in dem einzigen Zeilen-Feld nicht alle Werte übernommen werden. Es sind keine Filter gesetzt o.ä. Es kann sein, dass früher mal ein Filter gesetzt war, das weiss ich nicht mehr genau.

Kennt jemand das Phänomen und weis wie man das beheben kann?

Danke euch!!

Hi zusammen,

folgende Situation. Ich habe eine Absage für eine Besprechung erhalten. Nun kann ich durch den Button "Aus Kalender entfernen", wie der Button schon beschreibt aus meinem Kalender entfernen. Wenn ich dies tue, wird aber auch die E-Mail der Absage gelöscht, das finde ich unschön zwecks Nachvollziehbarkeit. Lässt sich irgendwo einstellen, dass ich zwar den Kalendereintrag lösche, die E-Mail dazu aber erhalten bleibt?

Beste Grüße!!

Hi René,

hab es mal versucht aber wenn ich die XLSM nun öffne sagt Excel es bestünde ein Problem mit der Datei.

So sieht mein Verzeichnis-Aufbau in der XLSM aus.





Das steht in der .rels

<?xml version="1.0" encoding="utf-8"?><Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/pdf.png" Id="pdf" />
</Relationships>
Kannst Du erkennen wo das Problem liegt?

Hi Leute,

ist es möglich, dass ich mir eigene Ribbon-Icons erstelle und in meine *.xlsm einbinden?

Wesentlich Grund im Moment ist, dass ich kein Image finde welche zu einem PDF-Export passt. Oder gibt's da doch was? Ich nutze aktuell die Library "Office2010_RibbonIcons.xlsm"die leider nichts passende enthält.

Grüße euch!!

Ok verstanden. Aber wieso hebelt das die Schleife bzw. die ganze Prozedur aus, dass der Code wieder am Anfang der Sub startet?

Hi Leute,

ich bin am verzweifeln. Ich habe eine DoLoop-Schleife erstellt welche aber nach einigen Durchläufen immer an den Anfang der Sub springt und dadurch ein fehlerhaftes Verhalten auslöst, da dann die Variable i wieder auf den Anfangswert gesetzt wird.

Sub ZwischenzeilenEinfuegen()

    Dim i As Long
   
    i = 6
    With tblZahlungUebersicht
        Do Until .Cells(i, 1).Value = ""
            If .Cells(i, 1).Value <> .Cells(i + 1, 1).Value Then
                .Cells(i + 1, 1).EntireRow.Insert
            End If
            i = i + 1
        Loop
    End With
   
End Sub
Wo liegt der Fehler?

Danke euch und beste Grüße
Flo

Hi zusammen,

hab ein Problem mit der UsedRange.Count Methode. Wenn ich Inhalte löschen lasse und dann die UsedRange.Count abfrage, hat sie immer noch die alte Anzahl der Zeilen. Laut verschiedenen Foren soll man speichern aber das bringt keinen Erfolg.

Hat jemand noch ne andere Lösungsmöglichkeit?

Danke euch und beste Grüße!

Hi Leute,

jetzt zweifle ich schon fast an mir selbst. Die ganze Zeit hat mein Code funktioniert und seit gestern habe ich in dieser Zeile den Fehler Objekt- und With-Block Variable nicht festgelegt. Ich kann mich aber nicht daran erinner, dass ich an diesem Teil des Codes was geändert habe.

strGegenkonto = tblKontenzuordnung.Range("A:A").Find(strBuchungstext).Offset(0, 1).Value
Hier mal die ganze Prozedur:

Sub GegenkontenEinfuegen()
   
    Dim rngSpalte As Range, rngZelle As Range
    Dim strBuchungstext As String, strGegenkonto As String
   
    Set rngSpalte = tblBuchungen.Range("G2:G" & tblBuchungen.UsedRange.Rows.Count)
   
    For Each rngZelle In rngSpalte
        strBuchungstext = rngZelle.Offset(0, -1).Value
        strGegenkonto = tblKontenzuordnung.Range("A:A").Find(strBuchungstext).Offset(0, 1).Value
        rngZelle.Value = strGegenkonto
    Next rngZelle

End Sub
Kann mir jemand sagen woran das liegt?

Danke euch!!!

Ich weiß, das hört sich sarkastisch an:, entspricht aber fast immer den Tatsachen:
Wenn ich irgendwelchen Code aus dem Internet abschreibe ohne ihn zu verstehen oder nachvollziehen zu können, dann kommt so etwas dabei heraus.
Umsonst ist nun ab und zu auch umsonst (im doppelten Sinne). Wenn ich mein Problem in fachkundige Hände (eines Dienstleisters) gebe, dann hat der a) mehr Wissen als ich (zumindest meistens) und b) hat der auch die Verantwortung. Klar, der kostet etwas, aber wenn dir (oder deinem Chef) deine Arbeit nichts Wert ist ...

Btw: VBA ist ein US-Produkt und da ist das Komma nun einmal das Trennzeichen für CSV, wie auch schon der Name sagt. Also hat das etwas mit den localen Gegebenheiten zu tun.

Du liegst mit all deinen Annahmen falsch Den Code habe ich nicht aus dem Internet kopiert sondern aus einem VBA-Buch abgeschrieben, dort ist er auch erläutert und ich verstehe ihn bis darauf, dass er nicht wie gewünscht das Semikolon sondern ein Komma setzt.
Das Problem liegt bei mir sozusagen in fachkundigen Händen, da ich im Rahmen meiner Beratungstätigkeit seit einigen Jahren Tools in VBA für meine Kunden entwickle. Ich verdiene also Geld damit und gebe keines dafür aus. Hin und wieder treten jedoch Probleme auf, für die ich keine Erklärung finde oder einen Fehler "übersehe". Ich denke, das geht jedem so.
Was die eigentliche Problemlösung angeht habe ich vermutet, dass es an den Local-Einstellungen liegt, habe auch alles was ich in Excel dazu gefunden habe geprüft und es entspricht den "deutschen Standards".
Ich wäre dir daher zutiefst dankbar, wenn Du mir die Lösung verrätst

Hallo,

anbei ein Code, wie man beispielsweise sowas machen kann. Anpassen an Deine Bedürfnisse musst Du es aber schon selber.
Der Code, den Du, wie von Günther vermutet, wohl irgendwo kopiert hast, ist zu umständlich.

Habe es mittlerweile auf ähnliche Weise wie du gebaut und es funktioniert. Hab nur anstatt der "Bounds" mit der UsedRange gearbeitet.

Danke euch!!

Ok läuft nun durch danke!

Nun noch zwei Fragen:

• Wie kann ich den eingefügten Code auslagern, sodass ich das Prozedere an mehreren Stellen verwenden kann?
• Wie gehe ich mit einem zweidimensionalen Array um? Hier mal ein Beispiel.

Sub PartyCodesPruefen()

    Dim rngDaten As Range, rngSpalte As Range, rngZelle As Range
    Dim strPartyCode As String, strKontoNeu As String
    Dim strAuflistungPartyCodes As String
    Dim strAryFehlenderPartyCode(10000, 1) As String
    Dim intFehlenderPartyCodeZaehler As Integer
    Dim intLetzteZeile As Integer, i As Integer
   
    p_intFehlerPartyCodes = 0
   
    If tblBuchungen.UsedRange.Rows.Count = 1 Then   
        Exit Sub
    Else
        Set rngSpalte = tblBuchungen.Range("C2:C" & tblBuchungen.UsedRange.Rows.Count)
    End If
   
    For Each rngZelle In rngSpalte

        strPartyCode = rngZelle.Value
       
        On Error Resume Next
        If IsError(tblKreditorenzuordnung.Range("A:A").Find(strPartyCode).Offset(0, 1).Value) Then
            intFehlenderPartyCodeZaehler = intFehlenderPartyCodeZaehler + 1
            strAryFehlenderPartyCode(intFehlenderPartyCodeZaehler, 0) = rngZelle.Value
            strAryFehlenderPartyCode(intFehlenderPartyCodeZaehler, 1) = rngZelle.Offset(0, 1).Value
            On Error GoTo 0     'Wenn Fehler erzeugt wieder normal fortfahren
        End If
   
    Next rngZelle
   
    If intFehlenderPartyCodeZaehler > 0 Then

        For i = 1 To intFehlenderPartyCodeZaehler
            strAuflistungPartyCodes = strAuflistungPartyCodes & strAryFehlenderPartyCode(i, 0) & _
                vbTab & vbTab & strAryFehlenderPartyCode(i, 1) & vbCrLf
        Next i
       
        If MsgBox("Die folgenden " & intFehlenderPartyCodeZaehler & " Party Codes fehlen in der Kreditorenzuordnung:" & vbCrLf & vbCrLf & _
            strAuflistungPartyCodes & vbCrLf & _
            "Sollen die PartyCodes in die Kreditorenzuordnung eingetragen werden?", _
            vbExclamation + vbYesNo, p_cstrAppName & " " & p_cstrAppVersion) = vbYes Then
               
                intLetzteZeile = tblKreditorenzuordnung.UsedRange.Rows.Count
               
                For i = 1 To intFehlenderPartyCodeZaehler
                    tblKreditorenzuordnung.Cells(intLetzteZeile + i, 1).Value = strAryFehlenderPartyCode(i, 0)
                    tblKreditorenzuordnung.Cells(intLetzteZeile + i, 2).Value = strAryFehlenderPartyCode(i, 1)
                Next i
               
                MsgBox "Die PartyCodes wurden in der Kreditorenzuordnung eingetragen. Bitte erfassen Sie die zugehörigen Kreditoren.", vbInformation, p_cstrAppName & " " & p_cstrAppVersion
               
                tblKreditorenzuordnung.Activate
               
        End If
       
        p_intFehlerPartyCodes = 1
   
    Else
        MsgBox "Es sind alle Partycodes in der Kreditorenzuordnung erfasst.", vbInformation, p_cstrAppName & " " & p_cstrAppVersion
    End If
   
End Sub


Jetzt bringt er mir ein Fehler:

Next ohne For

auf dem ersten Next, in deinem Code also Zeile 39. Aber da ist das alles drin oder nicht?

Vielleicht noch etwas, ich denke das funktioniert mit dem Code bis jetzt noch nicht, aber konnte es aufgrund des benannten Fehler noch nicht testen. Die Schleife in den Zeile 45-47 fühlt ja den String für die MsgBox. Hier muss ich ja auch die Daten ohne Duplikate auswerten, kommen die dort auch an?

Das ist eine "riesen" Datei mit zig Modulen und ewig langem Code. Soll ich das wirklich alles hier hochladen? Alternativ habe ich hier nochmal die relevanten Stellen meines Codes beigefügt:

Option Explicit

Sub PruefenBuchungstexte()
   
    Dim rngDaten As Range, rngSpalte As Range, rngZelle As Range
    Dim strBuchungstext As String, strKontoNeu As String
    Dim strAuflistungBuchungstexte As String
    Dim strAryFehlenderBuchungstext(10000) As String
    Dim intFehlenderBuchungstextZaehler As Integer
    Dim intLetzteZeile As Integer, i As Integer
   
    Set rngSpalte = tblBuchungen.Range("F2:F" & tblBuchungen.UsedRange.Rows.Count)
   
    For Each rngZelle In rngSpalte
       
        strBuchungstext = rngZelle.Value
       
        On Error Resume Next
        If IsError(tblKontenzuordnung.Range("A:A").Find(strBuchungstext).Offset(0, 1).Value) Then
            intFehlenderBuchungstextZaehler = intFehlenderBuchungstextZaehler + 1
            strAryFehlenderBuchungstext(intFehlenderBuchungstextZaehler) = rngZelle.Value
            On Error GoTo 0
        End If
   
    Next rngZelle
   
    '#####################
    'Bis hier ist das Array mit den Duplikaten gefüllt. Diese sollen vor dem nächsten Schritt innerhalb des Arrays gelöscht werde
    '#####################
   
    If intFehlenderBuchungstextZaehler > 0 Then
       
        For i = 1 To intFehlenderBuchungstextZaehler
            strAuflistungBuchungstexte = strAuflistungBuchungstexte & strAryFehlenderBuchungstext(i) & vbCrLf
        Next i
       
        If MsgBox("Die folgenden " & intFehlenderBuchungstextZaehler & " Buchungstexte fehlen in der Kontenzuordnung:" & vbCrLf & vbCrLf & _
            strAuflistungBuchungstexte & vbCrLf & _
            "Sollen die Buchungstexte in die Kontenzuordnung eingetragen werden?", _
            vbExclamation + vbYesNo, p_cstrAppName & " " & p_cstrAppVersion) = vbYes Then
               
                intLetzteZeile = tblKontenzuordnung.UsedRange.Rows.Count
               
                For i = 1 To intFehlenderBuchungstextZaehler
                    tblKontenzuordnung.Cells(intLetzteZeile + i, 1).Value = strAryFehlenderBuchungstext(i)
                Next i
               
                MsgBox "Die Buchungstexte wurden in der Kontenzuordnung eingetragen. Bitte erfassen Sie die zugehörigen Buchungskonten.", vbInformation, p_cstrAppName & " " & p_cstrAppVersion
               
                tblKontenzuordnung.Activate
               
        End If
       
    End If
   
End Sub



Hey Leute,

mal ein paar Frage, mit der ich mich neben der Programmierung gerade auseinandersetzen muss. Etwas zum Hintergrund:

Ich bin seit kurzem Berater im Umfeld des betrieblichen Rechnungswesens und entwickle im Rahmen dieser Tätigkeit immer mal wieder Tools um Prozesse zu vereinfachen. In der Regel sind es Excel-Tools (mal mit und mal ohne VBA). Da diese Tools immer kundenindividuell entwickelt werden, rechne ich diese nach Stundensatz bzw. je nach Projekt auch mit Festpreis ab. Nun ergab sich bei einem Kunden von ihm die Frage, ob er denn den Quellcode bekäme. Dadurch haben sich für mich noch ein paar weitere Fragen ergeben:

Gibt man den Quellcode an den Kunden wenn es sich um individuell entwickelte Tools handelt?
Was ist, wenn der Kunden die Tools verändern oder weiterentwickeln möchte (nicht durch mich sondern selbst oder jemand anderes). Also Anpassungen und Erweiterungen in Formeln und Quellcode.
Was ist wenn der Kunden das Tools an andere Unternehmen in seinem Umfeld weitergeben will? (z.B. im Konzern)
Ganz allgemein: Was sollte man ggf. noch alles mit seinem Kunden vereinbaren oder vertraglich regeln?
 
Das sind mal die grundsätzlichen Dinge. Was ist denn so eine üblich Verfahrensweise zu meinen o.g. Fragen bzw. was würdet ihr aufgrund eurer Erfahrung empfehlen?

Danke euch schon mal.

Grüße!!

Hi Leute,

was ist an dieser "einfachen" Codezeile falsch, dass ich einen LZF 91 bekomme? Die Bezeichnung des Tabellenblatts ist korrekt.

Tabelle = ThisWorkbook.Sheets("Lohnbuchungen")

Beste GRüße
Flo