Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt aktivieren funktioniert nicht (VBA)

Blatt aktivieren funktioniert nicht (VBA)
Martin
Guten Tag
Ich habe eine Workbook mit einem Blatt auf dem ein CommandButton steht, der das Makro auslöst.
Im Makro will ich auf ein anderes Blatt "Liste" zugreifen.
Ich aktiviere dieses mit .Activate
Die Befehle darunter werden jedoch nicht auf dem aktivierten Blatt "Liste" ausgeführt, sondern auf dem Blatt wo der CommandButton sitzt.
Muss ich bei allen Schritten (Range, Columns etc.) jetzt immer eine Liste.Range/Liste.Columns voransetzen (will ich eigentlich nicht, darum ja das .Activate)?
Ich weiss nicht mehr weiter
Besten Dank im voraus.
Martin
(PS: Das Makro beinhaltet viele weitere Linien, doch um die unten stehenden geht es, die sind alle nacheinander ausser dem Set, welches weiter oben ist)
Set Liste = activeworkbook.Worksheets("OP Liste")
Liste.Activate
Range("1:3").Delete shift:=xlUp
Columns("H:I").Replace What:="'", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("I:I").Cut Columns("E:E").Activate
Columns("H:H").Delete shift:=xlToLeft
Columns("A:B").Insert shift:=xlToRight

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blatt aktivieren funktioniert nicht (VBA)
13.04.2011 13:38:19
Rudi
Hallo,
das: Columns("I:I").Cut Columns("E:E").Activate verstehe ich nicht
Aber mal vom Prinzip her: 
  Set Liste = ActiveWorkbook.Worksheets("OP Liste")
With Liste
.Range("1:3").Delete Shift:=xlUp
.Columns("H:I").Replace What:="'", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Columns("I:I").Cut
.Columns("H:H").Delete Shift:=xlToLeft
.Columns("A:B").Insert Shift:=xlToRight
End With

Generell soltest du Select und Activate vermeiden.
Gruß
Rudi
AW: Blatt aktivieren funktioniert nicht (VBA)
13.04.2011 13:47:18
Martin
Hoi Rudi
Besten Dank für Deine Antwort. (das: Columns("I:I").Cut Columns("E:E").Activate verstehe ich nicht Das war ein Fehler beim reinkopieren ins Forum, die Column I sollte ausgeschnitten werden und in die Column E eingefügt werden)
Ich habe auch schon ans With Liste gedacht, das Problem ist/wäre, dass der Code noch viel weitergeht (siehe unten). Da ich mit Liste.Activate das korrekte Blatt aktiviere, wieso wird der Code dann auf dem Blatt mit Makro ausgeführt? Das schnall ich echt nicht.
Habe immer gedacht, man soll das Select vermeiden indem man Activate benutzt. Ist das auch falsch?
Vielen Dank nochmals
Liste.Activate
Range("1:3").Delete shift:=xlUp
Liste.Columns("H:I").Replace What:="'", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("I:I").Cut Columns("E:E")
Columns("H:H").Delete shift:=xlToLeft
Columns("A:B").Insert shift:=xlToRight
' LV-Nummer extrahieren
Columns("B:B") = Columns("H:H").Value
With Columns("B:B")
.Replace What:="LV ", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="No ", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="/", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
.Replace What:=",", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
.Replace What:="-", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End With
Application.CutCopyMode = False
Rows("1:1").Font.Bold = True
With Range("A1:P1").Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("A2").FormulaR1C1 = "=IF(ISERROR(LEFT(RC[1],10)*1),IF(ISERROR(LEFT(RC[1],10)*1),left(RC[2],7)*1,""xxx""),LEFT(RC[1],10)*1)"
lezeile = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2").AutoFill Destination:=Range("A2:A" & lezeile)
With Columns("A:A")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False
.
.
.
.
Anzeige
AW: Blatt aktivieren funktioniert nicht (VBA)
13.04.2011 14:03:22
Rudi
Hallo,
With kann man auch ineinander schachteln. 
  With Liste
.Range("1:3").Delete shift:=xlUp
.Columns("H:I").Replace What:="'", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Columns("I:I").Cut .Columns("E:E")
.Columns("H:H").Delete shift:=xlToLeft
.Columns("A:B").Insert shift:=xlToRight
' LV-Nummer extrahieren
.Columns("B:B") = Columns("H:H").Value
With .Columns("B:B")
.Replace What:="LV ", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="No ", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="/", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
.Replace What:=",", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
.Replace What:="-", Replacement:=" ", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End With
Application.CutCopyMode = False
.Rows("1:1").Font.Bold = True
With .Range("A1:P1").Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
.Range("A2").FormulaR1C1 = _
"=IF(ISERROR(LEFT(RC[1],10)*1),IF(ISERROR(LEFT(RC[1],10)*1),left(RC[2],7)*1,""xxx""),LEFT( _
RC[1],10)*1)"
lezeile = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A2").AutoFill Destination:=Range("A2:A" & lezeile)
With .Columns("A:A")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End With
Application.CutCopyMode = False

Habe immer gedacht, man soll das Select vermeiden indem man Activate benutzt. Ist das auch falsch?

Das heißt, den Teufel mit Beelzebub austreiben.
Beides ist zu 99% überflüssig. Außerdem läuft der Code schneller.
Gruß
Rudi
Anzeige
AW: Blatt aktivieren funktioniert nicht (VBA)
13.04.2011 13:40:15
Hajo_Zi
Hallo Martin,
versuchs So 
Option Explicit
Sub Martin()
With ActiveWorkbook.Worksheets("OP Liste")
'With ActiveSheet
.Range("1:3").Delete shift:=xlUp
.Columns("H:I").Replace What:="'", Replacement:="", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Columns("I:I").Cut .Columns("E:E")
.Columns("H:H").Delete shift:=xlToLeft
.Columns("A:B").Insert shift:=xlToRight
End With
End Sub

AW: Blatt aktivieren funktioniert nicht (VBA)
13.04.2011 15:04:07
Martin
Hallo Hajo
Besten Dank für die Antwort. Ich werde versuchen, die With einzubauen....
Martin
Anzeige

306 Forumthreads zu ähnlichen Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Anzeige
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
7
1
2
2
4
4
8
2
2
2
22
2
22
2
9
8
6
10
5
3
7
1
1