Re: Makro in einer Schleife ausführen
08.12.2002 21:13:23
Hajo_Zi
Hallo Rolfich lebe in den neuen Bundesländer und während meiner Schulzeit war Latein nicht aktuell, und dies ist jetzt auch schon paar Jahrzehnte her.
LoI ist eigentlich nur ein Kennzeichen für eine Variable. Ich versuche mich in neuster Zeit an folgendes System zu halten 2 Buchstaben für den Typ und danach der Variablen Namen
Lo = Long, I = Variablennamen
For InI = 2 To
ist die Zweite Schleife ab zweiter Spalte ( in erster Spalte steht das Lateinische Wort, darum ab 2 Spalte bis zur letzten Spalte in der Zeile)
Die erste Schleife ist für die Zeilen.
hier noch mal der Code mit einigen Kommentaren. Auf Kommentare verzichte ich Grundsätzlich im ersten Posting, da nicht klar ist ob interesse am Code.
Option Explicit
Sub Rolf()
Dim LoLetzteZeile As Long
Dim InLetzteSpalte As Integer
Dim LoI As Long
Dim InI As Integer
' Letzte Zeile in Spalte A feststellen
If [a65536] = "" Then
LoLetzteZeile = [a65536].End(xlUp).Row
Else
LoLetzteZeile = 65536
End If
' Schleife für die Zeilen von der Letzten Zeile
' bis zu Zeile 2
For LoI = LoLetzteZeile To 2 Step -1
' feststellen der letzten Spalte in dr aktuellen Zeile
If Cells(LoI, 256) = "" Then
InLetzteSpalte = Cells(LoI, 256).End(xlToLeft).Column
Else
InLetzteSpalte = 256
End If
' Bearabeitung der akuellen Zeile
For InI = 2 To InLetzteSpalte
Rows(LoI + 1).EntireRow.Insert
' schreibe das Lateinische Wort der erstenSpalte in die neue Zeile
' und danach die Übersetzung der aktuellen Spalte
Cells(LoI + 1, 1) = Cells(LoI, 1)
Cells(LoI + 1, 2) = Cells(LoI, InI)
Next InI
' lösche die Zeile mit allen Übersetzungen in einer Zeile
Rows(LoI).Delete
Next LoI
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo