Excel VBA – Führt das Makro im falschen Arbeitsblatt aus

Hallo,

diese Fehler bekommst du nicht, wenn du korrekt referenzierst.

Probiere:

Private Sub Jahreszeiten_Click()

Dim c As Range

Dim varSuche As Variant

Dim i As Integer
varSuche = Array("Fr?hling", "Sommer", "Herbst", "Winter")
With Sheets("Tabelle2")

   For i = LBound(varSuche) To UBound(varSuche)

      Set c = .Range("O:O").Find(varSuche(i), LookIn:=xlValues)

      If Not c Is Nothing Then

         .Rows(c.Row).Resize(1).Insert

         c.Offset(0, 0) = c.Value

         c.Offset(0, 0).Font.Bold = True

      End If

   Next

End With

End Sub

Claus

Hallo Claus

Vielen Dank, es läuft wie gewünscht.

Dölf

Hallo Jan,

Wenn ich die ganze Befehlsfolge als Makro aufzeichnen will, funktioniert bei der Aufzeichnung alles bestens.

Wenn ich das Makro dann abspiele, fügt es den Dateinamen aber in die Kopfzeile ein, obwohl ich in der Aufzeichnung die Fusszeile auzsgewählt hatte.

möglicherweise wählst du eine - zumindest fürs Aufzeichnen - "falsche" Befehlsfolge. Beschreibe doch mal deine Vorgehensweise.

Nicht immer führt der Makrorekorder zum gewünschten Ergebnis. Oft muss man die entsprechenden VBA-Befehle kennen.

Aber für deinen Fall klappt es durchaus mit dem Aufzeichnen.

Viele Grüße

Lisa

Hallo Franz,

mein Name ist Manuel und ich bin unabhängiger Berater.

Die Anwendung ist ein VBA Makro für Excel, oder für Word?

Denn i.d.R. werden die einzelnen Sheets in Excel als Arbeitsblätter bezeichnet.

Folgender Artikel beschreibt wie man einen Blattschutz in Excel einträgt bzw. aufhebt:

https://support.microsoft.com/de-de/help/402680...

Die ID des Laufzeitfehlers wäre womöglich auch hilfreich.

Grüße,

Manuel

Der mit dem Autofilter ausgewählte Bereich ist im Arbeitsblatt „Tabelle1“ und wird ins Arbeitsblatt „Tabelle2“ kopiert.

Wenn ich nun den Druckbereich im Arbeitsblatt „Tabelle2“ festlege und die Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() sich ebenfalls in der Tabelle2 befindet, wird korrekt der ausgewählte Bereich markiert.

Wenn jedoch die Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() sich in der Tabelle1 befindet, so wird in der Tabelle 2 nicht der ausgewählte Bereich markiert sondern der ganze Bereich entsprechend aller Daten in Tabelle1 (N5:R290). So
werden der ausgewählte Bereich sowie 10 leere Seiten ausgedruckt.

Die Prozedur will ich in der Tabelle 1 mit der Befehlsschaltfläche und das Makro Private Sub Druckbereich_Click() ebenfalls in der Tabelle 1 auslösen



'Seite für Druck festlegen

'Wiederholungzeilen festlegen

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.PrintTitleRows = "$1:$5"

.PrintTitleColumns = ""

End With

'Druckbereich festlegen und Seitenskalierung auf 95% stellen

Application.PrintCommunication = True

ActiveSheet.PageSetup.PrintArea = "n5:r" & Range("r" & Rows.Count).End(xlUp).Row

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.Zoom = 95

End With

Ich werde noch 2 Fragen starten (Führt das Makro im falschen Arbeitsblatt aus / Bei Fehler „Druckdialog aufrufen“ MsgBox aufrufen). Vielleicht kannst du mir auch hier helfen.

Vielen Dank

Dölf