Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makros zusammenführen

Makros zusammenführen
28.02.2008 01:25:00
Gesa
Hallo,
ich würde gern aus 2 Makros ein Makro machen - ich bin leider absolut damit überfordert - habe schon einiges ausprobiert - aber dann klappt irgendwie gar nichts mehr...
1. Makro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 34 Then
'Prüfen ob Eingabe in Spalte 1 in letzter Zeile von Spalte 2 vorhanden
If Not IsEmpty(Me.Cells(Me.Rows.Count, 2).End(xlUp).Offset(0, -1)) Then
Call BeliebigeZeileKopieren
End If
End If
End Sub


2. Makro


Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range, RowHeightMin As Single
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
RowHeightMin = 10 ' Diesen Wert vergrößern, wenn eine Mindestzeilenhöhe nicht  _
unterschritten werden soll
If Target.Row > 1 And Target.Row  PossNewRowHeight, _
WorksheetFunction.Max(CurrentRowHeight, RowHeightMin), PossNewRowHeight) _
_
End If
End With
End If
End If
Application.ScreenUpdating = True
End Sub


Vielen dank im voraus und schöne Grüße
Gesa S.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros zusammenführen
28.02.2008 08:12:00
Specke
Hallo Gesa,
so sollte es klappen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range, RowHeightMin As Single
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
RowHeightMin = 10 ' Diesen Wert vergrößern, wenn eine Mindestzeilenhöhe nicht  _
unterschritten werden soll
If Target.Column = 1 And Target.Row >= 34 Then
(End if) löschen
ElseIf Target.Row > 1 And Target.Row 


Gruß Specke

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige