Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.03.2009 12:47:58 |
Volker |
|
|
Aw:Makro auf alle Tabellenblätter anwenden??? |
25.03.2009 09:39:15 |
Holger |
|
|
|
25.03.2009 10:03:04 |
Volker |
|
|
|
25.03.2009 11:24:59 |
Holger |
|
|
Von:
Holger |
Datum:
25.03.2009 09:39:15 |
Views:
420 |
Rating:
|
Antwort:
|
Thema:
Aw:Makro auf alle Tabellenblätter anwenden??? |
Hallo Volker,
ich habe mir deinen Code nicht näher angesehen, da er ja funktioniert.
Wenn du die mit Strg selektieren Tabellenblätter ansprechen und deinen Code unverändert auf diesen Blättern ausführen willst, kannst du
For Each s In ActiveWindow.SelectedSheets
s.activate
deine Anweisungen
Next
verwenden. VBA arbeitet dann nacheinander die markierten Tabellenblätter ab. Wegen des ".activate-Befehls" beziehen sich deine Befehle jeweils auf das gerade zu bearbeitende Blatt.
Gruß
Holger
Volker schrieb am 24.03.2009 12:47:58:
Hi an alle!
Ich habe folgendes Problem:
Ich möchte eine neue Zeile in einer Datenliste einfügen. Hierbei sollen die Formeln in den neuen Zellen übernommen werden. Hierzu habe ich folgendes Makro gefunden:
Sub Zeileeinfügen()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
'
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select
End Sub
Dies funktioniert soweit sehr gut.
Mein Problem ist jedoch, dass dieser Befehl auf mehrere Blätter durchgeführt werden soll.
(Meine Datei besteht aus mehreren Blättern. Die Informationen in den ersten Spalten sind jeweils identisch, danach folgen jedoch auf den verschiedenen Blättern nach den Spalten noch andere Informationen)
Ich habe versucht die Blätter, bei denen die Zellen eingefügt werden sollen mit Strg zu markieren und dann habe ich das Makro ausgeführt. Dieses wird jedoch nur beim ersten Blatt durchgeführt und nicht bei den anderen markierten Blättern.
Ich hoffe mein Problem ist ersichtlich. Ansonsten bitte ich um Rückfragen.
Vielen Dank schon mal!
Grüße
Volker
|
- 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
|
|
24.03.2009 12:47:58 |
Volker |
|
|
Aw:Makro auf alle Tabellenblätter anwenden??? |
25.03.2009 09:39:15 |
Holger |
|
|
|
25.03.2009 10:03:04 |
Volker |
|
|
|
25.03.2009 11:24:59 |
Holger |
|
|