MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 20.10.2017, 17:03   #1
janiki0812
Neuer Benutzer
Neuer Benutzer
Standard VBA - Zellenwert von vorheriger Zelle addieren

Hallo!

Ich benötige bitte eure Hilfe.

Ich möchte gerne Per klick auf schaltfläche diverse zellen füllen, und in eine Zelle Schreiben.

der Code ist so:
Code:

Private Sub CommandButton8_Click()
      
    zeile = Cells(Rows.Count, 1).End(xlUp).Row + 1

    Tabelle9.Cells(zeile, 1) = "=zeile+1"
    Tabelle9.Cells(zeile, 2) = TextBox140
    Tabelle9.Cells(zeile, 3) = TextBox141
    Tabelle9.Cells(zeile, 4) = TextBox142
    
End Sub
Wenn wir davon ausgehen, dass die Tabelle bis Zeile 10 gefüllt ist.
per Klick auf Schaltfläche sollen Spalte 2,3 und 4 mit Text ausgefüllt werden (das funktioniert einwandfrei) und zusätzlich soll der Wert von A10 mit 1 addiert werden. normal in excel würde ich =A10+1 schreiben und es klappt.
Ich benötige hilfe, dass mit vba die vorletzte zeile automatisch erkannt und mit 1 addiert wird.

Danke für eure Hilfe,
Ich hoffe ich konnte ausdrücken, an was ich scheitere.

lg jannik
janiki0812 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 17:07   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Tabelle9.Cells(zeile, 2) = TextBox140 & Range("A1")+1

GrußformelHomepage

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 17:48   #3
janiki0812
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

vielen dank für die schnelle antwort.

leider funktioniert das nicht.

wenn ich es so eingebe, dann erhalte ich das ergebnis (ich habe ein bild angefügt.


Wenn ich
Code:

Tabelle9.Cells(zeile, 1) = Range("A1") + 1
    Tabelle9.Cells(zeile, 2) = TextBox140
    Tabelle9.Cells(zeile, 3) = TextBox141
    Tabelle9.Cells(zeile, 4) = TextBox142
dann erhalte ich in der ersten spalte zwar die nummer 1, aber die vorige zeile wird nicht um 1 adiert.

lg und danke
Angehängte Grafiken
Dateityp: png unknown.PNG (13,7 KB, 3x aufgerufen)
janiki0812 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 17:51   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

Gut mein Vorschlag wurde nicht umgesetzt.
Ich bin dann raus.
Mit Bilder kann Excel nichts anfangen.
Vielleich sieht jemand anderes das Bild.

Gruß Hajo

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 18:41   #5
janiki0812
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke, dass du dir die zeit nimmst um mir anzuworten.

Ich habe deinen vorschlag versucht
Code:

Tabelle9.Cells(zeile, 2) = TextBox140 & Range "(A1)"+1
    Tabelle9.Cells(zeile, 3) = TextBox141
    Tabelle9.Cells(zeile, 4) = TextBox142
aber leider wird dann die Zahl in Spalte 2 addiert und nicht
Die Fortlaufende nummer in Spalte 1,
in dem angehängten bild wollte ich dies nur zeigen.

lg und danke
janiki0812 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 10:15   #6
hary
MOF Guru
MOF Guru
Standard

Moin
Versuch es mal so.
Code:

With Tabelle9
  .Cells(zeile, 1) = Application.Max(.Columns(1)) + 1
  .Cells(zeile, 2) = TextBox140
  .Cells(zeile, 3) = TextBox141
  .Cells(zeile, 4) = TextBox142
End With
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2017, 12:32   #7
janiki0812
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo.
Vielen Dank!

Leider antworte ich erst jetzt, weil ich scheinbar das thema nicht abonniert habe und nicht gesehen habe, dass eine antwort da ist.

Ich habe es jetzt nicht ganz so schön gelöst, aber es funktioniert;

habe jz im arbeitsblatt in der ersten spalte:
=WENN(ISTZAHL(B4);A3+1;"")

und lass es mir im VBA anzeigen. Viele werden jz wsl einen krampf bekommen, weil die umsetzung nicht so schön ist, aber das ergebnis ist erreicht

Lg jannik
janiki0812 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:43 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.