Office: Range-Bereich mit Variablen definieren

BastiHivo · 30. September 2019

Hallo zusammen,

ich habe folgendes Problem: Ich möchte gerne einen bestimmten Bereich per Range mit Variablen definieren.

Aktuell sieht das ganze so aus:

Code:

Dim i as Integer
Dim FolieBereich as Range

Set FolieBereich = Sheets("Tabelle1").Range("C" & i & ":CZ" & i + 3)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe auch schon hin und her probiert aber funktioniert hat es bis jetzt nicht.. *frown.gif*

Vielleicht weiß einer von euch wie es umsetzbar ist.

Vielen Dank im Voraus!

Beste Grüße
Basti

:)

Mase · 1. Oktober 2019

Hi,

ich rate mal:
Code:

Dim i as Integer
Dim FolieBereich as Range

i = 1
Set FolieBereich = Sheets("Tabelle1").Range("C" & i & ":CZ" & i + 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Empfehlung:
- Für Zeilen den Datentyp Long verwenden.
- Vor Verwendung von Zählervariablen diese stets definieren.

edit:
@regina: *five

ReginaR · 1. Oktober 2019

Hi,
was steht den in i? In Deinem Ausschnitt ist das nicht ersichtlich.
Und was funktioniert nicht?

ReginaR · 1. Oktober 2019

\@Mase: zwei "Dumme" ein Gedanke *Smilie

BastiHivo · 2. Oktober 2019

Danke für die schnelle Hilfe!

Code:

Option Explicit
Public t As Integer
Public i As Integer

Public Sub PPTFolie1()

Dim i As Integer
Dim z As Integer
Dim ii As Integer
Dim strwert1 As String
Dim strwert2 As String
Dim Textfeld1 As String
z = 1
t = 1

strwert1 = "Textfeld"
strwert2 = CStr(t)
Textfeld1 = strwert1 & strwert2

Call Presentation

For i = 4 To 40 Step 3
Debug.Print z, ii, i
For ii = 1 To 40
If Cells(i, ii) = "Titel" Then
Call Titel1(z)
Call Quelle(z)
Call Ansprechpartner(z)
End If
If Cells(i, ii) = Textfeld1 Then
Call Textfeld(z)
t = t + 1
strwert1 = "Textfeld"
strwert2 = CStr(t)
Textfeld1 = strwert1 & strwert2
End If
If Cells(i, ii) = "Bild1" Then
Call Bild1(z)
End If
If Cells(i, ii) = "Textinhalt" Then
Call TextinhaltDE(z)
End If
If Cells(i, ii) = "Textinhalt" Then
Call TextinhaltENG(z)
End If
If Cells(i, ii) = "Pfeil" Then
Call Pfeil1(z)
End If
If Cells(i, ii) = "Hyperlink" Then
Call HyperlinkFläche(z)
End If
Debug.Print i, ii, z
Next ii
Call Slide
z = z + 3
Next i
Debug.Print i, ii, z
Sprungmarke:
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

von hier soll die variable i in den Range-Bereich eingesetzt werden.

Code:

Function Quelle(z)

Dim objPPV As Object 'PowerPoint.Application Vorlage
Dim ObjP As Object 'Powerpoint.Application
Dim strPfadVorlage As String
Dim strPfadStartfolie As String
Dim rngcell As Range
Dim FolieBereich As Range
Dim objCS As Integer

Dim Quelle1 As String

Set FolieBereich = Sheets("Tabelle1").Range("C" & i & ":CZ" & i + 3)

Set rngcell = FolieBereich.Find("Quelle", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngcell Is Nothing Then
Quelle1 = rngcell.Offset(rowoffset:=2, columnOffset:=0).Value
End If

strPfadVorlage = "Pfad"
strPfadStartfolie = "Pfad"

Set objPPV = GetObject(strPfadVorlage)
Set ObjP = GetObject(strPfadStartfolie & Range("A21") & "_" & Range("B21") & ".pptm")
objCS = ObjP.Slides.Count

objPPV.Slides(1).Shapes("Quelle").Copy
ObjP.Slides(objCS).Shapes.Paste

With ObjP.Slides(objCS).Shapes("Quelle")
.TextFrame.TextRange.Text = Quelle1
End With

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und da bekomme ich aktuell den Fehler : Anwendungs- oder objektdefinierter Fehler

ReginaR · 2. Oktober 2019

Hi, wenn ich das richtig sehe, hast Du i zweimal deklariert, einmal modulweit und einmal in PPTFolie1. Letztere befüllst Du dann auch in der Sub. Die Sub Quelle arbeitet aber mit der anderen i-variable.

Mase · 2. Oktober 2019

Ahja:
Setze einen Haltepunkt bei folgender Zeile:
Code:

Set FolieBereich = Sheets("Tabelle1").Range("C" & i & ":CZ" & i + 3)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welchen Wert besitzt die Variable i zu dieser Zeit?

edit:
Hawkeye Regina

BastiHivo · 2. Oktober 2019

Die Doppel-Deklaration war das Problem. Manchmal ist es wie verhext, dass man solche Fehler nicht sieht..

Vielen Dank euch Beiden! Ihr seit spitze

ReginaR · 2. Oktober 2019

Im Team sind wir unschlagbar *biggrin.gif* *biggrin.gif* *biggrin.gif*

Pasquale_136 · 3. Oktober 2019

Hallo zusammen,

ich habe ein ähnliches Problem, versuche dies aber mit einer Formel zu lösen.

Die Tabelle und die Fehlermeldung die ich erhalte sind angehängt.

Ich würde mir gerne die Kalenderwoche ausgeben lassen, wann ich eine Stadt besuche. Die Städte sind soweit durchnummeriert.
Meine Formel steht auch soweit, nur habe ich das Problem, dass Excel mir den Bereich des Suchkriteriums als Text ausgibt und somit die Formel zu einem Fehler führt.

Hier die Formel:
=INDEX($A$1:$L$7;1;VERGLEICH("X";VERGLEICH($A$11;$A$1:$A$7;0)&":"&(VERGLEICH($A$11;$A$1:$A$7;0))))

Vielleicht gibt es auch eine viel einfachere und elegantere Lösung, aber derzeit fahre ich gegen ein Wand.

Vielen Dank im Voraus.

Viele Grüße
Pascal

Mase · 2. März 2021

von ReginaR

Im Team sind wir unschlagbar *biggrin.gif* *biggrin.gif* *biggrin.gif*
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

invictus*10points

Office: Range-Bereich mit Variablen definieren

Range-Bereich mit Variablen definieren

Range-Bereich mit Variablen definieren

Range-Bereich mit Variablen definieren

Range-Bereich mit Variablen definieren

Range-Bereich mit Variablen definieren - Similar Threads - Range Bereich Variablen

Excel Range als Bild in Word einfügen

SVERWEIS mit Range von bis funktioniert nicht?

Macro Fehler Subscript out of Range

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

Bereich einfärben range deklarieren

Range mehrere Bereiche zuweisen

Merge von Zellen im exakt definierten Bereich