|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2010 15:14:51 |
Annika |
|
|
|
07.10.2010 16:14:06 |
Severus |
|
|
|
07.10.2010 16:28:32 |
hallo |
|
|
|
07.10.2010 16:42:11 |
Severus |
|
|
|
08.10.2010 14:02:48 |
Annika |
|
|
|
08.10.2010 14:50:55 |
Severus |
|
|
 Aw:Aw:Aw:Aw:Aw:Aw:eigene Druckversion erstellen |
08.10.2010 15:50:02 |
Annika |
|
|
Von:
Annika |
Datum:
08.10.2010 15:50:02 |
Views:
739 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:eigene Druckversion erstellen |
Severus schrieb am 08.10.2010 14:50:55:
Annika schrieb am 08.10.2010 14:02:48:
Severus schrieb am 07.10.2010 16:42:11:
hallo schrieb am 07.10.2010 16:28:32:
Severus schrieb am 07.10.2010 16:14:06:
Annika schrieb am 07.10.2010 15:14:51:
Moin
ich hab leider kaum bis gar keine erfahrung mit excel-vba und makros. aber ich möchte folgendes machen. ich habe ein Button und dem soll ein Makro zugewiesen werden. Soweit komme ich noch klar. Ich weiß nur nicht wie ich dieses Makro schreiben soll.
Ich sag euch mal was mein makro können soll. vielleicht könnt ihr mir dann ja helfen.
ich habe eine tabelle mit mehreren zeilen. wenn ich eine zeile makiere und dann das makro auslöse soll folgendes passieren:
ein neues Tabellenblatt mit dem Namen Druckversion soll erstellt werden und die ausgewählte zeile soll in die oberste Zeile dieses Blattes kopiert werden.
wäre super wenn ihr mir helfen könntet.
lg
Option Explicit
Sub Druckversion()
Dim IND As Long
With ThisWorkbook
IND = ActiveSheet.Index
.Sheets.Add(After:=ActiveSheet).Activate
ActiveSheet.Name = "Druckversion"
.Sheets(IND).Activate
Selection.Copy Destination:=Worksheets("Druckversion").Range("A1")
End With
End Sub
Severus
Hallo, dazu hätte ich noch eine frage
bei ThisWorkbook muss ich da irgendwas einsetzen? genau da stürzt nämlich alles ab
Tut mir leid: Da hat das Forum mal wieder einen Teil des Codes verschluckt. Passiert leider manchmal.
Ich hoffe es paßt jetzt.
Severus
vielen dank. kann man das vielleicht auch noch so abändern, das er die ausgeblendeten Spalten in meinem normalen Datenblatt auch mit rügerkopiert? ohne das ich diese erst wieder einblenden muss?
Nein. Mir keine Methode bekannt. Muß eingeblendet sein.
Tut aber ein kurzer Code
Selection.Entirerow.Hidden = False
vor selection.copy
Severus
danke |
- 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
|
|
07.10.2010 15:14:51 |
Annika |
|
|
|
07.10.2010 16:14:06 |
Severus |
|
|
|
07.10.2010 16:28:32 |
hallo |
|
|
|
07.10.2010 16:42:11 |
Severus |
|
|
|
08.10.2010 14:02:48 |
Annika |
|
|
|
08.10.2010 14:50:55 |
Severus |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:eigene Druckversion erstellen |
08.10.2010 15:50:02 |
Annika |
|
|