AW: Makro nach Eingabe der Anzahl starten
16.03.2016 17:31:28
linux
Danke für deine schnellen Rückmeldungen.
Ich sollte das hier irgendwie einbauen:
Sub HoleDPBasisZeilen()
'Reserviert Feld aus der Basis, aus welchem dann die Typicals gesucht werden
Dim myRange As Range
Set myRange = ActiveWorkbook.Worksheets("BASIS").Range("A12:BM2000")
If ActiveCell.Column 13 Then 'Makrostart nur aus Spalte I
Modul3.Hinweis1
Else: End If
Modul3.VorbedingungFunktion (1) 'Überprüfen der Feldeingabe Funktion
Modul3.VorbedingungAnzahl 'Überprüfen der Feldeingabe Anzahl
init = Application.WorksheetFunction.Proper(ActiveCell.Offset(0, -1)) 'Buchstabe in Funktion _
gross schreiben
For zähler = 1 To 1980 'Überprüfen, ob eingegebene Funktion in Basis aufgeführt ist
If myRange(zähler, 1) = init Then
Exit For
ElseIf zähler = 1980 Then
Modul3.Hinweis5
Else: End If
Next zähler
For i = 2 To 5 'Wenn Funktion in Basis gefunden, wird die entspr. Zeile kopiert
ActiveCell.Offset(0, i - 2) = myRange(zähler, i)
Next i
For j = 6 To 62
'Hier wird noch zwischen einer Zahl und einem "?" in der Typical Zeile der Basis _
unterschieden.
'Dies ist bei einer Multiplikation (z.B. 3 mal A01) nötig.
If Application.WorksheetFunction.IsNonText(myRange(zähler, j)) = True And _
Application.WorksheetFunction.IsNumber(myRange(zähler, j)) = True Then
ActiveCell.Offset(0, j + 3) = myRange(zähler, j) * ActiveCell.Offset(0, 4) 'Mit Anzahl _
multipliziert
Else: ActiveCell.Offset(0, j + 3) = myRange(zähler, j)
End If
Next j
End Sub
Weiss jedoch nicht genau wie. Was ich rausgefunden habe ist, dass mit diesem Befehl If ActiveCell.Column 13 Then definiert wird, von wo das Makro gestartet werden kann. aber eben nur über den Befehl Ctrl + e