Hallo, Gast |
Sie müssen sich registrieren bevor Sie auf unserer Seite Beiträge schreiben können.
|
Benutzer Online |
Momentan sind 85 Benutzer online » 3 Mitglieder » 78 Gäste Applebot, Bing, Facebook, Google, filedown00
|
Aktive Themen |
uff. Hilfe bei Formel: "E...
Forum: Excel
Letzter Beitrag: RPP63
Gestern, 05:05
» Antworten: 2
» Ansichten: 76
|
Gliederung automatisches ...
Forum: Excel
Letzter Beitrag: Andi Schulze
24.07.2024, 15:08
» Antworten: 9
» Ansichten: 324
|
Zellenformatierung Listbo...
Forum: Excel
Letzter Beitrag: PetrolMaxxe
23.07.2024, 19:24
» Antworten: 13
» Ansichten: 639
|
Farben erkennen und ausge...
Forum: Excel
Letzter Beitrag: Kapt.Ulrich
22.07.2024, 12:52
» Antworten: 3
» Ansichten: 171
|
Kapaplanung- Hilfe
Forum: Excel
Letzter Beitrag: ikara1981
20.07.2024, 09:30
» Antworten: 2
» Ansichten: 106
|
Verhindern von Ausschneid...
Forum: Excel
Letzter Beitrag: Bernd
13.07.2024, 15:56
» Antworten: 11
» Ansichten: 817
|
Zeile einfügen geht nicht
Forum: Excel
Letzter Beitrag: Domii4488
10.07.2024, 14:39
» Antworten: 2
» Ansichten: 161
|
Formatierungszeichen
Forum: Word
Letzter Beitrag: EmKa
08.07.2024, 15:04
» Antworten: 7
» Ansichten: 812
|
Namen aus Zellen wiederge...
Forum: Excel
Letzter Beitrag: Flotter Feger
05.07.2024, 15:30
» Antworten: 5
» Ansichten: 297
|
Änderungen an der Normal....
Forum: Word
Letzter Beitrag: maninweb
01.07.2024, 10:33
» Antworten: 1
» Ansichten: 262
|
|
|
automatische Rechtschreibprüfung |
Geschrieben von: ArianeH - 06.06.2024, 20:31 - Forum: Word
- Keine Antworten
|
![](https://office-fragen.de/images/default_avatar.png) |
Hallo,
ich arbeite mit Word 2021. Wie kann ich einstellen, dass die Rechtschreibprüfung grundsätzlich automatisch durchgeführt wird?
Viele Grüße
|
|
|
Wenns Fehler in meiner Formel? |
Geschrieben von: WWW68 - 31.05.2024, 19:04 - Forum: Excel
- Antworten (9)
|
![](https://office-fragen.de/images/default_avatar.png) |
Hallo, bei mir funktioniert folgende Formel nicht. Wo liegt der Hund begraben.
Ich prüfe 10 Felder welches die Größte Zahl hat und möchte dann 1-10 ausgeben. Sind 2 Felder gleich groß wird nichts ausgegeben oder halt "". Ebenso wenn die Summe der Felder 0 ist.
Findet er keine größere Zahl gibt er #NV aus.
=WENNS(UND(G30>H30,G30>I30,G30>J30,G30>K30,G30>L30,G30>M30,G30>N30,G30>O30,G30>P30),1,UND(H30>G30,H30>I30,H30>J30,H30>K30,H30>L30,H30>M30,H30>N30,H30>O30,H30>P30),2,UND(I30>G30,I30>H30,I30>J30,I30>K30,I30>L30,I30>M30,I30>N30,I30>O30,I30>P30),3,UND(J30>G30,J30>H30,J30>I30,J30>K30,J30>L30,J30>M30,J30>N30,J30>O30,J30>P30),4,UND(K30>G30,K30>H30,K30>I30,K30>J30,K30>L30,K30>M30,K30>N30,K30>O30,K30>P30),6,UND(L30>G30,L30>H30,L30>I30,L30>J30,L30>K30,L30>M30,L30>N30,L30>O30,L30>P30),6,UND(M30>G30,M30>H30,M30>I30,M30>J30,M30>K30,M30>L30,M30>N30,M30>O30,M30>P30),7,UND(N30>G30,N30>H30,N30>I30,N30>J30,N30>K30,N30>L30,N30>M30,N30>O30,N30>P30),8,UND(O30>G30,O30>H30,O30>I30,O30>J30,O30>K30,O30>L30,O30>M30,O30>N30,O30>P30),9,UND(P30>G30,P30>H30,P30>I30,P30>J30,P30>K30,P30>L30,P30>M30,P30>N30,P30>O30),10,SUMME(G30 30)=0,"")
siehe Anhang
|
|
|
Office 2021 |
Geschrieben von: Reinhard38 - 30.05.2024, 12:05 - Forum: Word
- Antworten (2)
|
![](https://office-fragen.de/images/default_avatar.png) |
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
|
|
|
Bankumsätze mit Excel "auswerten" |
Geschrieben von: kabbez - 29.05.2024, 15:05 - Forum: Excel
- Antworten (4)
|
![](https://office-fragen.de/images/default_avatar.png) |
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!
|
|
|
Format übertragen |
Geschrieben von: Peter_Mlnd - 21.05.2024, 11:42 - Forum: Excel
- Antworten (1)
|
![](https://office-fragen.de/images/default_avatar.png) |
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?
|
|
|
Daten eintragen |
Geschrieben von: ArianeH - 17.05.2024, 15:06 - Forum: Word
- Antworten (3)
|
![](https://office-fragen.de/images/default_avatar.png) |
Hallo,
ich arbeite mit Word 2021. Wo kann ich Daten zur jeweiligen Datei (z.B. Erstellungsdatum) eintragen?
Viele Grüße
|
|
|
Short cut in Word |
Geschrieben von: mibri3944 - 17.05.2024, 09:44 - Forum: Word
- Keine Antworten
|
![](https://office-fragen.de/images/default_avatar.png) |
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
|
|
|
ICS import zu exel |
Geschrieben von: Carsten-Wählisch - 15.05.2024, 21:40 - Forum: Excel
- Keine Antworten
|
![](https://office-fragen.de/images/default_avatar.png) |
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:mm s")
'Spalte "TIMESTART"
Cells(r, 2) = Cells(r, 1)
Case Left(line, 5) = "DTEND"
Cells(r, 3) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mm s")
'Spalte "TIMEEND"
Cells(r, 4) = Cells(r, 3)
Case Left(line, 7) = "DTSTAMP"
Cells(r, 5) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mm s")
Case Left(line, 3) = "UID"
Cells(r, 6) = dtStr
Case Left(line, 7) = "CREATED"
Cells(r, 7) = Format(ParseDateZ(dtStr), "yyyy-mm-dd hh:mm s")
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:mm s")
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:mm s"
Columns(3).NumberFormat = "dd.mm.yyyy"
Columns(4).NumberFormat = "hh:mm s"
'eigentlich nicht notwendig:
Columns(5).NumberFormat = "yyyy-mm-dd hh:mm s"
Columns(7).NumberFormat = "yyyy-mm-dd hh:mm s"
Columns(10).NumberFormat = "yyyy-mm-dd hh:mm s"
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
|
|
|
|