Office: Lieferschein erstellen per VBA

Helfe beim Thema Lieferschein erstellen per VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Hajo, woooow, super es geht alles....danke dir ! Eine bitte noch, wenn ich den Button löschen anklicke, dann muss die Abschluss Zeichen wieder... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Dakols, 23. Januar 2013.

Seite 2 von 3

DAKOLS

Dakols

Lieferschein erstellen per VBA

Hallo Hajo,

woooow, super es geht alles....danke dir !

Eine bitte noch, wenn ich den Button löschen anklicke, dann muss die Abschluss Zeichen wieder zurück setzen auf die Zeile 3.

Hast du vielleicht eine Idee ?

Danke im Voraus

Dakols, 27. Januar 2013

#16
Hajo_Zi Erfahrener User

ich habe die Datei nicht gespeichert.
Shapes("Group 6").Top = Range("A2").Top + Range("A2").Height + 10

Hajo_Zi, 27. Januar 2013

#17
DAKOLS

Dakols

Hallo Hajo,

Shapes("Group 6").Top = Range("A2").Top + Range("A2").Height + 10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe nicht verstanden, wohin mit dem code zu setzen ?

Danke im Voraus

Dakols, 27. Januar 2013

#18
Hajo_Zi Erfahrener User

Lieferschein erstellen per VBA

du willst ihn ja bei CommandButton UserForm haben
schreibe ein With rum für die Tabelle und überall ein Punkt davor .shapes, .range

Hajo_Zi, 27. Januar 2013

#19
DAKOLS

Dakols

Ich habe keine Ahnung, wie man so schreibt...

schreibe ein With rum für die Tabelle und überall ein Punkt davor .shapes, .range
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da kommt bei mir nur Fehler Anzeige.

Kannst du bitte vielleicht mit den Code hier hoch schreiben.

PHP:

Private Sub CommandButton1_Click() Dim ObCb As Object For Each ObCb In Me.Controls If TypeName(ObCb) = "TextBox" Then ObCb.Value = "" ElseIf TypeName(ObCb) = "CheckBox" Then ObCb.Value = False ElseIf TypeName(ObCb) = "OptionButton" Then ObCb.Value = False End If Next ObCb End Sub

Dakols, 27. Januar 2013

#20
Hajo_Zi Erfahrener User

habe ich das falsch gesehen du schreibst umfangreichen Co´de und kennst With nicht?
With Worksheets)"Hajo")
.Shapes("Group 6").Top =.Range("A2").Top + .Range("A2").Height + 10
End With

Hajo_Zi, 27. Januar 2013

#21
DAKOLS

Dakols

Hallo Hajo,

Sorry, ich dachte nur an sowas anklicken Button zum löschen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Top + Target.Height > Shapes("Group 6").Top Then
Shapes("Group 6").Top = Target.Top + Target.Height + 10
End If
With Worksheets
.Shapes ("Group 6")
.Top = .Range("A2").Top + .Range("A2").Height10
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich verstehe nicht, ich bekomme eine Fehlermeldung, siehe das Bild

Dakols, 27. Januar 2013

#22
Hajo_Zi Erfahrener User

Lieferschein erstellen per VBA

Ich sehe gerade, es war eine Klammer falsch.
With Worksheets("Hajo")
Also Interpretiere ich es richtig, mein Code Vorschlag interessiert Dich nicht.
Ich bin dann raus.

Hajo_Zi, 27. Januar 2013

#23
HS(V)

HS(V)

Leider habe ich keine E-Mail-Nachrichten bekommen.
Ich habe "sofortige e-Mail" Eingesteld. ??
@ Hajo,
Kürzer ist nicht immer schneller.
Es gibt 36 Controls Im Userform.
Code:

Debug Print controls.count
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich benutze einen loop von 24.
Sie verwenden eine Schleife über alle Steuerelemente.
Auch gut für mich.
Code etwas angepasst für Textbox_click.

Code:

Dim b As String
Sub hsv()
Dim chbx As Object, i As Long
Set chbx = Controls.Item(b)
Cells(23 + chbx.Caption, 4) = IIf(chbx, chbx.Caption, ClearContents)
For i = (chbx.Caption - 1) * 5 + 1 To (chbx.Caption - 1) * 5 + 5
Me("textbox" & i).Visible = chbx.Value
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub CheckBox1_Click()
b = CheckBox1.Name
hsv
End Sub

Private Sub CheckBox2_Click()
b = CheckBox2.Name
hsv
End Sub

Private Sub CheckBox3_Click()
b = CheckBox3.Name
hsv
End Sub

Private Sub CheckBox4_Click()
b = CheckBox4.Name
hsv
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 28. Januar 2013

#24
DAKOLS

Dakols

Hallo Hajo,

ich bedanke mich trotzdem !

Ich habe immer noch Problem.

Dakols, 28. Januar 2013

#25
DAKOLS

Dakols

Hallo HS (Harry),

Vielen Dank, ich habe dein Code noch nicht getestet.
ich bleibe auf den alten Code von Hajo Seite und Hary, sonst bekomme ich keine übersicht mehr, denn ich bin kein VBA kenner.

Dakols, 28. Januar 2013

#26
DAKOLS

Dakols

Hallo zusammen,

ich bekomme immer noch ne Fehler Meldung. *frown.gif*
Wer kann mir bitte helfen, für die Lösung, siehe datei.
Group 6 muss wieder zurück gesetzt werden auf die zeile 3 ,wenn ich den Button (Löschen) anklicke.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Top + Target.Height > Shapes("Group 6").Top Then
Shapes("Group 6").Top = Target.Top + Target.Height + 10
End If
With Worksheets()
.Shapes("Group 6").Top = .Range("A2").Top + .Range("A2").Height + 10
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke im Voraus

Dakols, 28. Januar 2013

#27
HS(V)

HS(V)

Lieferschein erstellen per VBA

Sie meinen Soëtwas Dakols ?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Top + Target.Height > Shapes("Group 6").Top Then
Shapes("Group 6").Top = Target.Top + Target.Height + 10
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub CommandButton1_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then
ObCb.Value = ""
ElseIf TypeName(ObCb) = "CheckBox" Then
ObCb.Value = False
End If
Next ObCb
With Sheets("Tabelle1")
.Shapes("Group 6").Top = .Range("A2").Top + .Range("A2").Height + 10
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 28. Januar 2013

#28
DAKOLS

Dakols

Hallo HS (Harry),

Jaaaaaaaaaaaaaaa genau so und jetzt funktioniert, so wie ich mir vorgestellt habe, danke dir .

Wie du siehst, ich habe auf die andere code gesetzt, deswegen falsch.
Deswegen habe ich nicht richtig verstanden, was der Profi Hajo meinte.
Hajo gibt sich immer schnell auf, nach diesem Motto "Ich bin dann raus."

Egal, ich bedanke mich für alles.

Nun bin "ICH HABE FERTIG, Trapattoni sein spruch"

Dakols, 28. Januar 2013

#29
HS(V)

HS(V)

Bitte sehr Dakols.

Vielleicht etwas in der Zukunft.

Sie können auch den Code hier unter etwas einfacheres schreiben.
Code:

Private Sub Userform_Initialize()
Dim txControl As Control, i As Long
For Each txControl In Controls
If TypeName(txControl) = "TextBox" Then
i = i + 1
txControl.Value = Worksheets("Tabelle1").Range("A2:E6")(i)
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Statt.
Code:

Private Sub UserForm_Activate()
TextBox1.Text = Range("a2").Cells
TextBox2.Text = Range("b2").Cells
TextBox3.Text = Range("c2").Cells
TextBox4.Text = Range("d2").Cells
TextBox5.Text = Range("e2").Cells
TextBox6.Text = Range("a3").Cells
TextBox7.Text = Range("b3").Cells
TextBox8.Text = Range("c3").Cells
TextBox9.Text = Range("d3").Cells
TextBox10.Text = Range("e3").Cells
TextBox11.Text = Range("a4").Cells
TextBox12.Text = Range("b4").Cells
TextBox13.Text = Range("c4").Cells
TextBox14.Text = Range("d4").Cells
TextBox15.Text = Range("e4").Cells
TextBox16.Text = Range("a5").Cells
TextBox17.Text = Range("b5").Cells
TextBox18.Text = Range("c5").Cells
TextBox19.Text = Range("d5").Cells
TextBox20.Text = Range("e5").Cells
TextBox21.Text = Range("a6").Cells
TextBox22.Text = Range("b6").Cells
TextBox23.Text = Range("c6").Cells
TextBox24.Text = Range("d6").Cells
TextBox25.Text = Range("e6").Cells
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 29. Januar 2013

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Lieferschein erstellen per VBA

Die Seite wird geladen...

Lieferschein erstellen per VBA - Similar Threads - Lieferschein erstellen VBA
2 Benutzerdefiniertes Inhaltsverzeichnis erstellen
in Microsoft Word Hilfe
2 Benutzerdefiniertes Inhaltsverzeichnis erstellen: Hallo zusammen Ich stehe gerade vor dem Wald und seh die Bäume nicht - oder besser gesagt, völlige Leere im Kopf. Ich arbeite mit Office 2021 und versuche ein 2 Benutzerdefiniertes...
Lieferscheine nach Rechnungsnummern zusammenrechnen
in Microsoft Excel Hilfe
Lieferscheine nach Rechnungsnummern zusammenrechnen: Hallo, Ich bin gerade am überlegen, ob das ganze besser geht. Ich habe eine große Tabelle, wo ich unsere Lieferscheine eintrage. Dazu kommt noch das Material und dann der Preis, der uns...
Lieferscheine einer Rechnung zuweisen
in Microsoft Access Hilfe
Lieferscheine einer Rechnung zuweisen: Ich bin gedanklich beim nächsten Schritt in meiner Firmen-Datenbank. Ich möchte eine Excel-Tabelle "ablösen" - auch wenn ich noch gar nicht mal so sicher bin, ob das überhaupt so sinnvoll ist,...
Lieferschein in Access über Excel Tabelle
in Microsoft Access Hilfe
Lieferschein in Access über Excel Tabelle: Hallo, folgende Aufgabenstellung: Wir sind im Verleihgeschäft tätig und verleihen Multimedia Geräte. Diese Geräte sind immer in unterschiedlichen Verpackungen mit Unterschiedlichen...
Lieferschein erstellen
in Microsoft Word Hilfe
Lieferschein erstellen: Hallo liebe Officeinianer, ich bin noch ganz neu hier und möchte mich kurz mal vorstellen...glaube so macht das in neuen Foren, oder? Bei uns den (Freizeit)Cowboys / -Girls heißt das [ATTACH]...
Datenbank für Lieferscheine
in Microsoft Access Hilfe
Datenbank für Lieferscheine: Hallo, Ich hab da ein Problem, welches ich aufgrund meiner nicht wirklich vorhandenen Access Kenntnisse nicht wirklioch Lösen kann. Ich würde gerne LIeferscheine über Access erstellen um...
Hilfe!!Lieferscheine über Excel
in Microsoft Excel Hilfe
Hilfe!!Lieferscheine über Excel: Hallo Leute, ich bin langsam am verzweifeln wie ich an einem Problem ansetzten kann... Es ist so: In Excel sind (9 Spalten mit Kontaktdaten der Kunden vorhanden:Firma,Ansprechpartner,Adresse...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden