Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 362
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von RAMIREZ-333 vom 12.01.2018, 10:03 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Copy/Werte einfügen bei nicht zusammen hängenden Zellen

 (88 Hits)

Guten Morgen zusammen! (Und frohes Neues!)
Ich benötige Hilfe bei folgendem Problem!

Ich habe eine Datei, wessen relevante Felder ich mit Formeln/Abfragen auf eine täglich Downloaddatei hinterlegt habe.
Also die Überschriften oben sind die entsprechenden Tage und senkrecht die Topics.

Der Ablauf soll so sein:
Die Kollegen speichern täglich den Systemdownload (also die aktuellen Zahlen) unter einem fixen Dateinamen.
Auf diese Datei greife ich in meiner Datei per Sverweis zu und in der entsprechenden Tagesspalte sind die aktuellen Werte .

So weit so gut!

Nun möchte ich aber, daß in der aktuellen Spalte (Also der gerade übertragene Tag) alle per Formel reingezogene Daten fixiert werden, also Copy/Werte einfügen!

Ich habe bereits ein Makro gefunden, der mir alle nicht gesperrten Zellen markiert, aber da die Zellen nicht zusammenhängen klappt Copy/Paste-Werte nicht!

Ich bräuchte bitte einen Makro der:
1. die Spalte der aktiven Zelle markiert
2. Hier die Nichtgesperrten Zellen highlightet
3. Copy/Werte einfügen bei diesen Zellen macht ->fertig

Geht das so, wie ich mir das vorstellt und kann mir hier jemand helfen?

Danke im voraus


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 12.01.2018, 10:29 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Tim,

das folgende Makro durchläuft die Spalte der aktiven Zelle und wandelt bei nicht geschützten Zellen (Blattschutz ist aktiv) den Inhalt der Zellen in Werte um. Das Makro gehört in ein Standard Modul der Arbeitsmappe:

Sub werte()

Dim lngSpalte As Long
Dim lngLetzte As Long
Dim lngZeile As Long

'Spalte festlegen = Spalte der aktiven Zelle
lngSpalte = ActiveCell.Column

'letzte Zeile in Spalte ermitteln
lngLetzte = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row

'jetzt Spalte zeilenweise ab Zeile 2 durchlaufen
For lngZeile = 2 To lngLetzte
 'prüfen, ob Zelle gesperrt ist
  If Cells(lngZeile, lngSpalte).Locked = False Then
   'falls nicht, dann Wert in Zelle einfügen
    Cells(lngZeile, lngSpalte) = Cells(lngZeile, lngSpalte).Value
  End If
Next lngZeile

End Sub

Gruß

M.O.


'Gute Antwort' meinte 1 Mitglied Als gute Antwort bewerten
Antwort 2 von RAMIREZ-333 vom 12.01.2018, 11:07 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo M.O.,

ich bin beeindruckt!
Recht herzlichen Dank!
Es funktioniert super, auch ohne das man den Blattschutz einstellt!

Ein schönes Wochenende!

Tim


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 3 von M.O. vom 12.01.2018, 11:29 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Tim,

danke für die Rückmeldung. Das mit dem Blattschutz hatte ich nur reingeschrieben, da du von geschützten Zellen gesprochen hattest.

Auch ich wünsche dir ein schönes Wochenende.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2018 Supportnet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Jan 11 00:11:46 2018