Datum und Betrag per Knopfdruck einfügen
21.07.2024 21:58:59
Wolters, Andree
ich habe mir eine eingen Kniffel Vorlage erstellt (trotz der vielen im Netz erhältlichen) und in Verbindung mit Eurem Board hier schon einige kleinere Probleme lösen können.
Hier komme ich allerdings momentan nicht weiter.
Per Sortierung wird der Verlierer ermittelt.
Dann wird ermittelt wer wieviele Spiele verloren hat.
Daraus resultierend die Kosten für die verlorenen Spiele (Vorlage ist für meinen Nachbarn und mich, nichts Gewerbliches!)
Jetzt zu meinem Problem:
In die Kostenaufstellung sollen jetzt das Datum und die Gesamtkosten für jeden von uns übernommen werden.
Wenn in Spalte H39 (Datum) H40 usw. schon etwas eingetragen ist, soll per Knopfdruck einfach eine Zeile drunter eingetragen werden.
1. Problem:
Für Zeile 39 und 40 passt das, darunter nicht.
2. Problem:
Excel übernimmt nicht den Zellinhalt von E36 + E27, sondern die Formelwerte daraus und errechnet massive Euros *lach
Beispielbild ist dabei und Formel an der ich mich Versuche auch (auch mit Eurer Hilfe gewesen).
Ich habe natürlich auch vorher ordentlich getestet, gelöscht, neues eingefügt etc.
"Datum" sowie "Peters Kosten" sind Original, nur mit geänderten Zellbezügen.
Bitte seit so lieb und helft mir, vielleicht mit anderem Code? Vielleicht mit Änderungen, falls ich schon auf guten Wege war etc.
Und vor allem, welchen Denkfehler ich mache.
Sub kopieren()
'Datum einfügen
Dim rngZiel As Range
Dim rngQuelle As Range
Set rngQuelle = Range("B5")
Set rngZiel = Range("H39")
If rngZiel.Value Then
If rngZiel.Offset(1, 0).Value = "" Then
Set rngZiel = rngZiel.Offset(1, 0)
Else
Set rngZiel = rngZiel.End(xlDown)
End If
End If
rngQuelle.Copy Destination:=rngZiel
'Andree´s Kosten einfügen
Set rngQuelle = Range("E36")
Set rngZiel = Range("I39")
If rngZiel.Value Then
If rngZiel.Offset(1, 0).Value = "" Then
Set rngZiel = rngZiel.Offset(1, 0)
Else
Set rngZiel = rngZiel.End(xlDown)
End If
End If
Quelle.Copy Destination:=Ziel
Sheets("Auswertungen").Range ("I39:J100") '.ClearFormats
'Peter´s Kosten einfügen
Set rngQuelle = Range("E37")
Set rngZiel = Range("J39")
If rngZiel.Value Then
If rngZiel.Offset(1, 0).Value = "" Then
Set rngZiel = rngZiel.Offset(1, 0)
Else
Set rngZiel = rngZiel.End(xlDown)
End If
End If
rngQuelle.Copy Destination:=rngZiel
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Anzeige