Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range im UserForm

Forumthread: Range im UserForm

Range im UserForm
26.05.2020 11:37:46
MarC
Hallo,
ich komme gerade nicht weiter. Ich möchte den Inhalt von Zellen an unterschiedlichen Positionen überprüfen und dann berechnen wieviel % von denen ausgefüllt sind. Ich dachte mir das ich das mit Set Bereich = Range hinbekomme. Aber leider erhalte ich immer eine Fehlermeldung "Laufzeitfehler 1004 - Die Methode Range für das Objekt _Global ist fehlgeschlagen".
Was bedeutet das? Eine Datei kann ich leider wegen dem Inhalt nicht hochladen.
        Set Bereich = Range( "Z" & ZeileEdit & ":AB" & ZeileEdit & ", AJ" & ZeileEdit & ":AJ" &  _
ZeileEdit & ", AL" & ZeileEdit & ":AL" & ZeileEdit & ", AP" & ZeileEdit & ":BC" & ZeileEdit & ", BF" & ZeileEdit & ":BG" & ZeileEdit & ", BJ" & ZeileEdit & ":BK" & ZeileEdit & ", BM" & ZeileEdit & ":BM" & ZeileEdit)
Anzahl = Application.CountA(Bereich)
.Cells(ZeileEdit, 81).Value = Round((Anzahl / 36), 3)

Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage
26.05.2020 11:50:55
hary
Moin
Zeig mal mehr vom Code.
Hast du eine with Anweisung drin? Da vor Cells ein Punkt ist. 
.Cells(ZeileEdit, 81).Value = Round((Anzahl / 36), 3)

Wenn ja gibt es dieses Blatt? Meist ist 1004 wenn ein Blatt nicht vorhanden/Blatname falsch geschrieben ist.
gruss hary
Anzeige
AW: Frage
26.05.2020 11:59:36
MarC
Also die Datei hat nur zwei Blätter und die sind vorhanden. Im UserForm ist ein Button zum Speichern. So sieht der ganze Code aus (ich habe normale Textbox --> Zellen Zuweisungen rausgelassen weil das sonst zu lang wird).
Private Sub cmb_Speichern_Click()
Dim strName As String
Dim Query As Long
Dim Spalte As Long
Dim Bereich As Range
Dim Anzahl As Long
Application.ScreenUpdating = False
Query = MsgBox("Soll der neue Eintrag gespeichert werden?", vbYesNo)
If Query = vbYes Then
With Sheets("Overview")
.Cells(ZeileEdit, 28).Value = TextB4.Value
.Cells(ZeileEdit, 29).Value = IIf(CheckBox1 = True, "x", "")
If TextBox10.Text  "" And TextBox12.Text  "" Then
.Cells(ZeileEdit, 41).Value = CInt(TextBox10) + CInt(TextBox12)
ElseIf TextBox10.Text  "" And TextBox12.Text = "" Then
.Cells(ZeileEdit, 41).Value = TextBox10.Value
ElseIf TextBox10.Text = "" And TextBox12.Text  "" Then
.Cells(ZeileEdit, 41).Value = TextBox12.Value
Else
.Cells(ZeileEdit, 41).Value = ""
End If
.Cells(ZeileEdit, 50).Value = TextB14.Value
.Cells(ZeileEdit, 51).Value = TextB15.Value
.Cells(ZeileEdit, 52).Value = TextB16.Value
.Cells(ZeileEdit, 53).Value = TextB17.Value
.Cells(ZeileEdit, 54).Value = cb_Bewerber.Value
strName = TextBox15.Value
If strName  "" Then
.Cells(ZeileEdit, 55).Value = Trim(Split(strName, " ")(0))
.Cells(ZeileEdit, 56).Value = Trim(Split(strName, " ")(1))
End If
.Cells(ZeileEdit, 70).Value = TextBox20.Value
Set Bereich = Range("C" & ZeileEdit & ":D" & ZeileEdit & ", J" & ZeileEdit & ":N" &  _
ZeileEdit & ", P" & ZeileEdit & ":S" & ZeileEdit & ", Z" & ZeileEdit & ":AB" & ZeileEdit & ", AJ" & ZeileEdit & ":AJ" & ZeileEdit & ", AL" & ZeileEdit & ":AL" & ZeileEdit & ", AP" & ZeileEdit & ":BC" & ZeileEdit & ", BF" & ZeileEdit & ":BG" & ZeileEdit & ", BJ" & ZeileEdit & ":BK" & ZeileEdit & ", BM" & ZeileEdit & ":BM" & ZeileEdit)
Anzahl = Application.CountA(Bereich)
.Cells(ZeileEdit, 81).Value = Round((Anzahl / 36), 3)
End With
Unload Me
End If
End Sub

Anzeige
AW: Frage
26.05.2020 12:06:28
Martin
Hallo MarC,
könnte es sein, dass ein Punkt vor Range fehlt?
Set Bereich = .Range...
Viele Grüße
Martin
AW: Frage
26.05.2020 12:09:27
hary
Moin
Welchen Wert hat ZeileEdit
Die Variable ist nicht deklariert. Wenn Wert von ZeileEdit = Null dann kommt ein Fehler.
Range ist auf dem aktivem Blatt?
gruss hary
Anzeige
Ich hatte Tomaten vor den Augen...
26.05.2020 12:18:34
Martin
...und habe dabei noch geschrieben, dass wir die korrekte Deklaration und Wertzuweisung der Variablen bei dem Codeschnipsel nicht analysieren können. Anscheinend hat MarC ohne Option Explicit gearbeitet, sonst hätte es wegen der fehlenden Deklaration von ZeileEdit eine entsprechende Fehlermeldung gegeben.
Danke, Hary!
VG Martin
Anzeige
AW: Ich hatte Tomaten vor den Augen...
26.05.2020 12:34:59
MarC
Also "Option Explicit" habe ich überall drin
Option Explicit
Public ZeileEdit As Long

AW: Frage
26.05.2020 12:19:18
MarC
Die Variable ZeileEdit habe ich nicht im UserForm sondern in einem Modul Global deklariert. Kann es daran liegen oder ist das egal?
@Martin muss ein Punkt bei Range stehen? also .Range?
@Hary also ich rufe das UserForm auf dem Tabellenblatt Overview auf und wenn speichern klicke werden die Daten auch wieder auf dem Blatt gespeichert. Das ist also mein aktives Blatt. Hätte ich das anderes bezeichnen müssen also activesheet?
Public ZeileEdit As Long

Anzeige
AW: Frage
26.05.2020 12:30:04
hary
Moin
Ist soweit alles OK. 
Public ZeileEdit As Long

Aber wo bekommt die ZeileEdit ihren Wert zugewiesen?
Bsp.-weise: ZeileEdit = 2
gruss hary
AW: Frage
26.05.2020 12:47:30
MarC
Danke Hary und Martin für eure Hilfe. Die ZeileEdit bekommt ihren Wert von dem Code und der ist in dem Tabellenblatt Overview
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 9 And Target.Column > 1 And Target.Column  " _
" Then
'   Bestehenden Task für die Bearbeitung öffnen.
Cancel = True
ZeileEdit = Target.Row
uf_EditJob.Show
End If
End Sub

Anzeige
AW: Frage
26.05.2020 12:34:53
Martin
Hallo Marc,
der Punkt muss nur dann vor Range stehen, wenn das aktive Arbeitsblatt während der Ausführung des Makros nicht mit Sicherheit Overview ist. Aber wenn das Makro immer ausgeführt wird während das Arbeitsblatt Overview aktiv ist, dann kannst du dir alles im With sparen:
Private Sub cmb_Speichern_Click()
Dim strName As String
Dim Query As Long
Dim Spalte As Long
Dim Bereich As Range
Dim Anzahl As Long
Application.ScreenUpdating = False
Query = MsgBox("Soll der neue Eintrag gespeichert werden?", vbYesNo)
If Not Query = vbYes Then
Exit Sub
End If
Cells(ZeileEdit, 28).Value = TextB4.Value
Cells(ZeileEdit, 29).Value = IIf(CheckBox1 = True, "x", "")
If TextBox10.Text  "" And TextBox12.Text  "" Then
Cells(ZeileEdit, 41).Value = CInt(TextBox10) + CInt(TextBox12)
ElseIf TextBox10.Text  "" And TextBox12.Text = "" Then
Cells(ZeileEdit, 41).Value = TextBox10.Value
ElseIf TextBox10.Text = "" And TextBox12.Text  "" Then
Cells(ZeileEdit, 41).Value = TextBox12.Value
Else
Cells(ZeileEdit, 41).Value = ""
End If
Cells(ZeileEdit, 50).Value = TextB14.Value
Cells(ZeileEdit, 51).Value = TextB15.Value
Cells(ZeileEdit, 52).Value = TextB16.Value
Cells(ZeileEdit, 53).Value = TextB17.Value
Cells(ZeileEdit, 54).Value = cb_Bewerber.Value
strName = TextBox15.Value
If strName  "" Then
Cells(ZeileEdit, 55).Value = Trim(Split(strName, " ")(0))
Cells(ZeileEdit, 56).Value = Trim(Split(strName, " ")(1))
End If
Cells(ZeileEdit, 70).Value = TextBox20.Value
Set Bereich = Range("C" & ZeileEdit & ":D" & ZeileEdit & ", J" & ZeileEdit & ":N" & _
ZeileEdit & ", P" & ZeileEdit & ":S" & ZeileEdit & ", Z" & ZeileEdit & ":AB" & ZeileEdit & ",  _
AJ" & ZeileEdit & ":AJ" & ZeileEdit & ", AL" & ZeileEdit & ":AL" & ZeileEdit & ", AP" & ZeileEdit & ":BC" & ZeileEdit & ", BF" & ZeileEdit & ":BG" & ZeileEdit & ", BJ" & ZeileEdit & ":BK" & ZeileEdit & ", BM" & ZeileEdit & ":BM" & ZeileEdit)
Anzahl = Application.CountA(Bereich)
Cells(ZeileEdit, 81).Value = Round((Anzahl / 36), 3)
Unload Me
End Sub
Viele Grüße
Martin
Anzeige
AW:@Martin
26.05.2020 12:46:02
hary
Moin Martin
Da ist unser Problem wieder. ;-))
Marc deklariet zwar Public ZeileEdit As Long im Modul.
Aber wo weist er ZeileEdit einen Wert zu!?
Wenn das nicht passiert hat ZeileEdit den Wert Null.
Zeile Null gibt es nicht,also Fehler.
Mal schauen was Marc schreibt.
gruss hary
Anzeige
AW: AW:@Martin
26.05.2020 13:20:39
Martin
Hallo Hary,
eventuell sollte MarC einfach eine entsprechende Kontrolle in seinem Makro ergänzen:
    If ZeileEdit = 0 Then
MsgBox "Der Variable 'ZeileEdit' ist kein Wert zugewiesen!", vbExclamation, "Abbruch"
Exit Sub
End If
Viele Grüße
Martin
Anzeige
AW: Frage
26.05.2020 12:58:46
MarC
Sorry das ich nochmal genauer nachfrage. Ich kann also das With...... weg lassen oder wenn ich es behalten möchte muss ich halt vor Range noch einen Punkt machen damit es stimmt also .Range
AW: Frage
26.05.2020 13:15:56
Martin
Hallo MarC,
der Punkt verweist auf das mit With angegebene Objekt.
Also wenn du With Sheets("Overview") schreibst und aktuell ein anderes Arbeitsblatt aktiv ist, dann bezieht sich .Cells(x, y) trotzdem auf das Arbeitsblatt Overview. Aber ohne dem Punkt bezieht sich Cells(x, y) auf das aktuell ausgewählte Arbeitsblatt.
Wenn also dein Makro läuft während das Arbeitsblatt "Overview" aktiv ist, dann kannst du auf die With-Anweisung komplett verzichten. Aber wenn du dich bei Ausführung des Makros auf einem anderem Arbeitsblatt befindest, sollte auch vor Range ein Punkt stehen, sonst werden der Variable Bereich nicht die Zellen vom Arbeitsblatt Overview zugewiesen, sondern vom aktuell angezeigten Arbeitsblatt.
Viele Grüße
Martin
Anzeige
AW: with Anweisung
26.05.2020 13:18:39
hary
Moin
Ja.
Gilt fuer Range und Cells
Innerhalb einer with Anweisung: mit Punkt bezieht sich auf with, ohne Punkt bezieht sich auf das aktive Blatt
Einen Fehler konnte ich nur herbeifuehren, wenn ZeileEdit den Wert Null hat.
Sonst muss es was anderes sein. Aber ohne Bsp.-mappe wird's eng. ;-))
gruss hary
Anzeige
AW: anderen Verdacht
26.05.2020 13:20:57
hary
Moin nochemal
Fiel mir gerade ein. Hast du einen Blattschutz gesetzt? Verbundene Zellen?
gruss hary
AW: anderen Verdacht
26.05.2020 14:01:44
MarC
Tausend Dank erst mal für die Erklärung und Hilfe Martin und Hary. Jetzt bin ich viel schlauer =D
Ich sollte keine einzige verbundene Zellen in der Mappe haben, aber ich habe einen Blattschutz drin, damit niemand die Oberfläche oder Buttons versehentlich verstellt. Der Blattschutz wird immer beim öffnen der Datei aufgerufen.
Was komisch ist. Ich habe die Datei geschlossen und wieder geöffnet und jetzt ist der Fehler weg. Vll tritt er nur bei einer bestimmten Konstellation auf ^^
Der Blattschutz sieht wie folgt aus:
Sub WriteProtectionOn()
Sheets("Overview").Protect userinterfaceonly:=True, Password:="xxxxx", AllowFormattingCells: _
=True, Contents:=True, Scenarios:=True
Sheets("Overview").EnableAutoFilter = True
Sheets("Overview").EnableOutlining = True
Sheets("Overview").EnableSelection = xlUnlockedCells
End Sub

Anzeige
AW: Range im UserForm
26.05.2020 11:51:15
Martin
Hallo Marc,
du hast ja leider nur einen Codeschnipsel hier gepostet, das macht die Fehlersuche schwierig. Wir können nicht sehen ob deine Variablen korrekt deklariert wurden und auf welches With-Objekt sich .Cells bezieht. Ebenso kennen wir den zugewiesenen Wert der Variable Zeileedit nicht. Ich habe deinen Code ansonsten getestet und konnte keinen Fehler feststellen.

Sub Test2()
Dim ZeileEdit As Long
Dim Bereich As Range
Dim Anzahl As Long
ZeileEdit = 5
Set Bereich = Range("Z" & ZeileEdit & ":AB" & ZeileEdit & ", AJ" & ZeileEdit & ":AJ" &  _
ZeileEdit & ", AL" & ZeileEdit & ":AL" & ZeileEdit & ", AP" & ZeileEdit & ":BC" & ZeileEdit & ", BF" & ZeileEdit & ":BG" & ZeileEdit & ", BJ" & ZeileEdit & ":BK" & ZeileEdit & ", BM" & ZeileEdit & ":BM" & ZeileEdit)
Anzahl = Application.CountA(Bereich)
Cells(ZeileEdit, 81).Value = Round((Anzahl / 36), 3)
Bereich.Select
MsgBox Bereich.Address
MsgBox Anzahl
End Sub

Viele Grüße
Martin
Anzeige
;

Forumthreads zu verwandten Themen

Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Anzeige
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Im Range("A1:C15") anderes Cursor-Symbol?
Reinhardt

Hallo,
ist es möglich im Bereich Range("A1:C15") statt dem Kreuz ein Finger-, oder Pfeil Cursor-Symbol erscheinen zu lassen?
Gruß Reinhardt.
28.01.2009 09:25:00
Thread-ID: 1044456
2 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
Destination:=.Range("A" & zeile)
Michael

Hallo!
Was mach ich hier falsch?
Die letzte Zeile ist 151. Er schreibt alle hinein, bis close 1, dann ist ende. Er soll immer in die letzte Zelle gehen und dann den Befehl ausführen.
Danke
Gruß Michael
Sub TextdateiEnlesen() Dim zeile As Integer Dim strInhalt As String ze...
11.02.2009 18:00:00
Thread-ID: 1049724
4 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Anzeige
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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