Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

unterschiedliche SheetNamen in einem Code

unterschiedliche SheetNamen in einem Code
01.07.2005 10:05:26
Norman
Hallo Forum,
ich verwende z.Z. einen Code der sich auf ein Sheet bezieht.
Auszug des Codes:
For Each cell In Sheets("TeleList_AK3").Columns("M").Cells.SpecialCells(xlCellTypeConstants)
Nun möchte ich meinen Code auch für das neue zweite Sheet (TeleList_AK4) verwenden. Wie kann ich meinen Code für beide Sheets verwenden?
In der Mappe existiert auch noch ein weiteres Sheet (Ablage_nichtAktiv) das
aber nicht mit dem Code zu tun hat.
Danke für Ideen und Hilfe.
Norman


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: unterschiedliche SheetNamen in einem Code
01.07.2005 10:23:10
IngGi
Hallo Norman,
so zum Beispiel:

Sub xy()
Dim wks As Worksheet
For Each wks In Workbooks("Dateiname").Worksheets
If wks.Name <> "Ablage_nichtAktiv" Then
For Each cell In Sheets("TeleList_AK3").Columns("M").Cells.SpecialCells(xlCellTypeConstants)
Next cell
End If
Next wks
End Sub

Gruß Ingolf
AW: unterschiedliche SheetNamen in einem Code
01.07.2005 10:31:58
Norman
Hallo Ingolf,
ich hab mich falsch ausgedrückt, mit dem Sheet "Ablage_nichtAktiv" hat das alles nichts
zu tun, vergessen wir mal das es dieses gibt.
Ich brauche eine Lösung das wenn ich den Button auf dem Sheet "TeleList_AK3" klicke das
der Code auch mit dem Sheet arbeitet. Wenn ich aber den Button auf dem Sheet "TeleList_AK4" klicke, wird der gleiche Code verwendet, aber dieser Code soll dann mit dem Sheet "TeleList_AK4" arbeiten.
Ich hatte gedacht das es irgendwie mit AktiveSheet gehen könnte, aber nicht darauf gekommen wie weil ich auch nicht so die Ahnung von VBA habe.
Danke für weitere Hilfe
Norman
Anzeige
AW: unterschiedliche SheetNamen in einem Code
01.07.2005 11:27:41
Heinz
Hallo Norman,
ersetze einfach
For Each cell In Sheets("TeleList_AK3").Columns("M").Cells ...
durch
For Each cell In ActiveSheet.Columns("M").Cells ...
Du kannst das ActiveSheet auch weglassen, da ja bei Fehlen einer genauen Referenzierung sowieso die aktive Tabelle genommen wird, also
For Each cell In Columns("M").Cells ...
Gruß
Heinz
AW: unterschiedliche SheetNamen in einem Code
01.07.2005 14:17:41
Norman
Danke Heinz,
das ist ja so einfach das es mir schon fast peinlich ist gefragt zu haben,
aber man lernt nie aus...
Gruß Norman

299 Forumthreads zu ähnlichen Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Anzeige
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
Anzeige
Monatsnamen mit Jahr (VBA)
Andre´

Hallo alle zusammen,
mit folgenden Makro schreibe ich das aktuelle Datum in A1:
Sub Monat() Range("A1") = Str(Date) End Sub
in A1 steht dann:
18.11.2008
Jetzt möchte ich aber den Monatsnamen und das Jahr in A1 wie folgt haben:
November 2008
Kann mir bitte jemand e...
18.11.2008 17:30:00
Thread-ID: 1025713
11 Beiträge
per VBA kopieren, kein Namenskonflikt
Peter

Guten Tag
Beim Kopieren eines Bereiches mit VBA in eine andere Tabelle erhalte ich die Meldung:
"Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits in der Zieltabelle vorhanden ist. Soll die vorhandene Definition von 'xxxxx' verwendet werden?
* Klicken Sie auf '...
11.12.2008 10:45:09
Thread-ID: 1031973
3 Beiträge
worksheet.activate über Name aus Eigenschaften
michael

Hallo Kollegen.
Folgendes Thema:
Ich habe eine Datei als Kopiervorlage, bei der das erste Blatt nicht umbenannt werden soll, weil ich beim schließen der Datei dorthin zurück springe und Aufgaben erledige.
Erst habe ich über Application.CommandBars("ply").Enabled = True die Funktion...
20.01.2009 19:10:54
Thread-ID: 1041968
5 Beiträge
Namensvergabe per VBA
Boris

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X...
30.01.2009 12:14:00
Thread-ID: 1045354
8 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Anzeige

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
4
5
3
3
4
10
2
4
7
7
11
4
3
2
1
11
2
6
7
7
3
5
5
5
11