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

Bereich suchen und markieren

Forumthread: Bereich suchen und markieren

Bereich suchen und markieren
13.09.2006 00:21:08
Andreas
Hallo liebe Excelperten,
ich möchte gern von einem Makro die letzte beschriebene Zeile und die letzte beschriebene Spalte suchen lassen. Anschließend soll er mir den Bereich markieren und in ein neues Excelblatt kopieren.
Er soll allerdings erst ab Spalte C suchen.
Mit meinen mageren Kenntnissen stoße ich da leider an die Grenzen.
Vielen Dank für eure Hilfe.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich suchen und markieren
13.09.2006 00:34:22
Josef
Hallo Andreas!
Welcher "Bereich" soll in ein neues Blatt kopiert werden?
Von "A1" bis zu letzten Zelle oder wie?
Gruß Sepp

AW: Bereich suchen und markieren
13.09.2006 00:38:59
Andreas
Hallo Sepp,
nein, er soll in Spalte C nach der letzten Zeile suchen und dann die letzte Spalte suchen und diesen Bereich dann Markieren.
Also z.B. C1 bis K35
Danke
Anzeige
AW: Bereich suchen und markieren
13.09.2006 00:48:57
Josef
Hallo Andreas!
Mit markieren kann ich nicht dienen, aber probier mal.
' **********************************************************************
' Modul: Modul4 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub FindAndCopy()
Dim objSh As Worksheet, objShNew As Worksheet
Dim intCol As Integer, intMax As Integer
Dim lngRow As Long, lngMax As Long

Set objSh = ActiveSheet

With objSh
  
  For intCol = 3 To Columns.Count
    lngMax = Application.Max(lngMax, .Cells(Rows.Count, intCol).End(xlUp).Row)
  Next
  
  For lngRow = 1 To lngMax
    intMax = Application.Max(intMax, .Cells(lngRow, Columns.Count).End(xlToLeft).Column)
  Next
  
  Set objShNew = ThisWorkbook.Worksheets.Add(after:=objSh)
  
  objShNew.Name = "New " & Format(Now, "dd/mm/yy hhmmss")
  .Range(.Cells(1, 3), .Cells(lngMax, intMax)).Copy objShNew.Range("A1")
  
End With

Set objSh = Nothing
Set objShNew = Nothing

End Sub


Gruß Sepp

Anzeige

Forumthreads zu verwandten Themen

Über Suchfeld Zeile farbig markieren? Formel falsch?
Juergen
Hallo zusammen,

ich möchte in einer Spalte Zahl(en) suchen und die Zeile farbig hervorheben. Jetzt ist aber die Seite schon als Tabelle formatiert sowie eine bedingte Formatierung vorhanden.
Ich legte eine "Suchzelle" (B1) an und belegte diese mit folgender Formel:
=WENN(ISTLEER(Su...
18.01.2024 13:35:41
Thread-ID: 1961099
5 Beiträge
Anzeige
Problem beim Öffnen von Word aus Excel
Word
Hallo,
ich benötige eure Hilfe. Ich habe auf einem Rechner eine Excel-Datei mit Excel 15.0 und auf dem anderen Rechner Excel 16.0.
Mit dieser Excel-Datei möchte ich eine Word-Vorlage öffnen, welche einen Zugriff auf Excel macht.
Wenn ich diese Datei veranlasse die Wordvorlage zu öffnen k...
07.11.2021 14:07:44
Thread-ID: 1855415
5 Beiträge
Excel sucht in Word
Stef26

Hallo liebe Forumsmitglieder,
leider bin ich kompletter VBA Anfänger und bräuchte eure Unterstützung.
Ich möchte in Excel die Spalte D durchlaufen in der Materialnummern stehen.
Ich möchte nun Zeile für Zeile die Werte in Spalte D einlesen und in einem Word Dok
suchen lassen.
01.11.2014 12:15:45
Thread-ID: 1389832
11 Beiträge
VBA Bedingtes Kopieren und Wordexport
Dana

Liebe Forumsmitglieder,
mittels VBA soll eine Excel-Datei ausgewertet werden. Dabei hakt es immer noch an diversen Stellen.
Alle Eingaben zu Mathe werden in der Tabelle "Mathematik", alle Eingaben zu Deutsch in der Tabelle "Deutsch", ... eingetragen.
Nun meine Fragen:
1. Wie bek...
24.08.2020 09:16:39
Thread-ID: 1778444
4 Beiträge
Anzeige
Text bricht in Excel-Zelle mitten im Wort um. ???
Klexy
Ich habe einen ganz normalen Text in einer ganz normalen Excel-Zelle mit Textumbruch. Normalerweise kein Problem, aber hier bricht mir der Text nicht an den Wörtern um, sondern mitten in den Wörtern.
Ich habe die Lösung bereits gefunden, schreibe hier aber trotzdem alles für die Nachwelt auf, de...
03.03.2026 19:25:25
Thread-ID: 2024631
2 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 08:47:00
Thread-ID: 1000143
15 Beiträge
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 14:52:02
Thread-ID: 1001495
8 Beiträge
Nach Zelleninhalt suchen und zurückgeben
Hans

Hallo,
Benötige für ein Makro folgende Funktionen
Suche ab der aktiven Zelle nach oben, die Spalten von B bis E nach folgendem Zelleninhalt durch.
Gesucht werden sollen nur die Zelleninhalte "Mat 01"; "Mat 02" usw. bis "Mat 15".
Wird z.B. als erstes der Wert "Mat 06" gefunden,...
23.10.2008 18:55:00
Thread-ID: 1018748
2 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 09:21:00
Thread-ID: 1020459
4 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 15:44:22
Thread-ID: 1024902
6 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum