Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Ausgewählte Zeilen in Sicherungsdatei kopieren |
13.01.2012 17:06:47 |
abblgribsch |
|
|
|
16.01.2012 13:56:36 |
Ynachten |
|
|
|
16.01.2012 18:40:03 |
abblgribsch |
|
|
|
17.01.2012 09:50:17 |
Ynachten |
|
|
|
17.01.2012 11:52:24 |
abblgribsch |
|
|
|
17.01.2012 12:03:11 |
Ynachten |
|
|
|
17.01.2012 19:37:51 |
abblgribsch |
|
|
Von:
abblgribsch |
Datum:
13.01.2012 17:06:47 |
Views:
3019 |
Rating:
|
Antwort:
|
Thema:
Ausgewählte Zeilen in Sicherungsdatei kopieren |
Hallo,
ich habe bisher folgendes Makro, auch dank euch, soweit hinbekommen.
Sub Delete()
Dim VN_Name
Dim VName As String
Dim NName As String
Dim c As Range, i As Integer
Application.ScreenUpdating = False
VN_Name = InputBox("Bitte Vor- und Nachname eingeben", Default:="Hans Meier") 'Namen eingeben
VName = Split(VN_Name)(0)
NName = Split(VN_Name)(1)
For i = 1 To Worksheets.Count
Worksheets(i).Activate
For Each c In ActiveSheet.Range("C:C").SpecialCells(xlTextValues)
If c.Value = NName And c.Offset(0, 1).Value = VName Then '
c.EntireRow.Cells.SpecialCells(xlCellTypeConstants).ClearContents
Exit For
End If
Next
Next i
Application.ScreenUpdating = True
MsgBox("Name wurde gelöscht")
End Sub
Nun sollen aber noch die Zeilen die in jedem Arbeitsblatt gelöscht werden, vorher in einer anderen Identischen Datei(Wegfälle.xls) gespeichert werden damit man bei Nachfragen immernoch die Daten hat. Außerdem wäre es super wenn eine Rückmeldung drin wäre falls der Name nicht gefunden wurde.
Wäre super wenn mir da(mal wieder) jemand helfen könnte.
Danke schon einmal.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Ausgewählte Zeilen in Sicherungsdatei kopieren |
13.01.2012 17:06:47 |
abblgribsch |
|
|
|
16.01.2012 13:56:36 |
Ynachten |
|
|
|
16.01.2012 18:40:03 |
abblgribsch |
|
|
|
17.01.2012 09:50:17 |
Ynachten |
|
|
|
17.01.2012 11:52:24 |
abblgribsch |
|
|
|
17.01.2012 12:03:11 |
Ynachten |
|
|
|
17.01.2012 19:37:51 |
abblgribsch |
|
|