Thema Datum  Von Nutzer Rating
Antwort
29.09.2013 15:59:56 Jörg
NotSolved
29.09.2013 17:27:02 Holger
NotSolved
29.09.2013 18:00:12 Jörg
NotSolved
29.09.2013 23:45:04 Gast6677
NotSolved
30.09.2013 15:37:12 Jörg
NotSolved
30.09.2013 18:25:39 Gast71176
NotSolved
01.10.2013 13:10:50 Jörg
NotSolved
01.10.2013 14:52:16 Gast38243
NotSolved
02.10.2013 00:06:16 Jörg
NotSolved
02.10.2013 03:03:09 Gast75873
NotSolved
02.10.2013 14:20:42 Jörg
NotSolved
Blau Problem mit Variablen in Sverweis
02.10.2013 16:46:36 Gast58115
NotSolved
02.10.2013 20:04:25 Jörg
NotSolved
02.10.2013 23:48:56 Gast12290
NotSolved
05.10.2013 14:48:47 Gast43599
NotSolved
02.10.2013 16:52:56 Gast78404
NotSolved
02.10.2013 20:05:25 Jörg
NotSolved
03.10.2013 11:48:05 Jörg
Solved
03.10.2013 12:39:17 Gast42493
NotSolved
05.10.2013 12:44:44 Jörg
NotSolved
05.10.2013 14:35:03 Gast37407
NotSolved

Ansicht des Beitrags:
Von:
Gast58115
Datum:
02.10.2013 16:46:36
Views:
870
Rating: Antwort:
  Ja
Thema:
Problem mit Variablen in Sverweis

Ok, ich wieder. Du machst es dir unnötig kompliziert. Excel bietet dafür schon fertige Möglichkeiten. Man muss das Rad also nicht völlig neu erfinden.

Für dein spezielles Anliegen mal das hier zur Veranschaulichung:

Option Explicit

Sub Beispiele()
 
  'Ausgabe im Direktbereich von VBA:
  '(ggf. einblenden mit STRG+G, bzw. siehe Menü: Ansicht)
 
  'Nachfolgende Angaben sind alles absolute Zellenbezüge
 
  Debug.Print
  Debug.Print "Zelle definieren:"
  Debug.Print GenAddress(1, 1, Worksheet:="Tab1")
  Debug.Print GenAddress(1, "A", Worksheet:="Tab2")
  Debug.Print GenAddress(1, "A", Worksheet:="Tab3", ReferenceStyle:=xlR1C1)
 
  Debug.Print
  Debug.Print "Bereich definieren:"
  Debug.Print GenAddress(1, 1, 5, 1, "Tab4")
  Debug.Print GenAddress(1, "A", 5, "A", "Tab5")
  Debug.Print GenAddress(1, "A", 5, "A", "Tab6", ReferenceStyle:=xlR1C1)
 
End Sub

'Hilfsfunktion für Jörgs spezielles Anliegen
Public Function GenAddress( _
    Row, Column, _
    Optional RowTo, Optional ColumnTo, _
    Optional Worksheet As String, _
    Optional ReferenceStyle As XlReferenceStyle = xlA1 _
) As String
 
  If Trim$(Worksheet) = "" Then
    GenAddress = Cells(Row, Column).Address(ReferenceStyle:=ReferenceStyle)
  Else
    GenAddress = "'" & Trim$(Worksheet) & "'!" & Cells(Row, Column).Address(ReferenceStyle:=ReferenceStyle)
  End If
  
  'soll eine Bereichsangabe erzeugt werden?
  If Not (IsMissing(RowTo) Or IsMissing(ColumnTo)) Then
  'ja, die Hilfsfunktion nutzt sich selbst, um das Ende des Bereichs zu bilden
    GenAddress = GenAddress & ":" & GenAddress(RowTo, ColumnTo, ReferenceStyle:=ReferenceStyle)
  End If
 
End Function

Du solltest den Quellcode ggf. im Einzelschritt (F8-Taste) ausführen und dir anschauen was da der Reihe nach passiert.
Inhalte von Variablen kannst du dir ansehen, indem du den Mauszeiger über sie bewegst und kurz wartest. Der Inhalt erscheint dann als Tooltip.

 

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2013 15:59:56 Jörg
NotSolved
29.09.2013 17:27:02 Holger
NotSolved
29.09.2013 18:00:12 Jörg
NotSolved
29.09.2013 23:45:04 Gast6677
NotSolved
30.09.2013 15:37:12 Jörg
NotSolved
30.09.2013 18:25:39 Gast71176
NotSolved
01.10.2013 13:10:50 Jörg
NotSolved
01.10.2013 14:52:16 Gast38243
NotSolved
02.10.2013 00:06:16 Jörg
NotSolved
02.10.2013 03:03:09 Gast75873
NotSolved
02.10.2013 14:20:42 Jörg
NotSolved
Blau Problem mit Variablen in Sverweis
02.10.2013 16:46:36 Gast58115
NotSolved
02.10.2013 20:04:25 Jörg
NotSolved
02.10.2013 23:48:56 Gast12290
NotSolved
05.10.2013 14:48:47 Gast43599
NotSolved
02.10.2013 16:52:56 Gast78404
NotSolved
02.10.2013 20:05:25 Jörg
NotSolved
03.10.2013 11:48:05 Jörg
Solved
03.10.2013 12:39:17 Gast42493
NotSolved
05.10.2013 12:44:44 Jörg
NotSolved
05.10.2013 14:35:03 Gast37407
NotSolved