Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Range("A3:C3,A6:C8").Select

Forumthread: VBA Range("A3:C3,A6:C8").Select

VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:22:16
Chris
hallo
Ich habe folgendes Problem. Ich habe ein Programm mit VBA geschrieben, dass am Freitag funktionierte. Heute morgen hat es nicht mehr funktioniert. An einem anderen PC läufts, wider bei einem anderen läufts nicht mit der gleichen Excelversion. Kann das an einer Einstellung liegen?
Range("A4").Select
funktioniert
Range("A3:C3,A6:C8").Select
funktioniert nicht auf allen PC's
An was liegt das??
Danke für eure Hilfe!
Gruess Chris
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:39:16
Hajo_Zi
Hallo Chris,
auf select kann in VBA zu 99% verzichtet werden.


AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:45:16
Chris
Das habe ich überall im Forum schon gelesen. Nur weiss ich nicht wie ich es ohne machen kann und warum es auf einmal nicht mehr geht!
Private Sub cmdAnzeigeStoerungen_Click()
Set xlsDatei = Application.Workbooks(DieseArbeitsmappe.Name)
Set xlsTabelle = xlsDatei.Sheets("AnzeigeStoerungen")
Dim objDiagramm As Object
Set objDiagramm = New frmDiagramm
'Diagramm "Relative Schäden"
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="AnzeigeStoerungen"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Relative Schäden"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anz pro 100km"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
ActiveSheet.ChartObjects("Diagramm 1").Activate 'gif-Datei erstellen
ActiveChart.Export "DiagrammSchaeden.gif"
With objDiagramm.ImgDiagrammSchaeden
.PictureSizeMode = 3
.Picture = LoadPicture("DiagrammSchaeden.gif")
.AutoSize = True
End With
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:48:43
Hajo_Zi
Hallo Chris,
sprechen wir noch vom gleichen Problem? Ich kann Deine Zeile trotzt Brille nicht finden.
Gruß Hajo
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:52:48
Chris
ups, sorry! falsche version! Ich versuche alles mögliche!!
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & "").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:52:54
Chris
ups, sorry! falsche version! Ich versuche alles mögliche!!
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & "").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:57:53
Uduuh
Hallo,
das kann nirgends funktionieren!
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr).Select
Gruß aus’m Pott
Udo

AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 13:01:24
Chris
Hat am Freitag aber funktioniert! Auf anderen PC's funktionierts teilweise auch!!
Der andere Code hat nichts damit zu tun!¨Ich möchte nur eine Grafik erstellen.
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 15:27:27
Chris
makros,sicherheit, minimal, laufen lassen
makros, sicherheit,mittel und es funktioniert auch dort wider!!
Warum weis ich auch nicht, aber jetzt geht es!!
Danke für jegliche Hilfe!!
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:54:10
Uduuh
Hallo,
das ist garantiert falsch:
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
PlotBy:=xlColumns
nach meiner Meinung:
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr), _
PlotBy:=xlColumns
Und was soll das?
Set xlsDatei = Application.Workbooks(DieseArbeitsmappe.Name)
Set xlsDatei = ThisWorkbook
Gruß aus’m Pott
Udo

Anzeige
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
VBA Formel in Range einfügen
Frank

Hallo zusammen,
mit...
Range(Cells(20, s)).AutoFill Destination:=Range(Cells(ezp, s), Cells(lzp, s)), Type:=xlFillDefault
versuche ich eine Formel (die in cells(20,s) steht) in eine Range zu kopieren...
Leider Fehlermeldung: "Die Methode 'Rang' für das Objekt "_Global" ist fehl...
09.12.2011 11:21:09
Thread-ID: 1241366
13 Beiträge
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
Verketten von Zellen per VBA aber nicht in Range..
Zellen

Also,
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend...
09.09.2012 19:50:54
Thread-ID: 1277932
6 Beiträge
Anzeige
UsedRange.find macht Mätzchen
Albert

Guten Abend zusammen,
ich verwende diese Codezeile, um ein Datum in einem Sheet zu suchen... Sub Codeschnipsel() Set k = Sheets("Regelschichtplan").UsedRange.Find(What:=CDate(ZSVerwaltung.TextBox3.Text), _ After:=Cells(1, 1), LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows) End...
14.01.2014 20:13:38
Thread-ID: 1345230
3 Beiträge
VBA Hyperlink einer Range/ einem Bild zuweisen
Dokadan

Moin,
ich habe folgenden Code geschrieben:
Set LogoRange = .Range(.Cells(Hoehe * (Zeile - 1) + 12, Breite * (Spalte - 1) + 1), _
.Cells(Hoehe * (Zeile - 1) + 13, Breite * (Spalte - 1) + 2))
Set Logo = .Pictures.Insert(Firma_Logo)
With Logo
.ShapeRange.LockAspectRat...
14.04.2014 18:14:15
Thread-ID: 1357289
3 Beiträge
VBA Gruppierung eingefügt - Subscript out of range
Monika

Hallo zusammen,
ich bin gerade etwas irritiert, vielleicht könnt ihr etwas Licht ins Dunkel bringen:
Ich habe ein Makro, was komplett funktioniert, sobald ich aber die Zeile
Worksheets("XXX").Columns("M:W").Group
einfüge, bekomme ich die Fehlermeldung "Subscript out of range".....
04.12.2014 08:47:36
Thread-ID: 1396051
2 Beiträge
VBA Activen Bereich für resize in Range wählen
willoserus

Hallo,
ich habe per google ein fast passendes Makro gefunden, was meinen Wünschen entspricht. Allerdings werden in Zeile 4 beim resize Befehl statisch nur die ersten vier Zellen verkettet.
Ich habe einen festen Bereich in der Zeile von J-AC, in dem verschieden viele Zellen (mal nur eine...
19.08.2015 09:00:54
Thread-ID: 1443048
4 Beiträge
VBA Range.Select Problem
Heinz Mergler

Hallo,
ich habe ein Problem, das mich zum auswachsen bringt.
ich habe ein VBA geschrieben, indem dynamisch datensätze in form von Zeilen eingebaut werden sollen.
Jetzt möchte ich gerne um die Zeilen einen Rahmen rumbauen.
Die Zeilenanzahl variiert aber.so sieht der Code aus:Range("A...
13.08.2002 14:00:11
Thread-ID: 148083
4 Beiträge
VBA Code anpassen (Range Select)
Kisska

Schönen Abend!
Ich verwende für mein Makro diesen Teilcode:

Sheets("Blatt1").Select
Range("Tabelle1").Select
Selection.Copy

Damit werden alle Werte der Tabelle kopiert.
Ist es möglich den Code so anzupassen, dass die letzten 5 Spalten der Tabelle nicht kopiert...
13.07.2017 23:02:43
Thread-ID: 1569114
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige