Makro Zellinhalt dynmisch überschreiben

Hi Spezialisten,
bin etwas unbeleckt was VBA angeht und hoffe auf eure Hilfe.
Hatte heute morgen hier das Thema:
MAKRO Drehfelder "aktueller Wert" Nullen erstellt.
Da es noch keine Antwort gibt und ich seit Tagen schon das Internet durchforste, kam mir vorhin eine kleine, aber doch gewinnversprechende Idee.
Ich möchte in meinem Sheet "Zubehör" von Zelle H4 bis H...(Ende der formatierten Tabelle, sollte dynamisch sein, falls die Tabelle sich weiter füllt) den aktuellen Inhalt dieser Zellen (der Inhalt stammt aus der Zellverknüpfung von Formularsteuerelementen Drehfeld im Sheet "Auswahl" mit einer einfachen 0 überschreiben.
Dadurch wird in dem Drehfeldern der interne, "aktuelle Wert" auch auf Null gesetzt.
Das ist quasi der Rückwärtsweg.
Wenn das von Zubehör!H4 bis Zubehör!H...Tabellenende funktioniert, möchte ich dieses Makro (Überschreiben mit Null) mit einem Button auf dem Sheet "Auswahl" verknüpfen um dadurch dann alle Drehfelder intern auf den Wert Null zu setzen.
Mein sicherlich mikriger Quellcode sieht bisher folgendermaßen aus:

Sub Ueberschreibe_Zellinhalt_H4bisH207()
'Kommentar
Dim intI As Integer
For intI = 1 To 207
Range("H4").Value = 0
Next
End Sub

H4 wird auch genullt, mehr aber auch nicht.
Bitte um Hilfe ;-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ueberschreibe_Zellinhalt_H4bisH207() lstrow = Sheets("Zubehör").Cells(Rows.Count, 8).End(xlUp).Offset(0, 0).Row 'Kommentar Dim intI As Integer For intI = 1 To 207 For n = 4 to lstrow Cells(n,8).Value = 0 Next n Next End Sub


lstrow = Sheets("Zubehör").Cells(Rows.Count, 8).End(xlUp).Offset(0, 0).Row

Sheets("Zubehör") - sagt aus welches Tabellenblatt gemeint ist
Cells(Rows.Count,8) - gibt eine Zelle an, wobei der erste Wert die Zeile (als Nummer) und die Spalte (ebenfalls als Nummer!) darstellt. // Rows.Count zählt die Zeilen
End(x1Up) - sagt ".End" weisst EXCEL an, dass es dort beginnen soll zu zählen xlUp gibt die Richtung an
Offset(Zeile,Spalte) - mit Offset kannst du von der gefunden letzten Zeile, wenn man z.B. Offset(1,0) schreibt, eine Zeile nach unten gehen. also das man quasi die letzte benutze Zeile sucht und dann noch eine runter geht.
Wegen der Schleife:
Ja, eine Schleife kannst du gut dazu gebrauchen um ganze Reihen oder Spalten zu füllen.

For n = 4 to lstrow

Er Soll in Zeile 4 anfangen und bis zur "lstrow" letzten Zeile laufen.

Cells(n,8).Value = 0

Cells ist wie oben beschrieben - Cells(Zeile,Spalte) , hierbei ist die Spalte 8 = H... lässt sich ja im Alphabet durchzählen ;)
Hoffe das war einigermaßen verständlich, falls nicht ruhig fragen, dann versuch ich es nochmal anders.
Gruß
kimbo

Beliebteste Forumthreads (12 Monate)

Makro Zellinhalt dynmisch überschreiben

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Zellinhalt dynmisch überschreiben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread