Hello again! anscheinend hast du ein großes Projekt vor dir. vielleicht hilft dir das folgende weiter:

Sub Bereichfaerben()

Dim varZelle as Variant

varZelle=inputbox („Anzahl Zellen“)

For y = 1 to varZelle

Call ZelleBlau --------- aufgenommenes Makro

activeCell.offset (0,1). Select

Next

End Sub

hallo nochmal,

Vielleicht hilft dir die folgende Programmierung weiter:

Private Sub OptionenAuswaehlen ()

If frmOptionen.optA.Value=true then

Range (“A5”).Select

Call ZelleBlauFaerben -------Makro

If frmOptionen.optB.Value=true then

Range (“B5”).Select

Call ZelleBlauFaerben -------Makro

If frmOptionen.optC.Value=true then

Range (“C5”).Select

Call ZelleBlauFaerben -------Makro

End if

End Sub

Hellooo, Vielleicht hilft das hier:

Dim loeschen as Variant

Dim Zeilennummer as Variant

Zeilennummer = ActiveCell.Row

Loeschen = MsgBox („soll die Zeile wirklich gelöscht werden?“, vbYesNo)

If loeschen = vbYes Then

Call Zeileloeschen --------------- aufgenommenes Makro:

                                                                                   Sub Zeile Loeschen ()

                                                                                  Selection.EntireRow.Select

                                                                                  Selection.ClearContents

                                                                                   End Sub

Else

Varloeschen = MsgBox („Löschen abgebrochen!“, vbInformation)

End if

End Sub

Vielleicht hilft dir das auch weiter.

Hallo, ich nehme auch einfach an das du mit Formular eine UserForm meinst.

bei sowas bin wie folgt vorgegangen:

Dim last as long

 Last = 4

While Cells (last, 1). Value <> ““ or Cells(last,2). Value<>””

Last = last +1

Wend

Cells (last,1). Select

ActiveCell.FormulaR1C1=txtName.Value

ActiveCell.Offset (0,1). Range (“A1”). Select

“

Call listeSortieren

Upload.Me

Me. hide

End Sub

hoffe konnte helfen.