Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range Variable - Spaltenwert verändern

Range Variable - Spaltenwert verändern
15.07.2005 12:14:33
Benjamin
Hallo zusammen,
bin in VBA eher Anfänger...
Bin dabei eine benutzerdef. Funktion zu erstellen.
Ich übergebe der Funktion die Variable "Suchbereich" (Range)
Soweit so gut...
Jetzt muss ich allerdings den Bereich in der Variable verändern. Leider habe ich keine Ahnung wie der Wert in der Variable aussieht, da ich ja im Normalfall nicht weiß was für einen Bereich der User eingibt.
Verändert werden muss die Anfangsspalte des Bereiches.
Habe schon versucht mit Suchbereich.column zum Ziel zu kommen (nach dem Muster "Suchbereich.Column = Suchbereich.Column + 2" - irgendwie ohne Erfolg.
Hat hier jemand einen Denkansatz?
Danke im Voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range Variable - Spaltenwert verändern
15.07.2005 12:49:43
WernerB.
Hallo Benjamin,
wie gefällt Dir das?

Sub Benjamin()
Dim Suchbereich As Range, SuBe2 As Range, _
zo As Long, zu As Long, _
sl As Integer, sr As Integer
With ActiveSheet
Set Suchbereich = .Range("D3:H16")
zo = Suchbereich.Row                                     'Zeile oben
zu = Suchbereich.Rows.Count + Suchbereich.Row - 1        'Zeile unten
sl = Suchbereich.Column                                  'Spalte links
sr = Suchbereich.Columns.Count + Suchbereich.Column - 1  'Spalte rechts
Set SuBe2 = .Range(.Cells(zo, sl + 2), .Cells(zu, sr))
End With
MsgBox SuBe2.Address(False, False)
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Range Variable - Spaltenwert verändern
15.07.2005 14:12:53
Benjamin
Hallo,
grundsätzlich ganz gut.
Leider funktioniert das nicht. Ich denke, dass man in einer Funktion nicht mit ActiveSheet usw. arbeiten kann - möglicherweise ? ?
Kann da einer was zu sagen?
Hänge die Datei gleich mal an - wenn einer reinsehen mag.
Gruß Benjamin
AW: Range Variable - Spaltenwert verändern
15.07.2005 15:37:36
WernerB.
Hallo Benjamin,
meine este Antwort war nicht als fertige Lösung gedacht, sondern nur als Denkanstoß.
Ich habe auch absolut keine Lust, mich durch Deine "Elefanten-Funktion" zu quälen; trotzdem kommt hier noch ein zweiter Denkanstoß - diesmal ohne "ActiveSheet":

Function Benjamin(Suchbereich As Range) As String
Dim Suchbereich2 As Range, _
zo As Long, zu As Long, _
sl As Integer, sr As Integer
zo = Suchbereich.Row                                     'Zeile oben
zu = Suchbereich.Rows.Count + Suchbereich.Row - 1        'Zeile unten
sl = Suchbereich.Column                                  'Spalte links
sr = Suchbereich.Columns.Count + Suchbereich.Column - 1  'Spalte rechts
Set Suchbereich2 = Range(Cells(zo, sl + 2), Cells(zu, sr))
MsgBox "alter Suchbereich:  " & Suchbereich.Address(False, False) & _
vbCr & "neuer Suchbereich:  " & Suchbereich2.Address(False, False)
End Function

Gruß
WernerB.
Anzeige
AW: Range Variable - Spaltenwert verändern
18.07.2005 08:59:24
benjamin
Vielen Dank!
Funktioniert jetzt!!!

266 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Anzeige
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
20
9
2
2
3
3
16
6
1
4
2
2
6
2
1
4
2
6
2
2
4