Option Explicit
Sub Spiegel()
Dim eingabeZ As Byte
Dim eingabeS
Dim zeile As Byte
Dim spalte As Byte
Dim d As Byte
eingabeZ = InputBox("Zeilenanzahl?")
eingabeS = InputBox("Spaltenanzahl?")
d = eingabeS * 2
Do
zeile = zeile + 1
For spalte = 1 To eingabeS
ActiveWorkbook.Worksheets(1).Cells(zeile, d) = ActiveWorkbook.Worksheets(1).Cells(zeile, spalte)
d = d - 1
Next spalte
d = eingabeS * 2
spalte = 1
Loop Until zeile = eingabeZ
End Sub
Sub Spiegel2()
Dim eingabeZ As Byte
Dim eingabeS As Byte
Dim zeile As Byte
Dim spalte As Byte
Dim a As Byte
eingabeZ = InputBox("Zeilenanzahl?")
eingabeS = InputBox("Spaltenanzahl?")
a = eingabeZ * 2
Do
zeile = zeile + 1
For spalte = 1 To eingabeS
ActiveWorkbook.Worksheets(1).Cells(a, spalte) = ActiveWorkbook.Worksheets(1).Cells(zeile, spalte)
Next spalte
a = a - 1
spalte = 1
Loop Until zeile = eingabeZ
End Sub
|