Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1364to1368
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
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

iRow in anderem Tabellenblatt

iRow in anderem Tabellenblatt
27.06.2014 17:02:54
Dominic
Servus miteinander!
Ich habe ein Makro, was mir PDfs aus mehreren Ordnern einlesen soll und auf einer bestimmten _ Position in meine Tabelle eintragen soll. Jenes Makro funktioniert: 

Private Sub workbook_open()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
Range("B7:E56,B59:E88,B91:E120,B123:E152,B155:E184").Select
Selection.ClearContents
Range("B7").Select
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1100 CPM Allgemein"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 6, "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1100 CPM Allgemein"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 6 - ((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7:C56") _
_
_
, "")), "B").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1100 CPM Allgemein"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow + 6 - (((Range("C7:C56").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C7:C56"), "")) * 2), 5), _
Address:=sPath & sFile, TextToDisplay:="Klick"
Cells(iRow + 6 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7:C56" _
_
_
), "")) * 2), "E").Value = "Klick"
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1200 Anbindung an Strategie"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 37 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3), "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1200 Anbindung an Strategie"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 37 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - ((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59: _
C88"), "")), "B").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1200 Anbindung an Strategie"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow + 37 - (((Range("C7:C56").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C7:C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C59:C88"), "")) * 2), 5), _
Address:=sPath & sFile, TextToDisplay:="Klick"
Cells(iRow + 37 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "")) * 2), "E").Value = "Klick"
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1300 Konzernsteuergrößen, Kennzahlen und Ziele"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 48 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3), "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1300 Konzernsteuergrößen, Kennzahlen und Ziele"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 48 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - ((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "")), "B").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1300 Konzernsteuergrößen, Kennzahlen und Ziele"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow + 48 - (((Range("C7:C56").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C7:C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C59:C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C91:C120"), "")) * 2), 5), _
Address:=sPath & sFile, TextToDisplay:="Klick"
Cells(iRow + 48 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "")) * 2), "E").Value = "Klick"
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1400 Stellhebel und Werttreiber"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 50 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3), "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1400 Stellhebel und Werttreiber"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 50 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3) - ((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "")), "B").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1400 Stellhebel und Werttreiber"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow + 50 - (((Range("C7:C56").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C7:C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C59:C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C91:C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "")) * 2), 5), _
Address:=sPath & sFile, TextToDisplay:="Klick"
Cells(iRow + 50 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "")) * 2), "E").Value = "Klick"
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1500 Incentivierung"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 79 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "") - 1) * 3), "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1500 Incentivierung"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow + 79 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "") - 1) * 3) - ((Range("C155:C184").Rows.Count) - WorksheetFunction.CountIf(Range("C155:C184"), "")), "B").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\1000 Corporate Performance  _
Management\1500 Incentivierung"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow + 79 - (((Range("C7:C56").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C7:C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C59:C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) -  _
WorksheetFunction.CountIf(Range("C91:C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "") - 1) * 3) - (((Range("C155:C184").Rows.Count) - WorksheetFunction.CountIf(Range("C155:C184"), "")) * 2), 5), _
Address:=sPath & sFile, TextToDisplay:="Klick"
Cells(iRow + 79 - (((Range("C7:C56").Rows.Count) - WorksheetFunction.CountIf(Range("C7: _
C56"), "") - 7) * 3) - (((Range("C59:C88").Rows.Count) - WorksheetFunction.CountIf(Range("C59:  _
_
C88"), "") - 7) * 3) - (((Range("C91:C120").Rows.Count) - WorksheetFunction.CountIf(Range("C91: _
C120"), "") - 10) * 3) - (((Range("C123:C152").Rows.Count) - WorksheetFunction.CountIf(Range("C123:C152"), "") - 1) * 3) - (((Range("C155:C184").Rows.Count) - WorksheetFunction.CountIf(Range("C155:C184"), "")) * 2), "E").Value = "Klick"
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
Nun möchte ich aber, dass er für Tabellenblatt 2 genau das Gleiche macht, nur mit anderen _
Verzeichnissen, daher habe ich ergänzt: 

Sheets("2000").Select
Columns(1).ClearContents
sPath = "U:\Stuttgart\RoedlConsulting\09_Literatur\Literatur\2000 Shared Service Center\2100  _
_
_
SSC Allgemein"
If Right(sPath, 1)  "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow - 81, "C").Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Right(Range("C" & zeile), Len(Range("C" & zeile)) - 5)
End If
If InStr(1, Range("C" & zeile), ".") > 0 Then
Range("C" & zeile) = Left(Range("C" & zeile), Len(Range("C" & zeile)) - 4)
End If
Next
Sheets("1000").Select
End Sub

Mein Problem ist allerdings das iRow. Ich habe keine Lust, den Cells(iRow...) noch länger werden zu lassen, sondern möchte den Code aus dem Tabellenblatt 1 bzw. "1000" quasi unverändert nutzen... die Verzeichnisse kann ich ja anpassen, mehr möchte ich aber nicht machen.
Hat da jemand eine Idee?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: iRow in anderem Tabellenblatt
28.06.2014 00:43:42
fcs
Hallo Dominic,
der einfachste Weg ist:
Du kopierst das Makro für jedes Tabellenblatt und rufst dann vom Workbook_Open-Makro diese Einzelmakros auf.
Den langen Lindwurm nach iRow kannst du vermeiden, wenn du die Werte vom vorherigen Verzeichnis in Variablen zwischenspeicherst und dann "nur" noch die Korrektur für das jeweilige Verzeichnis addierst.
Kann dann etwa wie folgt aussehen.
https://www.herber.de/bbs/user/91298.txt
Gruß
Franz

AW: iRow in anderem Tabellenblatt
30.06.2014 12:13:39
Dominic
Hallo Franz :)
Vielen Dank für deinen konstruktiven Beitrag.
Ich habe jetzt in "Diese Arbeitsmappe" 
Private Sub workbook_open()
Call Tabelle1000_fuellen
Call Tabelle2000_fuellen
Sheets("1000").Select
End Sub
geschrieben.
In die Tabelle 2 (1000) und Tabelle 3 (2000) hab ich die jeweiligen Makros Sub Tabelle1000_fuellen() und Sub Tabelle2000_fuellen() integriert. Das will aber irgendwie nicht klappen.
"Fehler beim kompilieren - Sub oder Function nicht definiert." Wo liegt mein Fehler?
Grüße
Dominic

Anzeige
AW: iRow in anderem Tabellenblatt
30.06.2014 12:38:29
fcs
Hallo Dominic,
wenn du Makros unterhalb eines Tabellenblatts anlegst, dann können sie von anderen Modulen nur mit dem vorangestellten Code-Namen des Tabellenblatts gestartet werden. So wie es auch im Makro-Start-Dialog angezeigt wird.
Außerdem dürfen die Makros nicht als Private-Sub angelegt sein. 
Private Sub workbook_open()
Call Tabelle2.Tabelle1000_fuellen
Call Tabelle3.Tabelle2000_fuellen
Sheets("1000").Select
End Sub
Gruß
Franz

AW: iRow in anderem Tabellenblatt
30.06.2014 12:48:12
Dominic
Hallo Franz,
den gleichen Gedanken hatte ich auch gerade. Es will nur nicht wirklich funktionieren :(
"Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler"

Anzeige
AW: iRow in anderem Tabellenblatt
30.06.2014 13:29:49
fcs
Hallo Dominic,
Diese Information ist jetzt zu dünn.
Da müßtest du schon mal angeben in welcher Zeile der Fehler auftritt.
Außerdem muss du natürlich auf die genaue Schreibweise von Blattnamen, Verezichnissen, Zellbereichen achten.
Gruß
Franz

AW: iRow in anderem Tabellenblatt
30.06.2014 14:08:49
Dominic
Hallo Franz,
also aktuell sieht das folgendermaßen bei mir aus:
"Diese Arbeitsmappe"
Private Sub workbook_open()
Call Tabelle2.Tabelle1000_fuellen
Call Tabelle3.Tabelle2000_fuellen
Sheets("1000").Select
End Sub
"Tabelle2"
Sub Tabelle1000_fuellen()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
...
"Tabelle 3"
Sub Tabelle2000_fuellen()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
...
Der Fehler wird angezeigt für Call Tabelle3.Tabelle2000_fuellen.
Befinde ich mich allerdings beim ausführen des Makros nicht in Tabelle 2, dann wird mir der Fehler auch dafür angezeigt.
Befinde ich mich hingegen in Tabelle 3 und tausche die Codezeilen folgendermaßen:
Private Sub workbook_open()
Call Tabelle3.Tabelle2000_fuellen
Call Tabelle2.Tabelle1000_fuellen
Sheets("1000").Select
End Sub
dann erhalte ich den Fehler für Call Tabelle2.Tabelle1000_fuellen.
Beste Grüße
DOminic

Anzeige
AW: iRow in anderem Tabellenblatt
30.06.2014 15:35:05
Dominic
Also offensichtlich hängt es an 
   Range("B7:E56,B59:E88,B91:E120,B123:E152,B155:E184").Select
Selection.ClearContents
Range("B7").Select

AW: iRow in anderem Tabellenblatt
30.06.2014 16:14:18
Dominic
Klappt jetzt - hab's ausgetrickst *hihi*
   Range("B7:E56").Select
Selection.ClearContents
Range("B59:E88").Select
Selection.ClearContents
Range("B91:E120").Select
Selection.ClearContents
Range("B123:E152").Select
Selection.ClearContents
Range("B155:E184").Select
Selection.ClearContents
Range("B7").Select
Noch mal vielen Dank für die Hilfe :)
Anzeige

305 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 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
1
2
7
2
2
5
1
5
10
4
3
9
3
1
2
17
8
2
2
4
5
1
4
1
3