Mehrfachselektion von Sheets - Zeilen einfügen

Sub Zeilen_einfuegen() Dim strLinks As Integer, x As Integer, y As Integer y = 0 strLinks = "02" For x = 1 To ThisWorkbook.Worksheets.Count If Left(Worksheets(x).Name, 2) = strLinks Then y = y + 1 Select Case y Case 1 Worksheets(x).Select Case Else Worksheets(x).Select (False) 'ab 2. Tabelle bereits selektierte Tabelle nicht _ deselectionieren End Select End If Next x If y 0 Then Cells(2, 1).EntireRow.Insert 'wenn keine Tabellen mit strLinks gefunden werden, _ keine Aktion End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Zeilen_einfuegen() Dim strLinks As Integer, x As Integer strLinks = "02" For x = 1 To ThisWorkbook.Worksheets.Count If Left(Worksheets(x).Name, 2) = strLinks Then Worksheets(x).Cells(2, 1).EntireRow.Insert End If Next x End Sub

Option Explicit Sub Zeilen_einfuegen() Dim strLinks As Integer, x As Integer GetMoreSpeed (True) strLinks = "02" For x = 1 To ThisWorkbook.Worksheets.Count If Left(Worksheets(x).Name, 2) = strLinks Then Worksheets(x).Cells(2, 1).EntireRow.Insert End If Next x GetMoreSpeed (False) End Sub Public Static Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Dim intCalculation As Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Sub Zeilen_einfuegen() Dim strLinks As Integer, x As Integer, y As Integer Dim WS As Worksheet strLinks = "02" For Each WS In ThisWorkbook.Worksheets If Left(WS.Name, 2) = strLinks Then WS.Cells(2, 1).EntireRow.Insert Next WS End Sub

…Leute (& Peter)!
1. Was soll zB das →
Dim strLinks As Integer und dann aber …
strLinks = "02" ?
Das beweist nur, das Peter von Variablendeklaration kA hat geschweige denn von UN, ob echt oder verballhornt (wie leider im Forum propagiert).
str wird von Vertretern der verballhornten PrimitivVariante der UN gemeinhin als Präfix zur Kennzeichnung jedweder Art von TextVariablen benutzt. Gleichzeitig wird diese Variable aber als ganzzahlig (also Zahl!) deklariert und ihr schließlich aber ein Text zugewiesen. Da der numerisch ist, wird er automatisch in die Ganzzahl 2 umgewandelt (sonst gäbe es hier den 1.Fehler!). Außerdem ist so etwas ohnehin Quatsch, denn bei fester Wertzuweisung verwendet man üblicherweise eine Konstante (um bei Peters Pseudo-UN zu bleiben Const strLinks As String = "02" oder Const intLinks As Integer = 2 → da es sich beim späteren Vgl aber um Benennungs- also Textteile handelt, wäre wohl Ersteres treffender).
2. Mit dieser Zykluskonstruktion kann man die betroffenen Blätter nur nacheinander aus- bzw anwählen, was ja auch ausreichen sollte, zumal man so leicht auf .Select verzichten kann. Anderenfalls müsste hier (wg Vgl) erst eine Liste der betroffenen Blätter erstellt wdn, wozu es auch eines Zyklus bedarf. Diese Liste kann man dann gleichzeitig ansprechen, selektieren oder gleich ändern.
Zu dem, was dann im hier gezeigten Zyklus steht, schweigt des „Sängers Höflichkeit“ lieber… ;->
Gruß Luc :-?

Sub Test() dim wksOld as worksheet dim lRow as long dim iCol as integer [Code] set wksOld = Sheets("Tabelle1") 'hier den Tabellennamen anpassen lRow = 5 'mit Zeile 5 iCol = 7 'mit Spalte 7 [Code] with wksOld.cells(lrow,icol) ...

Sub Test() 'alle Zellen einer gegebenen Tabelle in einer gegeben Zeile einmal anfassen Const wksOld as worksheets = Sheets("Tabelle1") Const lRow As Long = 5 Dim iCol As Integer Dim rBereich As Range With wksOld iCol = .Cells(lRow, .Columns.Count).End(xlToLeft).Column For Each rBereich In .Range(.Cells(lRow, 1), .Cells(lRow, iCol)) rBereich.Select Next rBereich End With End Sub

…wie du willst, Klaus,
und der Wikipedia-Artikel, den ich gelesen habe ist sogar recht gut, weil er auch gleich den Ursprung dessen, was ich Verballhornung nenne, erklärt. Das haben die Windows-Pgmmierer verbockt, nicht die von Office (die hatten sie mal in akademischen Archiven entdeckt), die die UN noch im Sinne des Erfinders benutzt hatten, denn es kommt ja wohl nicht darauf an, im UN-Präfix die Deklaration zu wiederholen, sondern eher, den Verwendungszweck zu vermerken. Darauf können sich die an einem Projekt beteiligten Pgmierer einigen, indem sie vor Beginn der Arbeiten eine sog Namenskonvention festlegen. Die muss ja auch nicht im Detail der UN folgen. PH scheint, wenn überhpt, eher Anhänger eines moderaten bzw VerwendungszweckPräfix zu sein, deshalb das i für Long, denn sowohl Integer als auch Long meinen ja Ganzzahlen (wenn auch m.unterschdl Wertevorrat).
Allerdings gibt's auch Ggmeinungen, die einen sauberen Code (ohne UN) fordern (wohl aus dem gleichen Grund, warum Schlüssel nicht sprechend sein sollten → ggf größerer Änderungsaufwand zur Vermeidung von Ungereimtheiten wie sie Peter hier wunderbar demonstriert hat). ;-)
Ich verwende UN-analoge Präfixe nur manchmal (muss mich ja mit niemandem abstimmen) und dann eher verwendungszweckbezogen. Ein schönes Bsp dafür ist mein Präfix is-, das ich sowohl für Boolean- als auch Integer-Variablen (meist aus Enumerationen) einsetze, wenn sie Vergleichen dienen sollen, zB Let isRange = TypeName(Bezug) = "Range", was einen Booleschen Wert ergibt, oder Dim isAnything As msoTristate, was letztlich einem (speziellen) Integer-Wert entspricht.
Im Übrigen soll MS inzwischen von der UN abgerückt sein — war halt doch schon sehr betagt. In den Code-Bspp der VBE-Hilfe findet man das auch nicht! Desweiteren sollte man den Endnutzer aus so etwas heraushalten, also weder ProzedurNamen mit vorangestelltem fnc bzw prc noch Argumente und Parameter derselben derart „ausschmücken“! Das wirst du bei mir auch nicht finden. Nebenbei, die GB-Regel, die manche bei Konstantennamen vereinbart haben, finde ich auch nicht so toll.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Mehrfachselektion von Sheets - Zeilen einfügen

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrfachselektion von Sheets - Zeilen einfügen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread