Office: (Office 2007) Worksheets Range

roland889 · 20. Mai 2014

Hallo,

danke erstmal

da bekomme ich den Fehler

Code:

Fehler beim Kompilieren:

Unzulässiger oder nicht ausreichend definierter Verweis
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

er meckert bei

.Cells

roland889 · 20. Mai 2014

Noch eine ergänzung,

der komplette code lautet

Code:

Set Bereich = Worksheets("tabelle1").Range("C3", .Cells(3, Columns.Count).End(xlToLeft))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei dem Rot makiertem kommt die Fehlermeldung

chris-kaiser · 20. Mai 2014

Hallo Roland,

dann passt was nicht, nur kann ich nicht auf deinen PC schauen um Dir zu sagen was nicht passt.

[edit]
so diese Posts haben sich jetzt überschnitten...
Was fällt Dir bei meinem Code auf was bei deinem nicht enthalten ist....
Code:

with Worksheets("tabelle1")
Set Bereich = .Range("C3", .Cells(3, Columns.Count).End(xlToLeft))
end with
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 20. Mai 2014

da fehlt Worksheets("tabelle1")

roland889 · 20. Mai 2014

Danke *Smilie müsste mal zum Optiker *tongue.gif*

roland889 · 25. Mai 2014

Eine frage mal wieder zur Range

Code:

Formel = "=CountIf(tabelle1!V:V;B2)"

With Range(Cells(2, 6), .Cells(.Rows.Count, 1).End(xlUp), 6)
.Formula = Formel
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie kann ich mir hier die letzte Zeile ausgeben lassen?

Bekomme bei dem Rows.Count einen fehler

chris-kaiser · 25. Mai 2014

Hi,

...

Code:

Formel = "=CountIf(Tabelle1!V:V,B2)"
With ActiveSheet 'oder was auch immer
With .Range(.Cells(2, 6), .Cells(.Rows.Count, 6).End(xlUp))
.Formula = Formel
End With
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

roland889 · 25. Mai 2014

Danke, ich bekomme bei

Code:

.Formula = Formel
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einen Code:

Laufzeitfehler '1004' Anwendungs- oder objektdefinierten Fhler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist der ganze Code, was mache ich da falsch?
Code:

Sub Test()

Dim str As String
Dim LetzteZelle As Long
Worksheets("Stellenkatalog").Activate

Range("F1") = "Anzahl"

str = "=CountIf('Tabelle1'!V:V;B2)"

With Worksheets("'Tabelle2") 'oder was auch immer
With .Range(.Cells(2, 6), .Cells(.Rows.Count, 6).End(xlUp))
.Formula = str
End With
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 25. Mai 2014

Hi,

Danke müsste mal zum Optiker
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

^^

"=CountIf(Tabelle1!V:V,B2)"

*Smilie

roland889 · 26. Mai 2014

ohh ja das steht noch auf dem Programm ^^

Habe ich den Code richtig? Das er mir alle belegten Zellen ausfüllt? So füllt er mir nur die Zelle F2 aus

chris-kaiser · 26. Mai 2014

Hi,

welche Spalte soll überprüft werden? ich habe mal jetzt die Spalte A genommen (1). Nun wird die letzte Zeile von Spalte A genommen
Bereich F2:F & letzte Zeile von A
passt das so?

With .Range(.Cells(2, 6), .Cells(.Rows.Count, 1).End(xlUp)(1,6))

roland889 · 26. Mai 2014

Hallo,

ja das passt so *Smilie vielen Lieben dank

Office: (Office 2007) Worksheets Range

Worksheets Range

Worksheets Range

Worksheets Range

Worksheets Range

Worksheets Range - Similar Threads - Worksheets Range

Excel found a problem with one or more formula references in this worksheet

VBA SVerweis? / VBA neues Worksheet erstellen

Set ... = Worksheets(...) notwendig?

Wert von Textfeld in Zelle schreiben / suchen nach diesem Wert in Worksheet

Solver aus function ohne worksheet-Berechnung?

Vba - Neues Worksheet in anderem Workbook erstellen

worksheet change in worksheet calculate umwandeln