Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion Range asl Rückgabewert?

Funktion Range asl Rückgabewert?
30.01.2009 08:20:00
Horst
Hey !
Ich habe gelesen das ich nur in einer Funktion eine Wertrückgabe definieren kann?
Ich habe aber nur String, Boolean, Integer usw. als mögliche Rückgabewerte gefunden
kann ich auch einen Weterbereich (Range) oder sogar ein ganzes WorkSheet zurückgeben?
Also wie z.B.
--------------------------------------------------------

Function meineFunktion(meinSheet AS Worksheet) As Range
Dim meinRange As Range
meinRange = meinSheet.Range(A1:A10)
meineFunktion = meinRange
End Function


---------------------------------------------------------------
Gruß
Horst

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

Betreff
Datum
Anwender
Anzeige
AW: Funktion Range asl Rückgabewert?
30.01.2009 08:41:19
Tino
Hallo,
natürlich geht das, hier mal ein Beispiel.
Es wird nach einen Tabellennamen mit dem vorgegebenen Inhalt gesucht und
die Tabelle auch zurückgegeben.
Sub SuchTabellenNamenMitInhalt()
Dim meTab As Worksheet
Dim Gefunden As Boolean

Set meTab = SucheTabelle("2", Gefunden)

If Gefunden = True Then
 MsgBox "Die Tabelle " & meTab.Name & " wurde gefunden"
Else
 MsgBox "Keine Tabelle gefunden"
End If

End Sub

Function SucheTabelle(strText As String, ByRef Gefunden As Boolean) As Worksheet
 Dim i As Integer
 
 For i = 1 To ThisWorkbook.Worksheets.Count
  If Worksheets(i).Name Like "*" & strText & "*" Then
   Gefunden = True
   Set SucheTabelle = Worksheets(i)
   Exit Function
  End If
 Next i

Set SucheTabelle = ActiveSheet
End Function


Gruß Tino

Anzeige
AW: Worksheet bzw. Range als Rückgabewert
30.01.2009 09:11:00
Erich
Hi Horst,
hier noch ein Beispiel - zum Spielen.
Die Mappe sollte mindestens zwei Tabellenblätter haben, in A1:A10 sollten ein paar Zahlen stehen.
meinBereich tut dasselbe wie meineFunktion, ist nur etwas kürzer.
test wird unterschiedliche Ergebnisse bringen - je nachdem, welches das aktive Blatt ist.

Option Explicit
Function meineFunktion(meinSheet As Worksheet) As Range
Dim meinRange As Range
Set meinRange = meinSheet.Range("A1:A10")
meineFunktion = meinRange
End Function
Function meinBereich(meinSheet As Worksheet) As Range
Set meinBereich = meinSheet.Range("A1:A10")
End Function
Function NextBlatt(wksA As Worksheet) As Worksheet
If Worksheets.Count = 1 Then
Set NextBlatt = Nothing
ElseIf wksA.Index

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Funktion Range asl Rückgabewert?
30.01.2009 09:17:00
Horst
Hey !
habt Dank Ihr beiden.
Gruß
Horst

300 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
@Nepumuk - mehrdimensionale ArraySortierung in ASP
Martin

Hallo Nepumuk,
ich bin bereits seit 2001 Mitglied und regelmäßiger Besucher hier im Forum. Allerdings stelle ich heute ausnahmsweise einmal eine "Nicht-Excel"-Frage. Ich beschäftige mich neben Excel VBA auch mit ASP (Active Server Pages), die ebenfalls auf Visual Basic basieren. Auch mit AS...
11.01.2009 14:10:00
Thread-ID: 1038651
9 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
Anzeige
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Range zusammenfassen (Code abkürzen)?
Florian

Guten Morgen Excel-Volk!
Habe eine Frage bzgl. Ranges: habe oft verschiedene, nichtzusammenhängende Bereiche, die gleich formatiert werden sollen, z.B.
With .Range(.Cells(8, 2), .Cells(8, 45))
.[FORMAT]
End With
With .Range(.Cells(17, 2), .Cells(17, 45))
.[gleiches FORM...
05.02.2010 07:54:34
Thread-ID: 1135993
3 Beiträge
Eindimensionales Array mit Range("A1:B40000") bild
Peter

Hallo Forum
In den Spalten A und B sind je 40.000 Werte und ich möchte die Unikate in Spalte D ausweisen.
Wie bekomme ich den Range("A1:B40000") in ein eindimensionales Array eingelesen.
Bisher kopiere ich die Spalten untereinander (bis 65536 Zeilen) und lese die Werte dann ein... <...
16.05.2010 13:39:12
Thread-ID: 1157244
5 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 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
4
12
8
6
4
3
10
2
4
6
10
3
2
5
2
2
9
4
2
3
7
4
1
1
3