Hallo,

ich bin neu im Forum.

Gibt es eine Möglichkeit bei einem neuen Dokument den ersten Buchstaben  in Klein zu ändern.

Ich habe in der PC Tastatur F1 mit meiner E-Mail-Adresse belegt.
Auf meinem leeren Dokument erscheint der erste Buchstabe groß: Reinhard.wollnik@t-online.de

Mit freundlichen Grüßen

Reinhard Wollnik

Hallo Gemeinde!
Dies ist mein erster Beitrag hier im Forum, nun wende ich mich an Euch.
Ich habe ein Punkt XY Diagramm in dem eine Seitenansicht eines Bauteils (Maschinenbau) skizziert wird.
In der Skizze sind Marker auf der Mittellinie.
Sie lassen sich variabel auf der X Achse positionieren.
Die Anzehl der Marker ist auch variabel.
Jetzt sollen diese Marker mit der Kontur zusammen gruppiert werden.
Die Gruppe soll "Marker" genannt werden und Teil der Kontur sein.
Die Kontur soll auch "Kontur" genannt werden.
Die Marker sind zu und abschaltbar.
Die Marker selbst stehen in dem Modul: DrawingElements
Die Parameter für die X Positionen der Marker sind in der Tabelle Skizze in Zeile 38.
Ich verstehe nicht warum alles andere funktioniert in dem Button "Zeichnen",
aber ausgerechnet diese Marker in ein Modul integriert wurden.
Die Datei ist im Anhang.
Welche Abhilfe gibt es es?
Könnt Ihr mir weiterhelfen?
Vielen Dank im voraus.
Gruß
Frank

Angehängte Dateien

  Marker_Gruppen.xlsm (Größe: 87,31 KB / Downloads: 2)

Hallo zusammen,

die Services der Banken werden bei steigenden Gebühren immer schwächer und professionelle Tools sind für bestimmte Unternehmensgrößen einfach nicht erschwinglich.

Daher habe ich vor, die Firmenumsätze künftig monatlich / jährlich als csv-Datei aus dem Online-Banking herunterzuladen und mir dann ein eigenes "Dashboard" bzw. eine Datenbank für eine kleine "CashFlow-Analyse" zu bauen. Haber aber von Excel leider nur rudimentäre Kenntnisse :-) Könnte also ein hartes Stück Arbeit werden, aber ich bin interessiert und lernwillig.

Mir fehlen einfach die Begrifflichkeiten, nach denen ich suchen muss. Es gibt sicher einige nützliche youtube-Videos, aber ich wüsste nicht so recht, nach was ich suchen soll und bin deshalb auf Hilfe angewiesen.

Der Plan:

CSV-Datei liegt vor mit Umsätzen bspw. von 01.01.2022 bis 31.12.2023 - also für zwei Jahre. Enthalten sind die folgenden Spalten:  
Buchungstag
Name Zahlungsbeteiligter
IBAN Zahlungsbeteiligter
Buchungstext
Verwendungszweck
Betrag

Zuerst würde ich gerne für bestimmte Zahlungsbeteiligte / IBANs Kategorien vergeben. Bspw. für die Überkategorie "Ausgaben" (alles mit negativem Vorzeichen..) Unterteilung in "Lizenzgebühren", "Gehälter", "Finanzamt", "Sozialversicherung", etc.
Bei den "Einnahmen" (Überkategorie) wären es verschiedene Kunden, also bspw. "Kunde A", "Kunde B", etc.

Am Ende soll meine "Datenbank" mir bspw. über ein Kuchendiagramm zeigen, wie groß meine Ausgaben in Zeitraum X waren, unterteilt in die Unterkategorien.
Oder auch wie groß meine Einnahmen bspw. in Quartal 1 verteilt auf die Kunden waren.

Sowas gibt es bestimmt schon massig. Ich bräuchte nur eine "Bauanleitung" oder im Optimalfall eine Vorlage, die auf meiner o.g. CSV-Datei aufsetzt.

Ideen?

Danke im Voraus für eure Hilfe!

Hallo,

für meine Präsentationèn gibt es ca. 8 Themen, die vorgestellt werden können.
Jedes Thema at "x" Folien.

Für eine Vorstellung reichen zeitlich aber nur 1-2 Themen für ca. 1 Stunde Präsentation 8so gewollt).

Ich würde gerne alle Themen in einer Datei haben und eine Art Selektions-Seite/-Menü haben, auf dem ich die Themen der aktuellen Präsentation auswähle.

Idee: Ich komme zur Veranstaltung (Ehrenamt!), öffne die Datei, selektiere die heutigen Themen, starte und dann werden ur diese präsentiert.
Die anderen Themen/Folien weren ausgeblendet.

Wie kann man das am bestne lsöen? Kann das ein Makro?

gerne höre ich Eure Ideen dazu und bedanke mich.

Max

Ich habe da mal eine Frage zum übertragen des Formats in Excel. Ich habe hier im Blog einen Artikel gefunden, wie man das Format eines Textes auf einen anderen Text übertragen kann. Bei mir stellt sich nun ein Problem dar. Und zwar ist der Kasten bei mir deaktiviert. Weiß vielleicht jemand Bescheid, wie ich diesen wieder aktiviere?

Hallo,

ich arbeite mit Word 2021. Wo kann ich Daten zur jeweiligen Datei (z.B. Erstellungsdatum) eintragen?

Viele Grüße

Hallo User,

ich bin eifriger Nutzer von Instergram,
hier werden mir interresante Reel gezeigt um Word shortcuts
zu generieren, leider klappt das bei mir nicht.
Z.B 1f5c1 anschließend Alt X und es soll ein Dateiensymbol erscheinen.
Bei mir passiert garnichts, wenn ich diese Zahlenfolge und Alt X eingebe.
Was mache ich falsch.

Gruß
Michael

Hallo 
Ich benötige Hilfe 
Ich habe einen VBA Code für ICS import zu exel.
Meine ICS Datei ist aus einem Google Kalender.
Mein Problem ist die Zeit. Sie wird mir nur als 0:00:00
Angezeigt.

Was ist mein Fehler.

Sub ICS_Import()
    ' modifiziert nach: https://www.experts-exchange.com/questio...s-xls.html  
    ' This version require a reference to a "Microsoft ActiveX Data Objects"  
    
    Dim filename As String
    filename = Application.GetOpenFilename("Calendar Files (*.ics),*.ics")  
    If filename = "False" Then Exit Sub  
    
    Dim objStream, strData
    Dim r As Long, c As Long, lineCount As Long, line As String, dtStr As String, aStr As String, mlValue As String, dtArr() As String
    Dim colNames As Variant
    colNames = Array("DTSTART", "TIMESTART", "DTEND", "TIMEEND", "DTSTAMP", "UID", "CREATED", "DESCRIPTION", "RRULE", "LAST-MODIFIED", "LOCATION", "SEQUENCE", "STATUS", "SUMMARY", "TRANSP")  
    Dim EventStart As Boolean
    Set objStream = CreateObject("ADODB.Stream")  
    
    'objStream.Charset = "utf-8"  
    'objStream.Charset = "windows-1252" '"_autodetect_all" ?  
    objStream.Charset = "_autodetect_all"  
    objStream.Open
    objStream.Type = adTypeText
    objStream.LoadFromFile (filename)
    c = 0
    For c = 0 To 14
        Cells(1, c + 1).Value = colNames©
        Next c
    r = 2
    EventStart = False
    lineCount = 0
    line = objStream.ReadText(adReadLine)
    Do Until objStream.EOS
        If Left(line, 1) <> Chr(9) Then 'Corrected a cut/paste bug " " == chr(9)  
        aStr = Split(line, ":")(0)  
        End If
        If Left(line, 12) = "BEGIN:VEVENT" Then 'Die ersten Zeilen ("Header") bis zum ersten Ereignis werden ignoriert  
            EventStart = True
        End If
        If EventStart = True Then
            dtStr = Replace(line, aStr & ":", "")  
            Select Case True
                Case Left(line, 7) = "DTSTART"  
                    Cells(r, 1) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mms")  
                    'Spalte "TIMESTART"  
                    Cells(r, 2) = Cells(r, 1)
                Case Left(line, 5) = "DTEND"  
                    Cells(r, 3) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mms")  
                    'Spalte "TIMEEND"  
                    Cells(r, 4) = Cells(r, 3)
                Case Left(line, 7) = "DTSTAMP"  
                    Cells(r, 5) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mms")  
                Case Left(line, 3) = "UID"  
                    Cells(r, 6) = dtStr
                Case Left(line, 7) = "CREATED"  
                    Cells(r, 7) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mms")  
                Case Left(line, 11) = "DESCRIPTION"  
                    Cells(r, 8) = dtStr
                Case Left(line, 5) = "RRULE"  
                    Cells(r, 9) = dtStr
                Case Left(line, 13) = "LAST-MODIFIED"  
                    Cells(r, 10) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mms")  
                Case Left(line, 8) = "LOCATION"  
                    Cells(r, 11) = dtStr
                Case Left(line, 8) = "SEQUENCE"  
                    Cells(r, 12) = dtStr
                Case Left(line, 6) = "STATUS"  
                    Cells(r, 13) = dtStr
                Case Left(line, 7) = "SUMMARY"  
                    Cells(r, 14) = dtStr
                Case Left(line, 6) = "TRANSP"  
                    Cells(r, 15) = dtStr
                Case Left(line, 10) = "END:VEVENT"  
                    r = r + 1
            End Select
        Else
            lineCount = lineCount + 1
        End If 'EventStart  
        line = objStream.ReadText(adReadLine)
    Loop
    Cells(r + 2, 1) = lineCount & " Headerzeilen"  
    Columns(1).NumberFormat = "dd.mm.yyyy"  
    Columns(2).NumberFormat = "hh:mms"  
    Columns(3).NumberFormat = "dd.mm.yyyy"  
    Columns(4).NumberFormat = "hh:mms"  
    'eigentlich nicht notwendig:  
    Columns(5).NumberFormat = "yyyy-mm-dd hh:mms"  
    Columns(7).NumberFormat = "yyyy-mm-dd hh:mms"  
    Columns(10).NumberFormat = "yyyy-mm-dd hh:mms"  
    Dim Spalte As Range
    For Each Spalte In ActiveSheet.UsedRange.Columns
        Spalte.AutoFit
        Next Spalte
End Sub

Function ParseDateZ(dtStr As String)
    Dim dtArr() As String
    Dim dt As Date
    dtArr = Split(Replace(dtStr, "Z", ""), "T")  
    dt = DateSerial(Left(dtArr(0), 4), Mid(dtArr(0), 5, 2), Right(dtArr(0), 2))
    If UBound(dtArr) > 1 Then
        dt = dt + TimeSerial(Left(dtArr(1), 2), Mid(dtArr(1), 3, 2), Right(dtArr(1), 2))
    End If
    ParseDateZ = dt
End Function

Werte Forumsleser
Als Lehrer benutze ich Word (MS Office prof 2016) oft, um Lösungen zu präsentieren. Dabei schreibe ich die Lösungen (rot hervorgehoben) ins Dokument
ein und lösche am Schluss (von hinten her) alle Lösungen weg.
Dann kann ich mit dem Präsenter die Lösungen wieder Schritt für Schritt einblenden mit CTRL + z . Die Präsentertaste (PgDown) leite ich per Autohotkey auf CTRL + z um. Das funktioniert an sich bestens, hat aber den Nachteil, dass Word nach dem Löschen nicht geschlossen werden darf.
Meine Frage: Gäbe es eine Möglichkeit, diese Rückgängig-Schritte irgendwie zu speichern, z. Bsp. mit einem Makro?
Für alle Hinweise möchte ich mich bestens bedanken!

Hallo,
kann man Excel dazu bringen, LINKS vom Tabellenblatt1
bei Zufügen oder Löschen von Zeilen, über dem Ziel auf dem Tabellenblatt2, auf dem Ziel zu bleiben?
Muss ich wirklich manuell alle Links bearbeiten damit diese wieder funktionieren?

MfG Günter

  Link.xlsx (Größe: 14,32 KB / Downloads: 6)