Hi!
ich habe folgendes Problem:
ich habe ein Rechnungsformular erstellt. ober der ganze Schriftkopf.
in der mitte die Tabelle mit Artikel, Menge, Preis,… .
unten die summe und MwSt.
nun möchte ich das sich die Zellen indem sich die Artikeln usw. stehen automatisch anpassen
d.h.
- ich habe 5 Artikel: soll nach diesen 5 Zeilen die summe kommen
- ich habe 20 Artikel: soll nach diesen 20 Zeilen die summen kommen
Muster:
Menge_Artikel_Preis
1_____Art1____5€
5_____Art2____10€
2_____Art3____9€
7_____Art4____11€
________Summe:35€
ist das machbar?
derzeit habe ich die zellen fertig und blende die leeren einfach aus! nur ist das sehr umständlich (in diesen fall!)
Danke im Voraus für eure tipps!
Hallo,
ich würde bei der Ausblendung der Zeilen bleiben und dies nur durch ein Makro automatisieren.
Dazu neben der Tabelle mit der Artikelauflistung über die Symbolleiste „Steuerelement-Toolbox“ ein Kontrollkästchen einfügen.
Folgende Einstellungen im Eigenschaftsmenü des Kontrollkästchens (über Kontextmenü) vornehmen:
Caption = Druckansicht ein
Name = Druckansicht
Dann dem Steuerelement folgenden Code zuordnen.
(falls nicht bekannt, wie das geht, im Forum stöbern oder noch mal anfragen)
Private Sub Druckansicht\_Click()
Dim zähler As Integer
Const ArtikelSpalte = 1 'muss evtl. noch angepasst werden, Nr. irgendeiner verwendeten Spalte in der Artilelauslistung
Const ArtikelBeginnzeile As Integer = 4 'muss noch angepasst werden - erste mgl. Zeilennummer mit Artikel
Const ArtikelEndezeile As Integer = 12 'muss noch angepasst werden - letzte mgl. Zeilennummer mit Artikel
If Druckansicht Then
For zähler = ArtikelBeginnzeile To ArtikelEndezeile
If ActiveSheet.Cells(zähler, ArtikelSpalte) = "" Then
'weitere Zeilen ausblenden
ActiveSheet.Rows(zähler & \_
":" & ArtikelEndezeile).EntireRow.Hidden = True
Exit For
End If
Next zähler
Else
ActiveSheet.Rows(ArtikelBeginnzeile & \_
":" & ArtikelEndezeile).EntireRow.Hidden = False
End If
End Sub
Der Konstantenbereich (Const) muss noch an Deine Tabelle angepasst werden.
Den Entwurfsmodus in der o.g. Symbolleiste zuletzt noch ausschalten.
Nun werden bei jeder Aktivierung des Kontrollkästchens die überschüssigen Zeilen ausgeblendet und bei Deaktivierung zur Bearbeitung wieder angezeigt.
Viele Grüße, tester
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]