Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fehler gesucht
zurück: Nochmal Hilfe erforderlich Makro speichern unter weiter: template kopieren ab sheet 3 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Seppelxxl
9 Jahre Hobby-Programmierer


Verfasst am:
26. Sep 2010, 16:16
Rufname: Seppel

Fehler gesucht - Fehler gesucht

Nach oben
       Version: Office 2003

Hi
hab einen Fehler den ich ne finde

folgende Zeile funktioniert einwandfrei:

Sheets("tabelle2").Range(Cells(zeile - 1, spalte), Cells(zeile - 2, spalte)) = 1

allerdings nur wenn ich in der Tabelle 2 bin
andern falls nicht. (Anwendungs oder Objektdifinierter Fehler)

Aber das hin und her springen würd ich gern vermeiden

was müsste ich ändern?

Danke Seppel

_________________
Alles besteht aus Objekten mit Attributen und Methoden.
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 16:20
Rufname: Phelan


AW: Fehler gesucht - AW: Fehler gesucht

Nach oben
       Version: Office 2003

Code:
Sheets ("tabelle2")
    .Range(.Cells(zeile - 1, spalte), .Cells(zeile - 2, spalte)) = 1
End With

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Amicro2000
Manches geht, manches nicht. ;-)


Verfasst am:
26. Sep 2010, 16:21
Rufname:

AW: Fehler gesucht - AW: Fehler gesucht

Nach oben
       Version: Office 2003

Hallo Seppel,

Nun ja, am anfang saggst du >>Sheets("tabelle2").<<

aber dann nur noch Cells(zeile - 1, spalte), Cells(zeile - 2, spalte))

und da nimmt er für cells dann immer das aktuelle Tabellenblatt her

Entweder du machst es so

Code:
Sheets("tabelle2").Range(Sheets("tabelle2").Cells(zeile - 1, spalte), Sheets("tabelle2").Cells(zeile - 2, spalte)) = 1


oder so:

Code:
With Sheets("tabelle2")
        .Range(.Cells(zeile - 1, spalte), .Cells(zeile - 2, spalte)) = 1
    End With

_________________
Gruß Amicro
Ich benutze Office 2003 und in der Arbeit 2010
P.s. eine Beispieldatei ist immer gut.
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2010, 16:45
Rufname:

AW: Fehler gesucht - AW: Fehler gesucht

Nach oben
       Version: Office 2003

Hi

ums mal auszuformulieren:
der Korrekte Zellbezug ist immer: Workbook().Worksheet().Range()
wenn du bei einem Zellbezug wie Cells oder Range die Angabe von Workbook und Worksheet weglässt, dann nimmt Excel immer an, daß sich der Zellbezug auf die gerade aktive Datei bezieht.
Das gilt auch für die Cells innerhalb der Range-Definition oder die Cells-Angaben bei .Sort oder .Find innerhalb der Funktion.

solltest du dich also nicht auf das aktive Tabellenblatt beziehen, musst du das Worksheet (und ggf auch das Workbook) mit angeben, weil sich sonst die Zellbezüge auf unterschiedliche Tabellenblätter beziehen.
Wie das aussieht, haben dir Amrico und Phelan ja gezeigt.

da auf diese Weise der Code allerdings recht lang werden kann (wenn man z.B. die With-Klammer schon für was anderes verwendet hat) bevorzuge ich in deinem Fall folgende Codierung:

Sheets("Tabelle2").cells(Zeile-2, 1).Resize(2,0).Value = 1
oder
Sheehts("Tabelle2").Cells(Zeile, 1).Offset(-2,0).Resize(2,0).Value = 1
Gast



Verfasst am:
02. Okt 2010, 10:50
Rufname:


AW: Fehler gesucht - AW: Fehler gesucht

Nach oben
       Version: Office 2003

Vielen Dank für eure Antworten
Seppel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Platzhalter, Wildcard gesucht ?!?! 12 Any81 1109 07. Feb 2006, 23:03
Gast Platzhalter, Wildcard gesucht ?!?!
Keine neuen Beiträge Excel Formeln: formel gesucht! (farbhinterlegung) 3 Gast 981 16. Sep 2005, 07:52
tom_r formel gesucht! (farbhinterlegung)
Keine neuen Beiträge Excel Formeln: Fehler bei Eingabe von Formeln 6 slow 3113 08. Sep 2005, 13:43
c0bRa Fehler bei Eingabe von Formeln
Keine neuen Beiträge Excel Formeln: Bei Matrixformel Fehler unterdrücken 7 tom_r 1092 27. Jul 2005, 15:27
tom_r Bei Matrixformel Fehler unterdrücken
Keine neuen Beiträge Excel Formeln: Formel gesucht! 3 Nane 597 07. Jul 2005, 08:00
Nane Formel gesucht!
Keine neuen Beiträge Excel Formeln: Dringende Lösung meinse Problem gesucht!!!??? 8 JJ.i.P. 587 27. Jun 2005, 11:34
JJ.i.P. Dringende Lösung meinse Problem gesucht!!!???
Keine neuen Beiträge Excel Formeln: Wo ist mein Fehler in der Formel???? 2 Progham 497 18. Apr 2005, 16:00
Progham Wo ist mein Fehler in der Formel????
Keine neuen Beiträge Excel Formeln: Fehler abfangen 3 sreuber 585 08. März 2005, 14:33
fridgenep Fehler abfangen
Keine neuen Beiträge Excel Formeln: maximaler Fehler! 1 vergleicher 2001 05. März 2005, 14:58
ae maximaler Fehler!
Keine neuen Beiträge Excel Formeln: Bekomme Fehler #Wert nicht weg 9 Cerberus 1225 21. Feb 2005, 23:46
Cerberus Bekomme Fehler #Wert nicht weg
Keine neuen Beiträge Excel Formeln: Kann Fehler nicht finden 2 sreuber 492 22. Jan 2005, 11:22
Gast Kann Fehler nicht finden
Keine neuen Beiträge Excel Formeln: Formel gesucht ! 2 iceblue 589 11. Aug 2004, 18:15
iceblue Formel gesucht !
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen