Markierung löschen

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

Betrifft: Markierung löschen
von: Giuseppe
Geschrieben am: 12.11.2003 18:42:21

Hallo Freunde,
2 Fragen habe ich:
1. Wie kann man per VBA die Markierung der kopierte Tabelle nach ein COPY -> PASTE aufheben?
2. Wie kann man eine kopierte Tabelle am ende der gesamten Tabellen schieben?
Danke
Giuseppe

Bild


Betrifft: AW: Markierung löschen
von: Hajo_Zi
Geschrieben am: 12.11.2003 18:50:09

Hallo Guiseppe

zu 1 in VBA ist zu 99% select, Activate usw. sinnlos.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Markierung löschen
von: Giuseppe
Geschrieben am: 12.11.2003 18:55:26

Hallo Hajo Guten Abend
Was hat Select usw. mit Markierung aufheben zu tun?
Ich möchte einfach, dass nach kopieren und einfügen die markierung aufgehoben
wird!! Kann man sowas erreichen?
Ciao
Giuseppe


Bild


Betrifft: AW: Markierung löschen
von: Hajo_Zi
Geschrieben am: 12.11.2003 19:00:50

Hallo Guiseppe

ich bin davon ausgegangen das Du um eine Markierung aufzuheben, den Bereich erst markieren mußt. Dies geschieht durch Selektion. Mir ist keine andere Art bekannt eine Markierung zu erstellen.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Markierung löschen
von: Giuseppe
Geschrieben am: 12.11.2003 19:11:46

Hallo Hajo,
damit du weiß was ich meine:

Sub Copy()
ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
  ActiveWindow.DisplayGridlines = False
  ActiveWindow.DisplayHeadings = False
    BlattName = ActiveCell.Worksheet.Name
ZelleA1 = Cells(1, 1)
Sheets(BlattName).Select
Sheets(BlattName).Name = ZelleA1
End Sub

Cell.Select hat die ganze Tabelle markiert (Grau) und diese Markierung will ich weg haben.
ciao
Giuseppe


Bild


Betrifft: Am Ende: Range("A1").Select o.T.
von: Ramses
Geschrieben am: 12.11.2003 19:57:15

...


Bild


Betrifft: AW: Markierung löschen
von: PeterW
Geschrieben am: 12.11.2003 19:58:16

Hallo Guiseppe,

den Markierungsrahmen schaltest du mit
Application.CutCopyMode = False
aus.

Gruß
Peter


Bild


Betrifft: Danke Peter, danke Ramses
von: Giuseppe
Geschrieben am: 12.11.2003 20:28:14

.


Bild


Betrifft: AW: Markierung löschen
von: Hajo_Zi
Geschrieben am: 12.11.2003 20:00:42

Hallo Guiseppe


Sub Kopieren()
'   Makro sollten nicht so einen Namen haben wie VBA Befehle
'   Variablen definieren
    ActiveSheet.Unprotect
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    ActiveWindow.DisplayGridlines = False   ' Gitternetzlinie
    ActiveWindow.DisplayHeadings = False    ' Spaltenübeschriften
    BlattName = ActiveCell.Worksheet.Name
    ZelleA1 = Cells(1, 1)
    Sheets(BlattName).Name = ZelleA1
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Markierung löschen
von: giuseppe
Geschrieben am: 12.11.2003 20:26:43

Hallo Hajo,
du bist Spitze!!! echt super!!! Danke
Gewusst wie...!
letzte frage für heute:
wie frage ich ab ob die Tabelle schön vorhanden ist??
danke noch mal
Giuseppe


Bild


Betrifft: AW: Markierung löschen
von: Hajo_Zi
Geschrieben am: 12.11.2003 20:31:10

Hallo Giuseppe

feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:

Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = InputBox(„Bitte Tabellenname auswählen!“)
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Beep
MsgBox „Kein Blatt gefunden!“
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Markierung löschen
von: giuseppe
Geschrieben am: 12.11.2003 21:02:59

Hallo Hajo,
ich habe versucht aber ich habe nicht geschafft dein Code in meinen Code zu integrieren.
kannst du mir helfen?
Das ist nochmal der Code:

Sub TabAuswahl()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
  ActiveWindow.DisplayGridlines = False
  ActiveWindow.DisplayHeadings = False
 
    BlattName = ActiveCell.Worksheet.Name
ZelleA1 = Cells(1, 1)
Sheets(BlattName).Select
Sheets(BlattName).Name = ZelleA1
End Sub

Sorry, ich schaffe es nicht!!
Danke
Giuseppe


Bild


Betrifft: AW: Markierung löschen
von: Hajo_Zi
Geschrieben am: 12.11.2003 21:10:38

Hallo Giuseppe


Sub TabAuswahl()
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name = Cells(1, 1) Then
            MsgBox "Blatt schon vorhanden"
            Application.ScreenUpdating = True
            Exit Sub
        End If
    Next Sh
    ActiveSheet.Name = Cells(1, 1)
    Application.ScreenUpdating = True
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: Danke
von: giuseppe
Geschrieben am: 12.11.2003 22:29:48

Danke Hajo


Bild

Beiträge aus den Excel-Beispielen zum Thema " Markierung löschen"