an "josef "

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: an "josef " von: mayk
Geschrieben am: 23.02.2005 19:31:52

du hast mit deinem wissen schon oft geholfen,
kannst du es bitte noch einmal probieren??

kopiere zellen a1:d1 und füge inhalte in a2:d2, wenn eine oder mehrere zellen in a2:d2 belegt dann die werte erhalten.
gibt es hier für eine formel
oder VBA code
mayk

Bild


Betrifft: AW: an "josef " von: ransi
Geschrieben am: 23.02.2005 20:05:20

hallo mayk

mein name ist zwar nicht Josef, aber vieleicht hilft dir ja auch dieser
codeschnipsel:

Public
Sub test()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub


ransi


Bild


Betrifft: AW: eingefügt als click Ereigniss läuft`s nicht von: mayk
Geschrieben am: 23.02.2005 20:16:30


Private Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub



Bild


Betrifft: glaub ich nicht weil... von: ransi
Geschrieben am: 23.02.2005 20:30:48

Hallo mayk

...das ist mein ursprungscode in dem Tabellenblatt mit den daten:

Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Range("a2:d2"), "") <> 4 Then Exit Sub
Range("a1:d1").Copy Destination:=Range("A2:D2")
End Sub

https://www.herber.de/bbs/user/18628.xls
ransi


Bild


Betrifft: AW: zum teil von: mayk
Geschrieben am: 23.02.2005 21:35:54

hmm, ok so gesehen ja, es wird nur kopiert wenn alle zellen leer sind, aber es sollte so sein das, wenn nur eine zelle beschrieben ist dann auch nur diese eine nicht überschrieben wird und die anderen die leer sind können überschrieben werden , wenn zell =><0 dann kopieren wenn größer null dann nicht.

mayk


Bild


Betrifft: AW: zum teil von: ransi
Geschrieben am: 23.02.2005 22:01:51

hallo mayk

dann war das wohl ein missverständniss:

versuch mal so:
Option Explicit

Public
Sub test()
Dim zelle As Range
For Each zelle In Range("A2:D2")
     If zelle = "" Then zelle = zelle.Offset(-1, 0)
Next
End Sub


ransi


Bild


Betrifft: AW: ja...... herzlichen Dank o.T. von: mayk
Geschrieben am: 24.02.2005 06:09:15




Bild


Betrifft: AW: "zum teil" noch eine Frage (Ransi?) von: mayk
Geschrieben am: 24.02.2005 15:11:57

hallo ransi oder wer helfen mag,

wenn ich jetzt die zellen A1:D1 wieder leer ;""; haben und den verweis erhalten will, wass muß ich dann machen?
es ist sehr komplex was ich vor habe
danke im vorraus, mayk

Sub test()
Dim zelle As Range
For Each zelle In Range("A2:D2")
     If zelle = "" Then zelle = zelle.Offset(-1, 0)
Next
End Sub



Bild


Betrifft: "den verweis erhalten will" ??? von: ransi
Geschrieben am: 24.02.2005 16:16:51

hallo mayk

a1:d1 kannst du die inhalte so löschen:

Sub test2()
Range("a1:d1").ClearContents
End Sub


"den verweis erhalten will" was meinst du damit ??

ransi


Bild


Betrifft: AW: "den verweis erhalten will" ??? von: mayk
Geschrieben am: 24.02.2005 16:22:28

ich habe in den feldern verweise zu einer anderen tabelle und diese müssen trotz des löschens erhalten bleiben, ich könte sie über ein macro wieder einkopieren aber vieleicht gibt es auch eine andere möglichkeit.!?

danke für die antwort mayk


Bild


Betrifft: AW: "den verweis erhalten will" ??? von: ransi
Geschrieben am: 24.02.2005 16:38:14

hallo mayk

Entweder du löscht die Inhalte der zellen und fügst deine formeln wieder ein,
oder du passt die formeln so an dass du erst garnicht löschen musst.
aber irgendwie scheint mir, du hast dich da in etwas verrannt.
lade doch am besten mal ein beispiel hoch aus dem hervorgeht was du eigentlich vorhast.
Vielleicht gibt es ja einen ganz anderen lösungsweg.

ransi


Bild


Betrifft: AW: aber bitte nicht verzweifeln, (ich bleibe dran von: mayk
Geschrieben am: 24.02.2005 16:54:41

hallo

ich habe sie dir hoch geladen und ich hoffe du kannst nachvollziehen was ich will, denn es würde für meine kollegen eine 100% arbeitserleichterung bringen
gruß mayk
https://www.herber.de/bbs/user/18692.xls


Bild


Betrifft: muss ich erstmal sacken lassen...o.T. von: ransi
Geschrieben am: 24.02.2005 17:45:03

hallo mayk


Bild


Betrifft: AW: kann ich evtl. noch etwas erklären? o.T. von: mayk
Geschrieben am: 24.02.2005 20:20:29




 Bild

Beiträge aus den Excel-Beispielen zum Thema "an "josef ""