Herbers Excel-Forum - das Archiv

Refedit Funktion

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

Betrifft: Refedit Funktion
von: Joachim Dallinger
Geschrieben am: 30.09.2003 09:34:31
Hallo zusammen,

ich habe in einem userform für das kopieren von Spalten volgendes programm erstellt:

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Dim Sp, Spv
Sp = ActiveCell.Column
If Sp < 10 Then
UserForm2.Hide
Exit Sub
Else
Spv = Sp + 1
If Spv < 256 Then
Range(Cells(2, Sp), Cells(76, Sp)).Copy
Range(Cells(2, Spv), Cells(76, Spv)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Else
MsgBox " Das Möbelblatt ist voll "
End If
End If
UserForm2.Hide
End Sub


Nun zur Frage

Ich möchte nun dem Anwender die Möglichkeit geben
ganze Bereiche zu kopieren und habe in das userform zwei Felder refedit eingefügt. Dabei soll aber nur die Spalteninfo aus der rückmeldung der refedit Felder verwendet werden und die zu kopierenden Zeilen durch das Programm festgelegt sein.
Beispiel:
Quelle $AE$72:$AI$73
Ziel $AM$74:$AP$76
Die Zeilen sollen immer 2 - 76 sein
kann mir jemand helfen?
Bild

Betrifft: AW: Refedit Funktion
von: Hajo_Zi
Geschrieben am: 30.09.2003 16:24:30
Hallo Joachim

wenn der Beitrag nochmal reingestellt wird, was eigentlich nicht sein sollte es gibt den schalter offen. Dann sollte man den alten Beitrag schon schliessen damit er nicht zweimal in offen erscheint.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

 Bild
Excel-Beispiele zum Thema " Refedit Funktion"
Bereich in RefEdit-Element eingeben und auslesen UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen
In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen Über UserForm-RefEdit-Steuerelement Bereich auswählen
Begrenzung der RefEdit-Auswahl auf eine Zelle Funktion ANZAHL2 ohne ausgeblendete Spalten
Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche
Alle Prozeduren und Funktionen auflisten In Funktionskategorie einordnen