Formelerweiterung über Makro
30.01.2021 08:41:47
Sepp
Ich brauche Hilfe bei einem Makro.
Status:
Ich habe mir ein kleinen Lagerbestand gebastelt. Mit einen Steuerelement lege ich mir ein neues Arbeitsblatt an. (siehe Makro). Auch das Auslesen und Einbringen von Infos aus einer Tabelle funktionieren bereits.
Nun habe ich noch ein Arbeitsblatt "Lagerbestand" mit der Formel:
{=SUMME(SUMMEWENN(INDIREKT("'BV_"&ZEILE($1:$1)&"'!D8:D107");D4;INDIREKT("'BV_"&ZEILE($1:$1) &"'!C8:C107"))) }
Das Makro soll nun mit dem neuen Anlegen eines BV-* Blattes auch die ZEILE($1:$1) in ZEILE($1:$2) erhöhen, ebeso die zweite ZEILE($1:$1) in ZEILE($1:$2).
Vorhandenes Makro:
Sub Schaltfläche1_Klicken()
Dim i As Integer, ws As Worksheet, rng As Range
For i = 1 To Worksheets.Count
On Error GoTo weiter
Sheets("BV_" & i).Select
Next i
weiter:
On Error GoTo 0
Sheets("BV_Vorlage").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "BV_" & i
Dim Anschrift_für_Kalender As String
Worksheets("BV_Auflistung").Select
If Worksheets("BV_Auflistung").Range("J1").Offset(1, 0) "" Then
Worksheets("BV_Auflistung").Range("J1").End(xlDown).Select
End If
Anschrift_für_Kalender = Range("J1").End(xlDown)
Worksheets("BV_" & i).Select
Worksheets("BV_" & i).Range("B1").Select
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = Anschrift_für_Kalender
End Sub
Für Hilfe und die Erweiterung des Makros wäre ich Euch sehr dankbar.
Grüße