Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 438

Laufzeitfehler 438
02.03.2017 08:12:08
Defence
Hallo Leute
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Suchen nach Unternehmer
ActiveSheet.Unprotect Password:="CBM"
If Target.Column = 10 And Target.Row = 10 Then
Worksheets("Unternehmerliste").Range("$A$1:$B$23252").AutoFilter Field:=2, Criteria1:=" _
0"
Cancel = True
Range("J11").Select
Selection.ClearContents
Sheets("Unternehmerliste").Select
End If
'öffnen der Kalkaulation
If Not Intersect(Target, Range("AE13:AE1007")) Is Nothing Then
ActiveCell.EntireRow.Select
Selection.copy
'neuer Pfad angeben für Kalakualtion
Workbooks.Open("O:\CREABETON\TM Tief- und Infrastrukturbau\INFRAMUR\00 - Offerten\ _
zz__Dokumente Offertool\Kalkualtion Inframur.xltm").Activate
Worksheets("Tabelle3").Activate
ActiveSheet.Range("A3").Select
Range("a3").paste
Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Range("B2").Select
End If
If Not Intersect(Target, Range("AD13:AD1007")) Is Nothing Then
End If
End Sub
Bei Range ("a3") kommt bei mir der Laufzeitfehler 438!!! Bin am Verzweifeln. Habe echt kein Plan warum oder wie ich das umgehen könnte.
Bin für jeden Tipp dankbar.
Vielen Dank schon im voraus.
Gruss
Defence

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 438
02.03.2017 08:33:16
EtoPHG
Hallo Defence,
Ab Deinem Workbooks.Open...veranstaltest du ein Tohuwabohu mit der Referenzierung der Blätter!
1. Alle nicht vollständig referenzierten Bereiche, wie z.B. Range("A3"), beziehen sich auf das Tabellenblatt, in dem der Code läuft.
2. Nach einem Workbook.Open wird ein Blatt in der geöffneten Mappe aktiv. Activate und Select sind zu 99.5% überflüssige Befehle in VBA. Besser sind vollständige Referenzierungen, wie workbooks().worksheets().Range() und der Einsatz von With ... End With Konstrukten. Lies dazu Der Malermeister und sein Geselle.
Gruess Hansueli
Anzeige
AW: Laufzeitfehler 438
02.03.2017 08:36:32
Crazy
Hallo
ungeachtet deines weiteren Codes
probiere es mal so
Range("A3").PasteSpecial xlPasteValues
MfG Tom
AW: Laufzeitfehler 438
02.03.2017 08:40:22
Defence
Hallo CrazyTom
Leider nein :-(
Ergibt mir Laufzeitfehler 1004.
Danke trotzdem für deinen Versuch.
AW: Laufzeitfehler 438
02.03.2017 08:41:24
harry
Hallo Defence,
wenn Du schon mit dem ganzen select, activate usw. arbeiten willst, dann geht das so
    Range("A3").Select
ActiveSheet.Paste
Grüße
harry
AW: Laufzeitfehler 438
02.03.2017 08:51:30
Defence
Hallo Harry
Auch hier kommt immer noch 1004 Methode wird nicht unterstützt :-(((((
Ich kanns mir echt nicht erklären.
Ihr könnt den Code natürlich gerne anpassen. Es geht nur darum, dass eine Zeile kopiert wird und in ein anderes Tabellenblatt kopiert.
Aber ich scheitere hier kläglich.
Danke für jede Unterstützung
Gruss
Defence
Anzeige
AW: Laufzeitfehler 438
02.03.2017 08:54:30
Defence
Hallo Harry
Auch hier kommt immer noch 1004 Methode wird nicht unterstützt :-(((((
Ich kanns mir echt nicht erklären.
Ihr könnt den Code natürlich gerne anpassen. Es geht nur darum, dass eine Zeile kopiert wird und in ein anderes Tabellenblatt kopiert.
Aber ich scheitere hier kläglich.
Danke für jede Unterstützung
Gruss
Defence
AW: Laufzeitfehler 438
02.03.2017 20:04:15
littletramp
Hallo Harry
Versuchs mal so: 
    'öffnen der Kalkulation
If Not Intersect(Target, Range("AE13:AE1007")) Is Nothing Then
Dim rngZeile As Range
Set rngZeile = ActiveCell.EntireRow
Workbooks.Open "O:\CREABETON\TM Tief- und Infrastrukturbau\INFRAMUR\" _
& "00 - Offerten\zz__Dokumente Offertool\Kalkualtion Inframur.xltm"
rngZeile.Copy Worksheets("Tabelle3").Range("A3")
Application.Goto Worksheets("Tabelle1").Range("B2") ' -> besser als Activate/Select
End If
Gruss Markus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige