AW: Zellen höhe per makro kopieren
louis
jab habe ich jetzt auch begriffen, sorry
mein problem liegt halt da das ich das selectierte range in die nächste freie spalte kopiere und noch nicht genau weiss wie ich das zuordnen soll.
also das ist mein code: (bitte nicht lachen da bin ich stolz drauf das ich den mit eurer hilfe hinbekommen habe)
Private Sub Übernehmen_Block_Anzahl_Click() 'einfügen der einzelnen Blöcke in die Tabelle
If Cells(14, 32).Value = 1 Then
A = 27
End If
If Cells(14, 32).Value = 2 Then
A = 39
End If
If Cells(14, 32).Value = 3 Then
A = 51
End If
If Cells(14, 32).Value = 4 Then
A = 63
End If
If Cells(14, 32).Value = 5 Then
A = 75
End If
If Cells(14, 32).Value = 6 Then
A = 87
End If
If Cells(14, 32).Value = 7 Then
A = 99
End If
Dim Sh As Shape, mat As Range
Set mat = Range(Cells(17, A), Cells(125, 101))
For Each Sh In ActiveSheet.Shapes
If Not Intersect(Sh.TopLeftCell, mat) Is Nothing Then Sh.Delete
Next
ActiveWindow.SmallScroll Down:=21
Range(Cells(17, A), Cells(125, 101)).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Y = Cells(17, 17) + Cells(17, 27) + Cells(17, 39) + Cells(17, 51) + Cells(17, 63) + Cells(17, 75) + Cells(17, 87) + Cells(17, 99)
If Cells(14, 32).Value - Y > 0 Then
Dim Check, Counter
Test = True: Zähler = 0 ' Variablen initialisieren.
Do ' Äußere Schleife.
Worksheets("Protokoll").Range("C17:N25").Select
Selection.Copy
Do While Zähler < 8
X = 14
SucheLeer:
If Cells(17, X).Value = "" Then
Range(Cells(17, X), Cells(17, X)).Select
ActiveSheet.Paste
Else
X = X + 1
GoTo SucheLeer
End If
Zähler = Zähler + 1 ' Zähler hochzählen.
If Zähler = Cells(14, 32).Value - Y Then ' Wenn Bedingung = True,
Test = False ' Attributwert auf False setzen.
Exit Do ' Innere Schleife verlassen.
End If
Loop
Loop Until Test = False
End If
Application.CutCopyMode = False
Range("O9:O9").Select
End Sub
ich müsste das ja in diesen teil in etwa so mit reinbringen
If Cells(17, X).Value = "" Then
Range(Cells(17, X), Cells(17, X)).Select
ActiveSheet.Paste
AB=X+1
AC=X+2
AD=X+3
Cells(17, X).ColumnWidth = 20
Cells(17,AB).ColumnWidth = 18
Cells(17,AC).ColumnWidth = 24
Cells(17,AD).ColumnWidth = 30
ich weiss das es nicht so geht mir geht es halt um den ansatz.
wenn ich nerve ruhig sagen.
mfg
louis