54 Antworten in diesem Thema

[Heiß75]

Ich möchte mich Helfe über VBA ,Code und Excel!

Ich habe bastel 0-36 Button(Klick) nach Excel immer Spalten A2,A3,A3,A4 ........

Aber ich selbst nicht klappt!

Achnung für VBA Code.

Ich habe ein Bild einfügen!

Bitte mich helfe!

Angehängte Dateien

•  VBA_Tool_0_36_.01.JPG   224.49K   87 Mal heruntergeladen

[Heiß75]

Für Code!

Ich will Richtig Code!

Bitte mich helfe!

Angehängte Dateien

•  VBA_Tool_0_36_.02.JPG   202.77K   35 Mal heruntergeladen

[Faustan]

Moin,

da muss noch für jeden Button eine For-Schleife rein mit der du in Spalte A die erste leere Zelle findest und dann ausfüllst.

Etwa sowas:

Dim n As Long

For n = 2 To Cells(65356, 1).End(xlDown).Row
    If Cells(n, 1).Value = "" Then
 	   Cells(n, 1).Value = 0
		Exit For
	End If
Next n

Die Value halt für jeden Button anpassen, 0-36.

[Heiß75]

@Faustan Moin,Gut gemacht, 0-36 ist fertig

Das ist Bild, tipp Falsche gemacht zurück löscht!

D Button = Löscht letzte oben auch weiter oben!

Code!


Bitte mich helfe!

Angehängte Dateien

•  VBA_Tool_0_36_.03.JPG   236.19K   29 Mal heruntergeladen

[Faustan]

Die letzte Eingabe löschen:

Dim n As Long
For n = 3 To Cells(65356, 1).End(xlDown).Row
    If Cells(n, 1).Value = "" Then
 	   Cells(n - 1, 1).Value = ""
		Exit For
	End If
Next n

Wichtig Variable n ist diesmal 3, damit nicht das Wort 'Permanenz' aus A1 gelöscht wird.

Gesamte Permanenz löschen:

Dim n As Long
Dim n As Long
For n = 2 To Cells(65356, 1).End(xlDown).Row
    If Cells(n, 1).Value = "" Then
		Exit For
		Else
 	   Cells(n, 1).Value = ""
	End If
Next n

[Heiß75]

@Faustan

Und ein Problmen letzte unter nicht sehe wie soll Scrollbar??



Bitte mich helfe!

Schritt für Schritt

Angehängte Dateien

•  VBA_Tool_0_36_.04.JPG   200.47K   23 Mal heruntergeladen

[Faustan]

Sollte klappen mit

Cells(n, 1).Select

also einfach in eine neue Zeile unter "Cells(n, 1).Value = 0" bei jedem Button schreiben.

[Heiß75]

@Faustan moin

UserForm bleibe,dass Maus nach Tabelle2"Anzahl Plein und EC Serie,EC-Serie" klick nicht klappt.

soll alles fertig dass festSchlüssel??



Bitte mich helfe!

Schritt für Schritt

Angehängte Dateien

•  VBA_Tool_0_36_.05.JPG   208.62K   13 Mal heruntergeladen

[Faustan]

Moin,

ah okay. Nach viermal lesen hab' ich's verstanden

Du möchtest dass das 2te 3te oder 4te Blatt geöffnet bleibt wenn du in die UserForm klickst.

Muss man mal schauen, im Code muss man dann noch eingeben das nur in Tabelle1 die Zellen genutzt werden.

Sooo fit in Excel Vba bin ich auch nicht, also kann 'nen Moment dauern bis ich mir das ergoogelt habe




Bis 'schpeter'.

[Faustan]

Okay,


verändere für jeden Button einfach den Code in:

Sheets(1).Cells(n, 1).Value = ""

Also bei Cells... nur Sheets(1). davor schreiben.
Somit wird nur in das erste Blatt (Sheet) geschrieben. 

Ebenso beim Löschen-Button. Ansonsten löscht er nämlich im aktuellen Blatt. Wollen wir ja nicht.
Sollte dann alles so klappen, oder?

Bearbeitet von Faustan, 17 September 2010 - 11:27.

[Heiß75]

Zitat

Gesamte Permanenz löschen:

QUELLTEXTDim n As Long
Dim n As Long
For n = 2 To Cells(65356, 1).End(xlDown).Row
If Cells(n, 1).Value = "" Then
Exit For
Else
Cells(n, 1).Value = ""
End If
Next n

Dort ist langsam,
---------------------------------------
Private Sub CommandButton39_Click() = P
Range("A2:A100").ClearContents

End Sub
---------------------------------------

Zitat

Die letzte Eingabe löschen:



QUELLTEXTDim n As Long
For n = 3 To Cells(65356, 1).End(xlDown).Row
If Cells(n, 1).Value = "" Then
Cells(n - 1, 1).Value = ""
Exit For
End If
Next n

[Heiß75]

Zitat

Gesamte Permanenz löschen:

QUELLTEXTDim n As Long
Dim n As Long
For n = 2 To Cells(65356, 1).End(xlDown).Row
If Cells(n, 1).Value = "" Then
Exit For
Else
Cells(n, 1).Value = ""
End If
Next n

Dort ist langsam,
---------------------------------------
Private Sub CommandButton39_Click() = P
Range("A2:A100").ClearContents

End Sub
---------------------------------------

Zitat

Die letzte Eingabe löschen:



QUELLTEXTDim n As Long
For n = 3 To Cells(65356, 1).End(xlDown).Row
If Cells(n, 1).Value = "" Then
Cells(n - 1, 1).Value = ""
Exit For
End If
Next n

Klick=D



0-37 +D +P zusammen =Button 39 klick

Gut.aber noch mehr

[Faustan]

Hmm?

meine Lösung ist langsam, und 

Private Sub CommandButton39_Click() = P
Range("A2:A100").ClearContents


ist schneller? Okay. Aber denk dran das Range() den Content im aktuellen Blatt löscht. Da müsstest noch Sheets(1). davor schreiben *glaub ich*.

Bearbeitet von Faustan, 17 September 2010 - 11:27.

[Heiß75]

Zitat

Hmm?

meine Lösung ist langsam, und

Private Sub CommandButton39_Click() = P
Range("A2:A100").ClearContents


ist schneller? Okay. Aber denk dran das Range() den Content im aktuellen Blatt löscht. Da müsstest noch Sheets(1). davor schreiben *glaub ich*.

Eben ich versuche dazu Range("Tabelle1A2:A100").ClearContents .weil zur Tabelle1 ja löscht andere Tabelle2oder3,,, nicht löscht

Mein meinung immer wichtig zur Tabelle1 eingeben immer auf A2bisA1000.

Angehängte Dateien

•  VBA_Tool_0_36_.06.JPG   51.42K   16 Mal heruntergeladen

[Heiß75]

Aber dazu "Tabelle1" beispiel Excel Tab1 nach Tab2 Tabelle1!A..... wie gleich

aber für Code dazu Tabelle1

immer richtig zur Tabelle1 eingeben!

Angehängte Dateien

•  VBA_Tool_0_36_.07.JPG   64.8K   9 Mal heruntergeladen