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

Diskutiere Excel VBA – Führt das Makro im falschen Arbeitsblatt aus im Office Forum im Bereich Microsoft Community Fragen; Mit dem nachstehenden Makro wird die Spalte O nach Frühling, Sommer, Herbst , Winter durchsucht und fügt davor eine leere Zeile ein sowie macht...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Mit dem nachstehenden Makro wird die Spalte O nach Frühling, Sommer, Herbst , Winter durchsucht und fügt davor eine leere Zeile ein sowie macht die Schrift Fett.

Wenn sich nun die Befehlsschaltfläche und das Makro Private Sub Jahreszeit_Click() in der „Tabelle2“ befindet, wird die Prozedur korrekt ausgeführt.
Wenn jedoch die Befehlsschaltfläche und das Makro Private Sub Jahreszeit _Click() sich in der Tabelle1 befindet, so wird die Prozedur nicht in der Tabelle 2 sondern in der Tabelle 1 durchgeführt.
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 und soll in der Tabelle2 ausgeführt werden.


Private Sub Jahreszeit_Click()
' ActiveWorkbook.Worksheets("Tabelle2").Select
Dim c As Range
Dim varSuche As Variant
Dim i As Integer
varSuche = Array("Frühling", "Sommer", "Herbst", "Winter“)
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).Select
Selection.Font.Bold = True
End If
Next
End Sub
 
Thema:

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

Excel VBA – Führt das Makro im falschen Arbeitsblatt aus - Ähnliche Themen

[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?: Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...
Verhalten beim Einfügen von Bildern per Makro: Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...
Excel Makro_ Zeilen ein- & ausblenden: Hallo Ich habe ein bisschen ein grösseres Problem und bin mit probieren und durchlesen von etlichen Foren nicht zu einer Lösung gekommen...
Excel Makro: Hallo zusammen, ich würde gern in eine Excel Datei ein Makro einfügen, welches eine komplette Zeile in ein anderes Blatt verschiebt, sobald in...
Oben