Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bei Sverweis formatierung mitnehmen?

bei Sverweis formatierung mitnehmen?
19.09.2004 09:34:26
abidmon
Hallo,
folg. Problem: ich hole mit mittels sverweis Daten aus einem Tabellenblatt zur Auswertung in ein zweites Baltt. Das klappt ja soweit gut. Auf dem 'original' hab ich nun bestimmte Zellen formatiert-z.b. fett oder kursiv. Diese Formatierungen würde ich nun gern bei der sverweis - übernahme mitnehmen um dan auf dem Baltt 2 z.b. alle fetten Werte zu addieren. Geht das überhaupt, wenn JA, wie?
Danke für die Hilfe
Andreas

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 09:36:16
Nepumuk
Morgen Andreas,
per Formel geht das nicht, nur per VBA.
Gruß
Nepumuk
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 10:03:50
abidmon
Hallo Nepumuk,
hättest du dafür (vba) einen Vorschlag?
Grüße
Andreas
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 11:08:22
Nepumuk
Hallo Andreas,
mit einem Vorschlag alleine ist das sicher nicht zu machen, da du über keine VBA - Kenntnisse verfügst. Aber dazu müsste ich mehr über den Aufbau der Mappe wissen. Kannst du mal ein Muster auf den Server laden?
Gruß
Nepumuk
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 14:21:04
abidmon
Hallo Nepumuk,
im Tabellenblatt 1 werden die Werte eingegeben, im Blatt 2 soll pro Name die Zusammenstellung erfolgen - und hier auch die Sache mit der Summe der 'übernommenen' fett-Werte.
Danke schon mal.
Andreas

Die Datei https://www.herber.de/bbs/user/11061.xls wurde aus Datenschutzgründen gelöscht

Anzeige
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 16:38:19
Nepumuk
Hallo Andreas,
Rechtsklick auf den Tabellenreiter der Tabelle2 - Code anzeigen und folgendes Makro in das sich öffnende Editorfenster kopieren. Fenster wieder schließen, das war’s.


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRange As Range, intColumn As Integer, intRow As Integer, intCounter As Integer
    If Target.Address = "$A$3" Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
        intCounter = 25
        With Worksheets("Erfassung")
            Set myRange = .Columns(1).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
            If Not myRange Is Nothing Then
                Range("F20:J20,O5,O7,O9,O11,O13,O15").ClearContents
                For intRow = 5 To 15 Step 2
                    For intColumn = 6 To 10
                        Cells(intRow, intColumn).Font.Bold = .Cells(myRange.Row, intCounter).Font.Bold
                        If Cells(intRow, intColumn).Font.Bold And IsNumeric(Cells(intRow, intColumn).Value) Then
                            Cells(20, intColumn).Value = Cells(20, intColumn).Value + Cells(intRow, intColumn).Value
                            Cells(intRow, 15).Value = Cells(intRow, 15).Value + Cells(intRow, intColumn).Value
                        End If
                        intCounter = intCounter + 1
                        If intCounter Mod 6 = 0 Then intCounter = intCounter + 1
                    Next
                Next
            End If
        End With
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
        Set myRange = Nothing
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: bei Sverweis formatierung mitnehmen?
19.09.2004 16:44:39
abidmon
Hi Nepumuk,
heißen Dank - klappt ja bestens! Genau so wollte ich es.
Hut ab und beste Grüße
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige