Probleme mit Z1S1 Bezugsart

Forumthread: Probleme mit Z1S1 Bezugsart

Andreas

Hallo Herber Fans,
ich habe ein Problem, welches ich bisher auch mit Recherche nicht lösen konnte. Aus einer PivotTabelle lese ich die .SourceData aus. Daraus will ich dann den Bereich ermitteln, auf den die Pivot zugreift. SourceData kommt so wie in meiner Konstanten exemplarisch gezeigt als Z1S1 Bezug. Diesen will ich über Split am "!" trennen. So komme ich zum Bezeichner für das Worksheet, aber ich habe noch Probleme die Adresse zu verwerten.
Option Explicit

Sub AdressTest()
Dim rgTest As Range
Dim arrSplit() As String
Const CstrAdress As String = "AUSWERTUNG!Z4S1:Z15S7"
arrSplit = Split(CstrAdress, "!", 2)
'Debug.Print arrSplit(0)
'Debug.Print arrSplit(1)
rgTest = ActiveWorkbook.Worksheets(arrSplit(0)).Range(arrSplit(1).Address(0, 0))
Debug.Print rgTest.Address
End Sub

Weiß jemand von Euch Rat? Das wäre wunderbar!
Vielen Dank und Grüße, Andreas Hanisch

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Probleme mit Z1S1 Bezugsart

Beverly
AW: Probleme mit Z1S1 Bezugsart

Andreas

AW: Probleme mit Z1S1 Bezugsart

23.03.2011 00:09:11

Beverly

Hi Andreas,
möglicherweise gibt es noch eine einfachere Methode, die Adresse direkt umzuwandeln, aber mit folgendem Code ist es ebenfalls machbar:

Sub AdresseUmschreiben()
Dim strAdresse As String
Dim strAdr1 As String
Dim strAdr2 As String
Const CstrAdress As String = "AUSWERTUNG!Z4S1:Z15S7"
strAdresse = Application.Substitute(CstrAdress, "AUSWERTUNG!", "")
strAdr1 = Left(strAdresse, InStr(strAdresse, ":") - 1)
strAdr2 = Mid(strAdresse, InStr(strAdresse, ":") + 1)
strAdresse = Range(Cells(CLng(Mid(strAdr1, 2, InStr(strAdresse, "S") - 2)), _
CLng(Application.Substitute(strAdr1, "Z" & Mid(strAdr1, 2, InStr(strAdr1, "S") - 2) & "S", _
""))), _
Cells(CLng(Mid(strAdr2, 2, InStr(strAdr2, "S") - 2)), _
CLng(Application.Substitute(strAdr2, "Z" & Mid(strAdr2, 2, InStr(strAdr2, "S") - 2) & "S", _
"")))).Address
MsgBox strAdresse
End Sub

AW: Probleme mit Z1S1 Bezugsart

23.03.2011 11:12:07

Andreas

Hallo Karin,
wow, das ist doch aufwändiger als ich so dachte! Ist einerseits komisch, daß man die Bezüge nicht einfach verwenden/ umwandeln kann, aber nun gut. Ich danke Dir für Deine Prozedur für die Adressumschreibung. Ich werde sie einsetzen.
Habe einen schönen Mittwoch und viele Grüße aus Berlin,
Andreas Hanisch

Beliebteste Forumthreads (12 Monate)

Forumthread: Probleme mit Z1S1 Bezugsart

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread