Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen vergleichen und ggf. überschreiben
 21.09.2015 14:01:16 MZ
NotSolved

Ansicht des Beitrags:
Von:
MZ		 Datum:
21.09.2015 14:01:16		 Views:
2602		 Rating:
     
Antwort:
  Ja
Thema:
Zellen vergleichen und ggf. überschreiben

Hallo zusammen,

ich habe ein Programm geschrieben, das Inhalte einer Arbeitsmappe untereinander in eine Spalte einer anderen kopiert. Zu Beginn wird abgeprüft, ob die Überschrift ("Suche") bereits vorhanden ist. Ist dies der Fall wird die Frage ausgegeben, ob die Daten überschrieben werden sollen oder nicht. Falls die Daten nicht überschrieben werden sollen, oder die Überschrift noch nicht vorhanden ist, wird die nächste freie Spalte gesucht und dort hineinkopiert.

Das Problem, das ich gerade habe ist, dass bei existierender Überschrift und positiver Beantwortung der "Überschreiben?"-Frage die Zellen nicht überschrieben werden.

Sieht jemand den Fehler in meinem Programm?

 

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim existiert As Boolean
    existiert = False
    Dim Suche As String
    Suche = ActiveSheet.Range("B1")
    Worksheets("Vergleich").Select
    Range("A2").Select
 
' ...Zellen A2 bis A22 vergleichen...   
    For i = 1 To 20
        If ActiveCell <> Suche Then ActiveCell.Offset(0, 1).Select Else existiert = True
    Next i
 
' ...Abfrage ob die Spalte überschrieben werden soll...      
    If existiert = True Then
        If MsgBox("" & Suche & " existiert bereits. Überschreiben?", vbYesNo) = vbNo Then
            Worksheets("Vergleich").Select
                Range("A2").Select
                For i = 1 To 20
                    If ActiveCell.Value <> "" Then ActiveCell.Offset(0, 1).Select Else Exit For
                Next i
        Else: ActiveCell.Select
        End If
    End If
 
' ...freie Spalte finden...               
    If existiert = False Then
        Worksheets("Vergleich").Select
                Range("A2").Select
                For i = 1 To 20
                    If ActiveCell.Value <> "" Then ActiveCell.Offset(0, 1).Select Else Exit For
                Next i
    End If
 
' ...jetzt folgt das kopieren der Daten...
For Each Zelle In Quelltab1.Range("B1:B23")
        Zieltab.Cells(Zaehler, i) = Zelle
        Zaehler = Zaehler + 1
Next Zelle

 

 

 

Danke!

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Zellen vergleichen und ggf. überschreiben
 21.09.2015 14:01:16 MZ
NotSolved