Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile fixieren mit variabler letzter Spalte

Forumthread: Zeile fixieren mit variabler letzter Spalte

Zeile fixieren mit variabler letzter Spalte
28.10.2016 12:05:40
Pseudo
Hallo zusammen,
wieder einmal ein für mich unlösbares Problem...
Ich habe ein Tabellenblatt, dass zunächst die "Kopfdaten" fett markiert.
'Kopfzeilen Fett
Dim strString As String, rngCell As Range
strString = "Kogr"
Set rngCell = Range("A:AW").Find(strString, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)
If Not rngCell Is Nothing Then
Range("A1:" & rngCell.Address).EntireRow.Font.Bold = True
Else
MsgBox "Kogr bei der Auswertung mit ausgeben lassen und neu versuchen"
End If
Jetzt möchte ich, dass die letzte Zeile dieses Bereichs (also die in der "Kogr" steht) fixiert wird. Der Code sollte also folgendes beschreiben:
"Gehe in die Zeile in der "Kogr" steht. Gehe in dieser Zeile bis zur letzten Spalte und markiere die (leere) Zelle rechts daneben. Fixiere dann die Zeile."
Sollte eigentlich kein Problem sein, nur leider habe ich zu geringe Kenntnisse über die richtige Attributierung etc...
Wäre schön wenn jemand helfen kann.
Gruß
Pseudo
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile fixieren mit variabler letzter Spalte
28.10.2016 12:24:56
EtoPHG
Hallo Pseudo (schrecklich, wie heutzutage Eltern ihre Kinder taufen!)
Was soll das bringen?
In welcher Spalte du oder der Code steht, hat absolut keinen Einfluss darauf, wenn du oder der Code eine Zeile fixieren willst!
Gruess Hansueli
AW: Zeile fixieren mit variabler letzter Spalte
28.10.2016 12:32:48
Pseudo
Hallo Hansueli (no comment^^),
Vielleicht verstehe ich Dich einfach nur falsch aber ich versuchs mal.
Zu Deiner Frage was das bringen soll:
Die Spalte in der "Kogr") steht variiert, je nach den Daten, die ich in das Tabellenblatt einspiele.
Auch die Spaltenanzahl variiert.
Wenn Du eine einfache, vba-basierte Lösung dafür hast, dass immer die Spalte(Kogr), welche die Spaltenüberschriften enthält, fixiert wird, dann würde ich mich sehr freuen wenn Du mich an ihr teilhaben lassen würdest.
Gruß,
Pseudo :)
Anzeige
AW: Zeile fixieren mit variabler letzter Spalte
28.10.2016 13:25:31
EtoPHG
Hallo Pseudo,
Zitat: ...dass immer die Spalte(Kogr), welche die Spaltenüberschriften enthält, fixiert wird,...
Ja was denn nun?
Willst du die Zeile oder die Spalte oder Beides fixieren?
Übrigens: Es gibt einen Makro-Rekorder, der solche Vorgehen als VBA-Code aufzeichnet? Warum benutzt du diesen nicht mal und fragst dann eventuell zurück, wie der Code zu optimieren/generalisieren wäre?
Gruess Hansueli
Anzeige
AW: Zeile fixieren mit variabler letzter Spalte
28.10.2016 13:23:09
Pseudo
Hallo nochmal,
die Frage hat sich erledigt, war ein Denkfehler von mir. Danke für die Antwort Hansueli.
Gruß,
Pseudo
NP. Ignore my 2nd Answer (owT)
28.10.2016 13:26:47
EtoPHG

Forumthreads zu verwandten Themen

Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Spalten vergleichen und Zeilen verschieben
Silke

Hallo,
ich habe da ein kleines Problem: ich möchte gerne Duplikate in den Spalten A und B suchen und die betreffenden Zeilen dann in die Tabelle 2 verschieben
Kann mir da jemand helfen?
Silke
07.05.2009 09:58:30
Thread-ID: 1073519
14 Beiträge
Zeile und Spalte fixieren
Jochen

Hey,
ich würde gern die ersten 2 Zeilen fixieren, und zusätzlich die Kompletten Berich rechts von Spalte N
Geht das?
Gruß Jochen
19.06.2009 08:45:38
Thread-ID: 1082766
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeile und Spalte fixieren in Excel mit variabler letzter Spalte

Schritt-für-Schritt-Anleitung

Um eine Zeile in Excel mit einer variablen letzten Spalte zu fixieren, kannst du folgenden VBA-Code verwenden:

Dim strString As String, rngCell As Range
strString = "Kogr"
Set rngCell = Range("A:AW").Find(strString, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)

If Not rngCell Is Nothing Then
    ' Feste Zeile
    Range("A1:" & rngCell.Address).EntireRow.Font.Bold = True
    ' Letzte Zeile fixieren
    rngCell.Offset(1, 0).Activate
    ActiveWindow.FreezePanes = True
Else
    MsgBox "Kogr bei der Auswertung mit ausgeben lassen und neu versuchen"
End If

Dieser Code sucht die Zelle mit dem Inhalt "Kogr" und fixiert die Zeile darüber. Stelle sicher, dass du die Makros in deiner Excel-Version aktivierst.

Häufige Fehler und Lösungen

  1. Problem: Der Code findet die Zelle mit "Kogr" nicht.

    • Lösung: Stelle sicher, dass der Suchbegriff exakt übereinstimmt und dass die Spalten von A bis AW durchsucht werden.

  2. Problem: Die Zeile wird nicht fixiert.

    • Lösung: Überprüfe, ob du den Code im richtigen Modul ausführst und ob die Fensteransicht korrekt eingestellt ist.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du die Zeile auch manuell fixieren:

  1. Wähle die Zeile unter der Zeile, die du fixieren möchtest.
  2. Gehe zu „Ansicht“ > „Fenster fixieren“ > „Oberste Zeile fixieren“.
  3. Diese Methode ist jedoch nicht dynamisch, da sie nicht auf die letzte Spalte reagiert.

Praktische Beispiele

  • Beispiel 1: Du hast eine Tabelle mit variierenden Spalten, die "Kogr" enthält. Mit dem oben genannten VBA-Code wird die entsprechende Zeile fixiert und bleibt beim Scrollen sichtbar.

  • Beispiel 2: Wenn du die letzte Zeile eines Berichts immer sichtbar halten möchtest, kannst du den Code anpassen, um auch die unterste Zeile zu fixieren.

Tipps für Profis

  • Nutze den Makro-Rekorder in Excel, um Deine Schritte aufzuzeichnen. So kannst du den generierten Code anpassen und lernen, wie VBA funktioniert.
  • Experimentiere mit der Spaltenbreite, um sicherzustellen, dass die Daten in der fixierten Zeile gut lesbar sind. Du kannst die Spaltenbreite mit folgendem Code festsetzen:
Columns("A:AW").ColumnWidth = 15

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zeilen gleichzeitig fixieren?
Um mehrere Zeilen zu fixieren, wähle die Zeile direkt unter der letzten Zeile, die du fixieren möchtest, und gehe zu „Fenster fixieren“.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

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