AW: Transponieren mit Verknüpfung per VBA
14.04.2005 21:46:55
Harry
Hi Janine,
hatte gestern deine Frage wohl komplett missverstanden - sorry :-|...
hab da was getestet, was dir vielleicht weiterhelfen könnte:
Option Explicit
Sub Verknüpfungen_einfügen()
Dim Quellzeile As Integer
Dim Zielspalte As Integer
Dim i, n, Intervall As Integer
Dim vQuellzeile, vZielspalte, vIntervall
Sheets("Tabelle2").Select
eingabe1:
vQuellzeile = InputBox("Bitte Wert eingeben:", "Quellzeile (Zeilennummer)")
If Not IsNumeric(vQuellzeile) Then
MsgBox "Dies ist keine gültige Quellzeile!", vbExclamation, "Zahl"
GoTo eingabe1
End If
Quellzeile = vQuellzeile
If Quellzeile = 0 Or Quellzeile > 65536 Then
MsgBox "Quellzeile liegt ausserhalb des gültigen Bereichs!", vbCritical, _
"Bereich: Zeile 1 bis max. 65536"
GoTo eingabe1
End If
eingabe2:
vZielspalte = InputBox("Bitte Wert eingeben (z.B.: 1 für Sp. A, 2 für Sp. B, u.s.w...):", _
"Zielspalte (Spaltennummer)")
If Not IsNumeric(vZielspalte) Then
MsgBox "Dies ist keine gültige Zielspaltennummer!", vbExclamation, "Zahl"
GoTo eingabe2
End If
Zielspalte = vZielspalte
If Zielspalte = 0 Or Zielspalte > 256 Then
MsgBox "Quellzeile liegt ausserhalb des gültigen Bereichs!", vbCritical, _
"Bereich: Spalte 1 bis max. 256"
GoTo eingabe2
End If
eingabe3:
vIntervall = InputBox("Bitte Wert eingeben:", "Intervall")
If Not IsNumeric(vIntervall) Then
MsgBox "Dies ist kein gültiges Intervall!", vbExclamation, "Zahl"
GoTo eingabe3
End If
Intervall = vIntervall
If Intervall = 0 Or Zielspalte * Intervall > 256 Then
MsgBox "Das Intervall liegt ausserhalb des gültigen Bereichs!"
GoTo eingabe3
End If
MsgBox "Quellzeile = " & Quellzeile & ", Zielpalte = " & Zielspalte & ", Intervall = " & _
Intervall, vbOKOnly, "Verknüpfungen einfügen"
Cells(1, Zielspalte).Value = _
"=Tabelle1!" & Worksheets("Tabelle1").Cells(Quellzeile, 1).Address
i = 255
For n = 1 To i
If n * Intervall > i Then
Exit For
End If
Cells(1 + n, Zielspalte).Value = _
"=Tabelle1!" & Worksheets("Tabelle1").Cells(Quellzeile, 1 + n * Intervall).Address
Next n
End Sub
...könnte funzen, falls du dich noch mal hier her "verirrst" ;-)
Gruss
Harry