Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > VBA.Beispiele > Eintrag mit dazugehörigen Textfeld löschen
Fragen zu den VBA-Beispielen aus dem Downloadbereich
In diesem Board befinden sich 110 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


CreatorX ist offline CreatorX  Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
15.8.2014 - 16:57 Uhr
17 Posts
Stammgast


Hallo Leute,
ich hab da mal wieder eine Herausforderung bei der ich nicht mehr weiterkomme.
Ich habe eine TB in der ich eine Zeile anwähle und dann eine Textbox erzeuge mit deren Inhalt.
nun will ich diesen eintrag wieder durchgestrichen makieren und die zaugehörige Textbox streichen.
Das durchstreichen geht schon, nur das löschen der Textbox funktioniert nicht.
der Code zum Löschen schaut folgendermaßen aus:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Private Sub Bauteilclear_Click()
Dim r As Long
Dim intA As Integer
Dim shpTextBox As Shape
 
r = ActiveCell.Row
 
 
    Application.ScreenUpdating = False
    intA = MsgBox("Eintrag wirklich streichen?", 1 + vbQuestion, "Löschrückfrage")
        If intA = vbCancel Then
            Exit Sub
        Else
            Rows(r).EntireRow.Font.Strikethrough = True
            Rows(r).EntireRow.Font.ColorIndex = 3
            Rows(r).EntireRow.Font.Bold = False
            For Each shpTextBox In Worksheets("Übersichtsbilder").Shapes
                If InStr(shpTextBox.TextFrame.Characters.Text, Cells(r, 1).Value) Then shpTextBox.Delete: Exit For
            Next shpTextBox
        End If
    Application.ScreenUpdating = True
End Sub
 


*ich habe festgestellt das der Code unter Office 2007 funktioniert. Da ich Office 2010 habe muß da wohl was umgebaut werden. *

Ich hab mal eine Testdatei mit den Codes rangehangen.
Bin für jeden Hinweis dankbar.

Gruß CX

CreatorX hat folgende Datei angehängt:

[link=./gallery/2_from_CreatorX_test für forum.xlsm]2_from_CreatorX_test für forum.xlsm | Dateigrösse: 216 KB


CreatorX ist offline CreatorX  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.8.2014 - 2:16 Uhr
17 Posts
Stammgast


Noch mal die Datei

CreatorX hat folgende Datei angehängt:

2_from_CreatorX_test für forum.xlsm | Dateigrösse: 215 KB


Ste_Ro ist offline Ste_Ro  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.8.2014 - 9:51 Uhr
568 Posts
Top-User


Hi CX,

lade die Datei nochmal ohne Umlaut hoch und am besten als .xls...
Gruß Steffen
Microsoft Office 2003

Schaut auch hier mal vorbei...


CreatorX ist offline CreatorX  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.8.2014 - 23:40 Uhr
17 Posts
Stammgast


Hallo Stefan,

meinst du nur die Umlaute im Dateinamen? oder auch im Code?
hab jetzt nur den Dateinamen geändert.

Gruß CX

CreatorX ist offline CreatorX  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
16.8.2014 - 23:41 Uhr
17 Posts
Stammgast


Also das mit dem Datei Hochladen ist schon arg.

hmm.. löl

CreatorX hat folgende Datei angehängt:

2_from_CreatorX_test fuer forum.xlsm | Dateigrösse: 211 KB


Ste_Ro ist offline Ste_Ro  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
17.8.2014 - 13:46 Uhr
568 Posts
Top-User


Hi CX,

die Umlaute sollten im Dateinamen nicht vorkommen da diese sonst nicht geöffnet werden kann!
Dein Problem betreffend ist es wahrscheinlich besser, das Shape genauso anzusprechen, wie du es erzeugt hast... etwa so:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Bauteilclear_Click()
Dim shpT As Shape
Dim r As Long
Dim intA As Integer
 
r = Selection.Row
 
    Application.ScreenUpdating = False
    intA = MsgBox("Eintrag wirklich streichen?", 1 + vbQuestion, "Löschrückfrage")
        If intA = vbCancel Then
            Exit Sub
        Else
            Rows(r).EntireRow.Font.Strikethrough = True
            Rows(r).EntireRow.Font.ColorIndex = 3
            Rows(r).EntireRow.Font.Bold = False
 
            For Each shpT In Worksheets("Übersichtsbilder").Shapes
                If shpT.Name = "myTextShape_" & r Then shpT.Delete
            Next shpT
           
        End If
    Application.ScreenUpdating = True
End Sub

So getestet funktioniert es bei mir (Office2007) jedenfalls.
Gruß Steffen
Microsoft Office 2003

Schaut auch hier mal vorbei...


CreatorX ist offline CreatorX  Re: Eintrag mit dazugehörigen Textfeld löschen Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
17.8.2014 - 20:20 Uhr
17 Posts
Stammgast


Hallo Stefan,

ja da hast du natürlich recht mit dem ansprechen der Shapes.
Es funktioniert auch unter Office 2010.
Habe dank.
Funktioniert alles bestens.

Gruß CX

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek