Was bedeutet der Punkt in dem Befehl cells(2,3).Value="Hallo " (Commandbutton Excel)?

Hallo, ich hab hier den Beispielbefehl cells(2,3). Value="Hallo". Wozu dient der Punkt? Was ist in diesem Befehl das Objekt, die Eigenschaft (Attribut), das Event (Ereignis) und die Methode?

1 Antwort

Allw1553nd3r

12.10.2015, 20:35

Cells() ist die Methode, die mit den Parametern 2,3 aufgerufen ein Objekt zurückgibt. Der Punkt gibt an, dass die Eigenschaft Value von dem Objekt angegeben werden soll, dass die Funktion cells(2,3) zurückgibt. Ein event sehe ich hier nicht.

Ähnliche Fragen

VBA: Objekt erforderlich?

Hallo allerseits.

Ich scheitere mit einer Fehlermeldung die beim Debuggen auftaucht:

"OBJEKT ERFORDERLICH"

bei der Zuweisung in Zeile 8 [AktiveSheet ......]

Es soll eine Spalte (ziel_splte=14) von 1 bis Zeile (letzt_zle=58) mit einen Zeichen (delte_kez="X") gefüllt werden.

Ich habe bereits diese Zeile mit Set und mit .Value ergänzt gehabt, aber immer dieselbe Fehlermeldung bekommen.

' Zielspalte mit "X" füllen
ziel_splt = Worksheets("Statistik").Cells(15, 2)
letzt_zle = Worksheets("Statistik").Cells(20, 2)
delte_kez = Worksheets("Statistik").Cells(25, 2)

For I = 1 To letzt_zle
  AktiveSheet.Cells(I, ziel_splt) = delte_kez ' Zeile 8
Next I

Ich frage mich, welches Objekt hier fehlt?

Aber vielleicht ist es nur eine Kleinigkeit, die ich mit und ohne Brille mangels Erfahrung nur nicht erkenne!

Vielen Dank für eure Hilfe!

-Hermann-

...zur Frage

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zur Frage

Ist Java Objekt Zuordnung Referenz oder Value?

Wenn ich in Java Nodes habe also Knoten und ich habe folgendes (knoten haben ein Attribut Next)

n = null //der knoten is null keine Ahnung was das bedeutet aber sowas wie er ist mit null initialisiert also irgendwie existiert er aber auch nicht

k.next= n // next von k zeigt auf n also null

n = k // müsste Next von k jetzt nicht auf k selber zeigen wieso nicht ?

...zur Frage

Word VBA, beforePrint?

EDIT: bereits kurz nach Fragestellung selbst gelöst mit cancel =true nach Print background.... Verzeihung, war in der Arbeit und konnte erst jetzt eure Antworten sehen. Trotzdem vielen Dank!

Hallo zusammen.

Ich würde gerne einen commandButton kurz vor dem Drucken verkleinern und nach dem Drucken wieder groß anzeigen. Leider wird das Dokument zweimal ausgedruckt.

es soll beim normalen drucken passieren.

der befehl für das Druck event:

Private Sub appWord_DocumentBeforePrint _
 (ByVal Doc As Document, _
 Cancel As Boolean)
CommandButton1.Height = 0.75
CommandButton1.Width = 0.75
CommandButton2.Height = 0.75 CommandButton2.Width = 0.75


ActiveDocument.PrintOut Background:=False


CommandButton1.Height = 24 CommandButton1.Width = 100 CommandButton1.PicturePosition = fmPicturePositionRightTop

CommandButton2.Height = 24
CommandButton2.Width = 461
  End Sub

Das intializieren

Private Sub Document_New()
Set appWord = Word.Application
End Sub
' Private Sub Document_Open() Set appWord = Word.Application

End Sub

...zur Frage

HTML Formular automatische email?

Hallo, ich habe ein Formular in HTML gecodet. Unten ist ein Button, der zum abschicken des Formulars dient.

Ganz unten im "Form"-tag steht folgendes:

Oben als Attribut von <form> steht folgendes:

method="post" action="mailto:(hier steht meine Email)"

Jetzt zum Problem:

Wenn man auf abschicken drückt, öffnet sich das Mail-Programm auf dem Laptop, es soll aber automatisch die Mail gesendet werden (nur mit den Werten).

Wie kann ich das umsetzen?

...zur Frage

Excel: Schiebepuzzle programmieren - Laufzeitfehler 424?

Liebe Community, ich habe versucht eine Schiebepuzzle aus Zahlen in Excel zu programmieren. Den Text seht ihr unten. Jedoch sobald ich auf Ausführen (Wiedergabe-Button) drücke, kommt folgender Fehler:

Laufzeitfehler '424':
Objekt erforderlich

Könnt ihr mir bitte helfen den Fehler zu finden?

Vielen Dank im Vorraus
Lamio13

Dim xpos As Integer   
Dim ypos As Integer  
Dim AlleKnoepfe(1 To 15) As CommandButton

Private Sub UserForm_Initialize()
Set AlleKnoepfe(1) = CommandButton1
Set AlleKnoepfe(2) = CommandButton2
...  
Set AlleKnoepfe(14) = CommandButton14
Set AlleKnoepfe(15) = CommandButton15
End Sub

Sub FindMich(ich As String)
    Dim ii As Integer
    Dim jj As Integer

    For jj = 1 To 4
                 For ii = 1 To 4
                      If (Cells(jj, ii) = ich) Then
                         xpos = ii
                          ypos = jj
                          ii = 5
                          jj = 5
                      End If
                 Next ii
    Next jj
End Sub
Private Sub KannMichBewegen()

    'untersuche, ob rechts frei ist
    If (Cells(ypos, xpos + 1) = "") Then
        Cells(ypos, xpos + 1) = Cells(ypos, xpos)
        Cells(ypos, xpos + 1) = ""
    End If

End Sub

Sub VerschiebMich(SchubladenNummer As Integer)
    'untersuche, ob rechts frei ist
    If (xpos < 4) Then
            If (Cells(ypos, xpos + 1) = "") Then
                Cells(ypos, xpos + 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob unten frei ist
    If (ypos < 4) Then
            If (Cells(ypos + 1, xpos) = "") Then
                Cells(ypos + 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

    'untersuche, ob links frei ist
    If (xpos > 1) Then
            If (Cells(ypos, xpos - 1) = "") Then
                Cells(ypos, xpos - 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob oben frei ist
    If (ypos > 1) Then
            If (Cells(ypos - 1, xpos) = "") Then
                Cells(ypos - 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

End Sub

Private Sub CommandButton1_Click()
    FindMich (CommandButton1.Caption)
    VerschiebMich (1)
    End Sub
...

...zur Frage

Mit VBA in Excel zu einer Zeile in einem anderen Worksheet springen?

Hi,

momentan habe ich in meiner Tabelle1 einen Code, welcher bei änderungen in spezifischen Spalten, die Zeilenzahl in das Worksheet "Tabelle7" schreibt.

Eigentlich möchte ich es aber so schreiben, dass wenn ich jezt auf die Zelle im Worksheet "Kontrolle" klicke, ich ganz automatisch zu der Zeile springe, welche momentan in "Tabelle7" steht.

Ich habe überlegt, dass mit einem Makro zu machen, welchen man anklickt, dann die entsprechende Zelle in "Tabelle7" auswählt und somit zum Worksheet "Tabelle1" in die richtige Zeile wechselt. Scharfen Beobachtern wird nun allerdings auffallen, dass ich keine Ahnung habe, wie ich den Zellenwert von Tabelle7 als Zeilenziel für Tabelle1 einstelle. ;D

Wäre echt super wenn mir da jmd helfen könnte. Alternative Lösungsvorschläge sind auch immer gerne gesehen.

PS: Ich rufe über Tabelle7 das Makro auf, da ich es nciht hinbekomme, ohne Modul worksheetübergreifende Makros zu schreiben.

...zur Frage

Excel VBA -> Spalten- und Zeilenlängen und Schriftgröße bestimmen

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

...zur Frage

Wie kann ich über VBA ein neues leeres dokument in Word erstellen?

kann mir dabei jemand helfen?

...zur Frage

Excel älteres Datum als Heute Markieren?

Ich trage in Spalte H ab Zeile 5 Daten ein, wenn jemand angerufen hat. Wenn das Datum gestern oder älter ist soll die Zelle leicht rot ausgefüllt sein.

Wenn ich es über Bedingte Formatierung und neue Regel mit "=$B2<heute()" versuche, sind die Zellen allerdings auch rot, wenn garnichts drin steht. Wie kann ich das verhindern?

...zur Frage

Userform Multiseite Page ein-/ausblenden?

Hallo,

ich habe eine Multiseite mit 10 Seiten (ANPage1 - ANPage10). Beim öffnen der Multiseite wird bereits die richtige Anzahl an Pages ausgegeben (Anzahl geht aus Tabelle 2 A10 hervor.

Wenn ich nun über ein anderes Steuerelement (hinzufügen oder entfernen) auf dem Userform den Wert für A10 um +/- 1 ändere (je nach Steuerelement), soll auch entsprechend die Page .Pages("ANPage").Visible = True gesetzt werden.

Beispiel:
in A10 steht die Zahl "5". Es wird mit öffnen der Multiseite 5 Pages ausgegeben. Drücke ich nun auf den Button "hinzufügen", dann wird der Wert in A10 "6". entsprechend soll nun die ANPage6 auf Visible = True gesetzt werden.

Wenn ich nun auf den Butten "entferne" drücke, dann wird aus A10 die Zahl "5" und entsprechend soll die ANPage6 auf Visible = false gesetzt werden.

Ich weiß, es sind zwei verschiedene Befehle und wird wahrscheinlich eine Schleife? sein, jedoch habe ich da keine Ahnung, wie ich dies umsetze. Das drumherum im Befehl steht bereits.

Wahrscheinlich denke ich auch zu kompliziert.

Gruß

...zur Frage

VBA IF THEN Formel mit 2 Bedingungen?

Hallo,

ich würde gerne bei einem Programm eine IF THEN Formel Aufstellen mit 2 Bedingungen.

Die Formel sieht aktuell so aus:

IFTHEN(Schriftverkehr['GESRAB']>0, 'Endbetrag ' + '-' +FLOATTOSTRD(Schriftverkehr['GESRAB'],1) + '%' + ' aus' , ' ')

Die erste Bedingung ist wie hier zu sehen: x>0

Die zweite Bedingung soll nun sein: x<49

Also das gewünschte soll nur geschrieben werden wenn X in der Range von 0,1 bis 48,9 liegt. Bei 0 soll das Feld leer sein und bei 49 auch.

Wie würde die Fomel dann aussehen?

...zur Frage

Text mittels Checkbox in Word einblenden (VBA, Macros...)?

Hallo zusammen,

ich stehe vor einem (für mich sehr großen) Word-Problem: Ich möchte zwei Checkboxen einfügen (aus der Kategorie Entwicklertools > Steuerelemente > Active X Kontrollkästchen), welche beim Anklicken jeweils einen bestimmten Text anzeigen bzw. wieder ausblenden.

Aus meiner bisherigen Recherche habe ich herausgefunden, dass das wohl durch Macros funktionieren sollte, damit kenne ich mich aber absolut nicht aus und meine bisherigen Versuche, einen Code aus dem Internet einzufügen, sind auch alle fehlgeschlagen.

Wenn sich irgendjemand in der Lage fühlt, mir weiterzuhelfen und einen entsprechenden Code zur Verfügung zu stellen, tausend Dank schon mal im Voraus!!

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]