VBA Zeilennummer aus Zeller übernehmen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
vielen Dank für Eure Hilfe. Ich habe es zusammen und es läuft. Für mich ist der folgende Code praktisch eine Mondlandung. Es werden bei verbundenen Zeilen automatisch die Zeilenhöhe eingestellt. Anbei der Code (vielleicht braucht ihn mal jemand), Kritik gerne (weil völliger Anfänger):
Sub neu_Fragen_Zeilenhöhe_für_Anmerkungen()
' Sub passt die Zeilenhöhe von verbundenen Zeilen an. Die Zeilen sind in G und H jeweils in Dreierschritten verbunden. Teilweise sind Zeilen ausgeblendet.
' Der die Zeilenhöhe bestimmende Text wird in identisch große, nicht verbundene Zelle kopiert. Diese Zelle bestimmt die Höhe mit autofit.
' Sub wird ausgelöst bei jeder Eingabe im Tabellenblatt durch:
'


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If Not Intersect(Target, Range("g1:h440")) Is Nothing Then
'Call neu_Fragen_Zeilenhöhe_für_Anmerkungen
'End If
'End Sub

Application.ScreenUpdating = False
Dim v, i, j
i = ActiveCell.Row
j = ActiveCell.Column
v = Cells(i, 103).Value 'Hier wird die Zeilennummer der nächsthöheren nicht versteckten Zeile berechnet. Da immer 3 Zeilen verbunden hier die unterste der 3 Zeilen.
'Wenn versteckte Zeilen:
If Cells(i, 99).Value = "stopp" Then '"Stopp" markiert die erste Zeile nach versteckten Zeilen.
Rows(v).Select
Selection.Rows.AutoFit
Rows(v).Offset(-1).Select 'Zeilen werden mit autofit verändert. Sollwert ist Fix 21
ActiveCell.RowHeight = 21
Rows(v).Offset(-2).Select
ActiveCell.RowHeight = 21
Cells(i, j).Select
'Verteilung der von autofit eingestellten Höhe der einen Zeile auf die 3 Zeilen.
If Rows(v).RowHeight > 40 Then
Rows(v).RowHeight = Rows(v).RowHeight - 35
Else
Rows(v).RowHeight = 21
End If
Exit Sub
'Wenn keine versteckte Zeilen:
Else
Rows(i).Offset(-1).Select
Selection.Rows.AutoFit
Rows(i).Offset(-2).Select
ActiveCell.RowHeight = 21
Rows(i).Offset(-3).Select
ActiveCell.RowHeight = 21
End If
'Verteilung der von autofit eingestellten Höhe der einen Zeile auf die 3 Zeilen.
If Rows(i).Offset(-1).RowHeight > 40 Then
Rows(i).Offset(-1).RowHeight = Rows(i).Offset(-1).RowHeight - 35
Else
Rows(i).Offset(-1).RowHeight = 21
End If
'Versteckte Zeilen werden durch das Makro eingeblendet. Die versteckten Zeilen sind mit "X" markiert und werden wieder versteckt.
If Cells(i - 1, 82).Value = "X" Then
Rows(i - 1).EntireRow.Hidden = True
Rows(i - 2).EntireRow.Hidden = True
Rows(i - 3).EntireRow.Hidden = True
Cells(i, j).Select
End If
Cells(i, j).Select
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

VBA Zeilennummer aus Zeller übernehmen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

365 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeilennummer aus Zeller übernehmen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

365 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread