Funktionswert an bestimmten Spaltenberei
27.05.2022 14:42:26
Roman
ich arbeite aktuell an der Erstellung eines Excel Formulars. Wo ich aktuell nicht weiterkomme.
Das Formular wird entwickelt um Bauwerksuntersuchungen durchzuführen.
Über eine Userform generiere ich Daten in Form von Zahlen.
"Ebene": gibt Aussage zu dem Ort der aufgenommenen Schäden.
Im Bereich "B14:AQ27" sollen Schäden mit Werten von 1-3 beurteilt werden.
Die Eingabe und der Output aus der Userform funktionieren zufriedenstellend.
Wenn die UserForm ausgefüllt ist sollen die Daten per CommandButton in den Bereich "AR4:AU27" übernommen werden.
Das Makro kriege ich trotz mehrmaliger Versuche mit Makrorekorder nicht hin.
Was brauch ich?
1. Wert aus Spalte Ebene "A" in Spalte Ebene "AR" - klappt aktuell
2. "Mittelwertwenns", Mittelwert aus Schnittmenge der jeweiligen Ebene und den Spalten "Standsicherheit" - die erste Zeile funktioniert, gibt aber nur den Wert aus der ersten Zeile an .
Bild der Excel aktuell:
Bisher als Code:
'Kopiert Wert Ebene
With Sheets("Boden_Zustandserfassung")
.Range("A14:A27" & .Cells(.Rows.Count, 2).End(xlUp).Row + 1).Copy
Sheets("Boden_Zustandserfassung").Range("AR4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
End With
'Füllt Mittelwert in Bereich AS4 bis AS27
Dim Zelle As Long
Dim Zeile As Long
Zeile = 4
With .FormulaR1C1 = "=AVERAGEIF(R13C2:R13C43,R2C,R[10]C2:R[10]C43)"
End With
Grüße Roman