Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Wert in letzte Spalte eintragen
#1
Hallo!

Ich möchte mit bestehendem Code, dass der eingegebene Wert in die letzte Zeile der Spalte B eingetragen wird, statt B64. Hier mein bestehender Code:

Code:
Sub neuesPaneleintragen()

   panel = InputBox("Bitte neuen Panelnamen eingeben: ")

   If panel = "" Then Exit Sub
   
   With Worksheets("Panels")
        .Range("B64").Value = CVar(panel)
    End With
End Sub

Ich hoffe, dass mir jemand weiter helfen kann.

LG
Thomas
Excel Version 2016
Antwortento top
#2
moin

also die letzte Zeile in Spalte B wäre dann  .Range("B1048576").value = ...

ansonsten vielleicht so?

Code:
Sub neuesPaneleintragen()
    Dim lngZiel As Long
    panel = InputBox("Bitte neuen Panelnamen eingeben: ")
    If panel = "" Then Exit Sub
    With Worksheets("Panels")
        lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(lngZiel, 2).Value = CVar(panel)
    End With
End Sub


MfG Tom
Antwortento top
#3
Moin!
Hier reicht ein Einzeiler:

Worksheets("Panels").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = _
  InputBox("Bitte neuen Panelnamen eingeben: ")


Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top
#4
Hallo Tom!

Danke sehr für die rasche Hilfe. Eine Frage hätte ich noch. Was bedeutet die Zahl 2 in der Codezeile "lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1"
Wie müsste der Code noch aussehen, wenn ich will, dass erst ab Zeile 5 eintragen wird?

Danke und

LG
Thomas
Excel Version 2016
Antwortento top
#5
Ich antworte mal, obwohl mein Einzeiler geflissentlich überlesen wurde.
Die Item-Eigenschaft des Cells-Objektes ist
Cells(Zeile, Spalte)
die zweite Spalte ist B
Du kannst Aber auch Cells(15, "B") schreiben.

Zur zweiten Frage:
In der Regel steht doch wohl eine Überschrift über dem ersten Eintrag, oder?

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top
#6
Hallo Thomas,

nichts für ungut, aber wenn du das nicht weißt, bzw. herausfinden kannst, ist es wohl noch viel zu früh, sich mit VBA zu befassen. Syntax: Cells(Zeile, Spalte), bedeutet in deinem Fall die 2. Spalte, also Spalte B.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste