Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierte Zellen ab A66 einfügen

Kopierte Zellen ab A66 einfügen
18.05.2009 20:12:11
andy
Hallo
kopierte Zellen A3:H5 in Tabelle2 nach Tabelle 1 ab B66 in die nächste freie Zelle einfügen.
Komme nicht ganz klar und Dank im vorraus für Hilfe.

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierte Zellen ab A66 einfügen
18.05.2009 21:38:53
Josef
Hallo Andy,
Sub andy()
  Dim lngNextRow As Long
  
  lngNextRow = Application.Max(Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row + 1, 66)
  
  Sheets("Tabelle2").Range("A3:H5").Copy Sheets("Tabelle1").Cells(lngNextRow, 2)
  
End Sub

Gruß Sepp

Anzeige
AW: Kopierte Zellen ab A66 einfügen
18.05.2009 23:29:58
andy
Vielen Dank für die Antwort. Läuft perfekt. Wie aber könnte ich weiter unten Zellen "sperren" in welche nicht geschrieben werden darf?
AW: Kopierte Zellen ab A66 einfügen
19.05.2009 06:31:34
andy
Vielen Dank für die Antwort. Läuft perfekt. Wie aber könnte ich weiter unten Zellen "sperren" in welche nicht geschrieben werden darf? Platzhalter oder ähnlich
AW: Kopierte Zellen ab A66 einfügen
20.05.2009 04:53:05
Josef
Hallo Andy,
z. B. so.
Sub andy()
  Dim lngNextRow As Long, lngMaxRow As Long
  
  lngMaxRow = 98 'letzte beschreibare Zeile
  lngNextRow = Application.Max(Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row + 1, 66)
  
  If lngNextRow < lngMaxRow Then
    Sheets("Tabelle2").Range("A3:H5").Copy Sheets("Tabelle1").Cells(lngNextRow, 2)
  Else
    MsgBox "Bereich voll!"
  End If
End Sub

Gruß Sepp

Anzeige
AW: Kopierte Zellen ab A66 einfügen
20.05.2009 09:31:45
Andy
Vielen Joseph. Leider komme ich alleine nicht weiter. Jetzt ist ein klarer Bereich abgegrenzt in welchem die nächste freie Zelle gesucht wird und die Daten eingefügt werden. Klappt bestens
Gibt es die Möglichkeit mehrere Bereiche für das Einfügen zu Definieren? (C66 bis C80, anschliessend C90 bis C105, anschliessend C130 bis C145 und so weiter?
AW: Kopierte Zellen ab A66 einfügen
21.05.2009 15:42:30
Josef
Hallo Andy,
da steckt aber keine Logik dahinter, zummindest erschliesst sie sich mir nicht.
Erst Zeile 66-80 sind 15 Zeilen, 10 Zeilen abstand zu 90-105 (16 Zeilen), 25 Zeilen abstand zu 130-145 ( wieder 16 Zeilen). Wie geht's weiter und ow versteckt sich da di Logik?
Gruß Sepp

Anzeige
AW: Kopierte Zellen ab A66 einfügen
21.05.2009 16:29:32
Andy
Hallo Joseph. Danke für deine Geduld und Hilfe.
Logik? Die angegebenen Abstände haben wirklich keine Logik sondern sind fiktiv. Also, die kopierten Bereiche werden in ein formatiertes Formular (Tabelle 1, =Offerte) eingelesen. Ab beispielsweise C80 bis C90 sind auf dem Formular Seitentotal, Übertrag etc. und ein fester Seitenumbruch. Entsprechend einem A4 Blatt (nicht nach 25 Zeilen) findet das selbe wieder statt. In diese Bereiche sollte jeweils nichts eingefügt werden können. Da aber die Offerte unbekannt viele Seiten lang sein kann habe ich das usw. angefügt, in der Hoffnung das ich am Code weiterbasteln kann.
Also versuch ich die Frage neu zu formulieren: Beginnend ab Zelle C22 sollen 31 Zellen zum einfügen bereit sein. Die nächsten 12 Zellen dürfen nicht überschrieben werden und ab jetzt gibt es vermutlich eine Logik, denn jeweils 44 Zellen pro Seite können überschrieben werden anschliessend sollen immer 12 Zellen "gesperrt" sein.
Aber ist das überhaupt möglich
Anzeige
AW: Kopierte Zellen ab A66 einfügen
21.05.2009 19:51:22
Josef
Hallo Andy,
da fällt mir im Moment nur diese Lösung ein.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Const cstrRange As String = "C22:C53,C66:C110,C122:C168,C180:C224"
Sub andy()
  Dim rng As Range, lngRow As Long
  
  With Sheets("Tabelle1")
    For Each rng In .Range(cstrRange)
      If rng = "" Then
        lngRow = rng.Row
        Exit For
      End If
    Next
    If lngRow > 0 Then Sheets("Tabelle2").Range("A3:H5").Copy .Cells(lngRow, 2)
  End With
  
End Sub

Gruß Sepp

Anzeige
AW: Kopierte Zellen ab A66 einfügen
21.05.2009 22:05:59
Andy
Vielen lieben Dank Joseph. 99% erreicht und läuft. Jetzt sollte nur noch eine leere Zelle zwischen den eingefügten Texten bleiben.
Für mich als Laie ist natürlich Angenehm, das ich den Zellbereich sehr einfach ändern kann.
Noch einmal : Danke Dir
AW: Kopierte Zellen ab A66 einfügen
22.05.2009 07:37:19
Josef
Hallo Andy,
dann ändere das " lngRow = rng.Row " in dieses " lngRow = rng.Row + 1 "
Gruß Sepp

AW: Kopierte Zellen ab A66 einfügen
22.05.2009 08:33:12
Andy
Guten Morgen Joseph. Danke für Deine Antwort.
Leider geht das mit " lngRow = rng.Row " in dieses " lngRow = rng.Row + 1 " nicht.
Mit IngRow = rng.Row beginnt das einfügen am ersten bestimmten Platz (C66:C69) und fügt den nächsten Textblock bei C 70 ein.
Mit IngRow = rng.Row + 1 beginnt das einfügen eine Zelle weiter Unten (C67:C70) was weiter nicht schlimm währe. Aber der nächste Texblock fügt sich wieder in (C67:C70) ein.
Anzeige
AW: Kopierte Zellen ab A66 einfügen
22.05.2009 15:53:04
Josef
Hallo Andy,
du musst die Bereiche jeweisl um eine Zeile nach oben verschoben angeben!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Const cstrRange As String = "C21:C52,C65:C109,C121:C167,C179:C223"
Sub andy()
  Dim rng As Range, lngRow As Long
  
  With Sheets("Tabelle1")
    For Each rng In .Range(cstrRange)
      If rng = "" Then
        If rng.Offset(1, 0) = "" And Not Intersect(rng.Offset(1, 0), .Range(cstrRange)) Is Nothing Then
          lngRow = rng.Row + 1
          Exit For
        End If
      End If
    Next
    If lngRow > 0 Then Sheets("Tabelle2").Range("A3:H5").Copy .Cells(lngRow, 2)
  End With
  
End Sub

Gruß Sepp

Anzeige

299 Forumthreads zu ähnlichen Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
Hilfe ! Zellen einfärben mit bedingung
sockel939

Hallo Leute,
wie schaffe ich es per makro ( ! )
alles was links neben zelle m2 bis m1000 steht einzufärben.
Also wenn in M2 z.B. a steht, alle zellen von L2 bis A2 = Grün
M3 z.B. Hallo = L3 bis A3 = Rot usw.
Weis nicht in welcher reihenfolge ich die makros aufnehmen soll :-...
15.08.2008 15:09:00
Thread-ID: 1002195
5 Beiträge
An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzahl Zelleinträge zählen
Markus

Hallo Excel-Profis,
Excel-Sheet mit folgender Struktur:
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI XIC
383729DI MS TIC
383729DI DAD TWC
383730DI MS TIC
383730DI XI...
01.09.2008 13:54:00
Thread-ID: 1006432
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
4
2
3
2
2
9
13
3
4
11
3
4
4
1
7
2
2
2
10
2
7
2
6