TenchiMuyo1984
Neu angemeldet
- Registriert
- 22 Okt. 2013
- Beiträge
- 9
Ich weiß nicht, ob ich hier richtig bin.
Wenn nein, möge man diesen Thread bitte an die richtige Stelle verschieben.
[src=vbnet]Function rowbegin(building_id)
rowbegin = 3
If building_id = 0 Then
rowbegin = rowbegin
Else:
For lauf = 1 To building_id Step 1
rowbegin = rowbegin + Range("C" & rowbegin - 1) + 1
Next
End If
End Function
Function rowsum(building_id)
rowsum = 1
For lauf = 0 To building_id Step 1
rowsum = rowsum + Range("C" & rowsum + 1) + 1
Next
End Function
Function EinAusblenden(building_id)
Lines_begin = rowbegin(building_id)
Lines_end = rowsum(building_id)
If Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = True Then
Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = False
Else:
Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = True
End If
End Function
Sub building_00()
EinAusblenden (0)
End Sub
Sub building_01()
EinAusblenden (1)
End Sub
Sub building_02()
EinAusblenden (2)
End Sub
Sub building_03()
EinAusblenden (3)
End Sub
Sub building_04()
EinAusblenden (4)
End Sub
Sub building_05()
EinAusblenden (5)
End Sub
Sub building_06()
EinAusblenden (6)
End Sub
Sub building_07()
EinAusblenden (7)
End Sub
Sub building_08()
EinAusblenden (8)
End Sub
Sub building_09()
EinAusblenden (9)
End Sub
...[/src]
Zu meinem Problem.
Wie man ganz deutlich sehen kann, muss ich für jede ID eine eigene Sub erstellen, die aber nur in der Nummer variiert.
Insgesamt habe ich ~70 solche Nummern zu vergeben. Für jede eine eigene Sub zu erzeugen finde ich äußerst lästig!
Die Buttons sind Schaltflächen, die ich über Leiste "Formular" und "Schaltfläche" gezeichnet habe, denen ich dann ein Makro zuweise.
Gibt es eine Möglichkeit, wie man bei Aufruf der Sub eine ID vom Button dem Makro übergeben könnte?
Wenn nein, möge man diesen Thread bitte an die richtige Stelle verschieben.
[src=vbnet]Function rowbegin(building_id)
rowbegin = 3
If building_id = 0 Then
rowbegin = rowbegin
Else:
For lauf = 1 To building_id Step 1
rowbegin = rowbegin + Range("C" & rowbegin - 1) + 1
Next
End If
End Function
Function rowsum(building_id)
rowsum = 1
For lauf = 0 To building_id Step 1
rowsum = rowsum + Range("C" & rowsum + 1) + 1
Next
End Function
Function EinAusblenden(building_id)
Lines_begin = rowbegin(building_id)
Lines_end = rowsum(building_id)
If Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = True Then
Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = False
Else:
Rows(Lines_begin & ":" & Lines_end).EntireRow.Hidden = True
End If
End Function
Sub building_00()
EinAusblenden (0)
End Sub
Sub building_01()
EinAusblenden (1)
End Sub
Sub building_02()
EinAusblenden (2)
End Sub
Sub building_03()
EinAusblenden (3)
End Sub
Sub building_04()
EinAusblenden (4)
End Sub
Sub building_05()
EinAusblenden (5)
End Sub
Sub building_06()
EinAusblenden (6)
End Sub
Sub building_07()
EinAusblenden (7)
End Sub
Sub building_08()
EinAusblenden (8)
End Sub
Sub building_09()
EinAusblenden (9)
End Sub
...[/src]
Zu meinem Problem.
Wie man ganz deutlich sehen kann, muss ich für jede ID eine eigene Sub erstellen, die aber nur in der Nummer variiert.
Insgesamt habe ich ~70 solche Nummern zu vergeben. Für jede eine eigene Sub zu erzeugen finde ich äußerst lästig!
Die Buttons sind Schaltflächen, die ich über Leiste "Formular" und "Schaltfläche" gezeichnet habe, denen ich dann ein Makro zuweise.
Gibt es eine Möglichkeit, wie man bei Aufruf der Sub eine ID vom Button dem Makro übergeben könnte?
MfG
----- ===== TenchiMuyo1984 ===== -----
----- ===== TenchiMuyo1984 ===== -----