|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2004 15:26:56 |
Duesso |
|
|
|
02.12.2004 05:26:25 |
Oli |
|
|
|
02.12.2004 08:01:39 |
VA |
|
|
|
17.12.2004 22:28:07 |
rasta |
|
|
 Code |
03.12.2004 08:39:48 |
Duesso |
|
|
Von:
Duesso |
Datum:
03.12.2004 08:39:48 |
Views:
1292 |
Rating:
|
Antwort:
|
Thema:
Code |
Hier ist noch der Code,meiner Drucken-Schaltfläche:
Private Sub btnDrucken_Click()
'Änderungshistorie, Start ab 11.2004
'
'1. Version 2.08: Änderung ders Druckbereichs um eine weitere Zeile, da ein Wert eingefügt wurde
'
'Felder Bilanz Aktivseite bereinigen.
If MsgBox("Achtung, wenn Sie jetzt auf Ja drücken, dann wird die Bilanz und ggfs. die GuV bereinigt. Die Werte sind dann verloren und können nur erneut erfasst werden. Wirklich weiter?", vbYesNo) = vbNo Then
Exit Sub
End If
For i = 5 To 29
If i <> 10 And i <> 14 And i <> 15 And i <> 21 Then
If Worksheets("Bilanz").Range("b" & i).Value = 0 And _
Worksheets("Bilanz").Range("d" & i).Value = 0 And _
Worksheets("Bilanz").Range("f" & i).Value = 0 Then
Worksheets("Bilanz").Range("b" & i) = ""
Worksheets("Bilanz").Range("d" & i) = ""
Worksheets("Bilanz").Range("f" & i) = ""
End If
End If
Next
'Felder Bilanz Passivseite bereinigen
For i = 5 To 30
If i <> 13 And i <> 21 Then
If Worksheets("Bilanz").Range("j" & i).Value = 0 And _
Worksheets("Bilanz").Range("l" & i).Value = 0 And _
Worksheets("Bilanz").Range("n" & i).Value = 0 Then
Worksheets("Bilanz").Range("j" & i) = ""
Worksheets("Bilanz").Range("l" & i) = ""
Worksheets("Bilanz").Range("n" & i) = ""
End If
End If
Next
'Felder GuV bereinigen.
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
If Worksheets("G u V").Range("b" & i).Value = 0 And _
Worksheets("G u V").Range("d" & i).Value = 0 And _
Worksheets("G u V").Range("f" & i).Value = 0 And _
Worksheets("G u V").Range("h" & i).Value = 0 And _
Worksheets("G u V").Range("j" & i).Value = 0 Then
Worksheets("G u V").Range("b" & i) = ""
Worksheets("G u V").Range("d" & i) = ""
Worksheets("G u V").Range("f" & i) = ""
Worksheets("G u V").Range("h" & i) = ""
Worksheets("G u V").Range("j" & i) = ""
End If
End If
Next
'Jahresspalten in der Bilanz Aktiv, die nicht genutzt werden, löschen!
If Worksheets("Bilanz").Range("b3").Value = "" Then
For i = 5 To 29
If i <> 10 And i <> 14 And i <> 15 And i <> 21 Then
Worksheets("Bilanz").Range("b" & i) = ""
End If
Next
End If
If Worksheets("Bilanz").Range("d3").Value = "" Then
For i = 5 To 29
If i <> 10 And i <> 14 And i <> 15 And i <> 21 Then
Worksheets("Bilanz").Range("d" & i) = ""
End If
Next
End If
If Worksheets("Bilanz").Range("f3").Value = "" Then
For i = 5 To 29
If i <> 10 And i <> 14 And i <> 15 And i <> 21 Then
Worksheets("Bilanz").Range("f" & i) = ""
End If
Next
End If
'Jahresspalten in der Bilanz Passiv, die nicht genutzt werden, löschen!
If Worksheets("Bilanz").Range("j3").Value = "" Then
For i = 5 To 30
If i <> 13 And i <> 21 Then
Worksheets("Bilanz").Range("j" & i) = ""
End If
Next
End If
If Worksheets("Bilanz").Range("l3").Value = "" Then
For i = 5 To 30
If i <> 13 And i <> 21 Then
Worksheets("Bilanz").Range("l" & i) = ""
End If
Next
End If
If Worksheets("Bilanz").Range("n3").Value = "" Then
For i = 5 To 30
If i <> 13 And i <> 21 Then
Worksheets("Bilanz").Range("n" & i) = ""
End If
Next
End If
'Jahresspalten in der GuV, die nicht genutzt werden, löschen!
If Worksheets("G u V").Range("b2").Value = "" Then
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
Worksheets("G u V").Range("b" & i) = ""
End If
Next
End If
If Worksheets("G u V").Range("d2").Value = "" Then
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
Worksheets("G u V").Range("d" & i) = ""
End If
Next
End If
If Worksheets("G u V").Range("f2").Value = "" Then
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
Worksheets("G u V").Range("f" & i) = ""
End If
Next
End If
If Worksheets("G u V").Range("h2").Value = "" Then
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
Worksheets("G u V").Range("h" & i) = ""
End If
Next
End If
If Worksheets("G u V").Range("j2").Value = "" Then
For i = 4 To 27
If i <> 8 And i <> 12 And i <> 22 Then
Worksheets("G u V").Range("j" & i) = ""
End If
Next
End If
'Auswahl Vorlage (RWP-Druckbereich einschränken.
If btnArtVorlage1.Value = True Then '= für GuW-Vorlagen
Sheets("Bilanz").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$38"
Sheets("G u V").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$38"
Range("B4").Activate
End If
If btnArtVorlage2.Value = True Then '= für RWP-Vorlagen
Sheets("Bilanz").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$38"
Sheets("G u V").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$38"
Range("B4").Activate
End If
'Umfang des Ausdrucks Ausdruck
'1. Nur Bilanz drucken
If OptionButton1.Value = True Then
Worksheets("Bilanz").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
'2. Nur GuV drucken
If OptionButton2.Value = True Then
Worksheets("G u V").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
'3. Alles drucken
If OptionButton3.Value = True Then
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End If
Unload Me
End Sub
Private Sub UserForm_Activate()
btnArtVorlage1.Value = True
OptionButton3.Value = True
End Sub
Oli schrieb am 02.12.2004 05:26:25:
hallon duesso,
hab leider gerade kein excel verfuegbar..
wie siehts denn aus, wenn du "normal" druckst?
gruesse
oli
Duesso schrieb am 30.11.2004 15:26:56:
Sobald ich auf den programmierten Button gehe ( zum drucken ) und die Daten an den Drucker übertragen werden, verrutscht im Worksheet die gesamte erste Zeile nach links! Alle Button sind plötzlich übereinander und die Dropdownlisten die normalerweise rechts neben den Button sein sollen liegen ebenfalls dahinter.
Die Schaltflächen sind alle festgelegt und sollten sich eigentlich nicht bewegen bzw. an die Tabelle anpassen dürfen!
Vielleicht weiß jemand wie man diese Reaktion verhindern kann!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2004 15:26:56 |
Duesso |
|
|
|
02.12.2004 05:26:25 |
Oli |
|
|
|
02.12.2004 08:01:39 |
VA |
|
|
|
17.12.2004 22:28:07 |
rasta |
|
|
Code |
03.12.2004 08:39:48 |
Duesso |
|
|