Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich variabel markieren

Bereich variabel markieren
Peter
Hallo zusammen,
ich habe folgendes Problem. Ich habe einen Bereich, der allerdings von der Größe variabel sein kann. Diesen Bereich möchte ich (per VBA) markieren um im zweiten Schritt dort Formeln einzufügen.
Könnt ihr mir da bitte weiterhelfen? Mir fehlt leider der Ansatz...
Danke schonmal. Eine Beispielmappe hab ich angehängt.
Gruß,
Peter
https://www.herber.de/bbs/user/77706.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich variabel markieren
28.11.2011 17:16:20
Wolfgang
Hallo Peter,
versuchs mal so.
____AnfangMakro_____________________________ 
Sub BereichSetzen_FormelSchreiben()
Dim Spalte As Integer
Dim Zeile As Integer
Spalte = 2
Zeile = 2
'Spalte-bis finden
Spalte_weiter:
Spalte = Spalte + 1
If Cells(2, Spalte + 1)  "" Then GoTo Spalte_weiter
'Zeile-bis finden
Zeile_weiter:
Zeile = Zeile + 1
If Cells(Zeile + 1, 2)  "" Then GoTo Zeile_weiter
'Formeln eintragen
For setzzeile = 3 To Zeile
For setzSpalte = 3 To Spalte
Cells(setzzeile, setzSpalte).FormulaR1C1 = "=R1C1"
Next setzSpalte
Next setzzeile
End Sub

___________EndeMakro___________________________
Gruß Wolfgang
Anzeige
AW: Bereich variabel markieren
28.11.2011 18:10:40
hary
Hallo Peter
als Einzeiler. Wobei Frage welche Formel? 

Sub beides()
Cells(3, 3).Resize(Cells(Rows.Count, 2).End(xlUp).Row - 2, Cells(2, Columns.Count).End(xlToLeft) _
.Column - 2).FormulaR1C1 = "=R1C1"
End Sub
gruss hary
gruss hary
AW: Bereich variabel markieren
29.11.2011 08:31:41
Peter
Hallo Hary, Hallo Wolfgang,
danke euch beiden. Funktioniert beides wunderbar.
Die Formel habe ich nur nicht gepostet, weil es eine ellenlange istfehler/index-Formel ist. Dachte mir, das erspare ich euch.
Nochmal vielen Dank!
Gruß,
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige