Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.11.2017 13:24:30 |
New2VBA |
|
|
|
06.11.2017 17:32:58 |
Mackie |
|
|
Auswahlbedingte Kalkulation/Verteilung |
07.11.2017 09:33:43 |
New2VBA |
|
|
|
07.11.2017 11:08:20 |
New2VBA |
|
|
Von:
New2VBA |
Datum:
07.11.2017 09:33:43 |
Views:
580 |
Rating:
|
Antwort:
|
Thema:
Auswahlbedingte Kalkulation/Verteilung |
Hallo Mackie,
das wollte ich natürlich schon beim ersten Mal machen nur sehe ich leider kein Upload Button und per Drag&Drop geht es auch nicht. Mag sein dass ich blind bin :)
Jedenfalls bin ich mittlerweile so weit mit meinem Code:
-----------------
Sub test()
Dim lngZeile As Long
With Sheets("Tabelle1")
lngZeile = 1
Do Until lngZeile > .Cells.SpecialCells(xlCellTypeLastCell).Row
If IsEmpty(.Cells(lngZeile, 1)) Or (.Cells(lngZeile, 1) = 0) Then
End If
If .Cells(lngZeile, 1) = "Jan" Then 'PRÜFUNG MONAT
.Cells(lngZeile, 3).Select
Selection.Copy
.Cells(lngZeile, 5).Select
ActiveSheet.Paste
End If
If .Cells(lngZeile, 2) = "Übertrag" Then 'PRÜFUNG TYP "Übertrag" und teilen durch 12
.Cells(lngZeile, 5).AutoFill Destination:=Range(Cells(lngZeile, 5), Cells(lngZeile, 5 + 11)), Type:=xlFillDefault
.Cells(lngZeile, 5) = .Cells(lngZeile, 5) / 12
End If
--------------------
...und das immer wieder widerholt für alle folgenden Monate durch.
Habe hier allerdings noch paar Probleme:
- Es werden mir unerwünschte 0,00 Beträge bei "Übertrag" ausgerechnet bis der korrekte Monat gefunden wird.
- Beim Stichwort "Übertrag" rechnet es über beide Jahre hinweg (komplette 24Monate). Im Jahr 2018 wird der ausgangsbetrag auch nicht mehr geteilt.
Wenn mir jemand sagen könnte wie ich die Datei hier hochladen kann wäre es sicherlich einfacher zu verstehen :)
Vielen Dank vorab! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.11.2017 13:24:30 |
New2VBA |
|
|
|
06.11.2017 17:32:58 |
Mackie |
|
|
Auswahlbedingte Kalkulation/Verteilung |
07.11.2017 09:33:43 |
New2VBA |
|
|
|
07.11.2017 11:08:20 |
New2VBA |
|
|